Авиакомпания «Домодедовские авиалинии»

<%@ Language = 'VbScript' LCID=1049 CodePage=1251 EnableSessionState=True%> <% Option Explicit %> <% Response.CharSet = "windows-1251" %> <% cnn.Open Application("ConnectionString") Randomize 'defining the global variables dim site_id, page_id, strSQL site_id=50 page_id=203 Dim QP_IsInStageMode QP_IsInStageMode = False 'define response properties Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.6 Wed, 16 Sep 2009 11:23:14 GMT" Response.Expires = -1000 Response.CacheControl = "Private" Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-cache, no-store, must-revalidate" dim upload_url, base_upload_url, published_status_type_id, object_call_depth Dim AbsUploadURL, UploadURLPrefix, PublishedStatusName Dim QP_IsInFrontend QP_IsInFrontend = True dim object_call_stack(20) upload_url = "/upload/images" site_url = "/live/" base_upload_url = "/upload/" object_call_depth = 0 published_status_type_id=GetMaximumWeightStatusTypeId(50) PublishedStatusName=GetMaximumWeightStatusTypeName(50) FillValues Private Sub object822O() err.clear %><% dim position, url, myArray position = InStrRev(Request.ServerVariables("URL"), "/") url = Right(Request.ServerVariables("URL"),Len(Request.ServerVariables("URL"))-position) if url = "page.asp" then if IsNumeric(Value("page_id")) then AddValue "current_page_filter", "[content_item_id] = " & Value("page_id") else AddValue "current_page_filter", "1 = 0" end if AddValue "current_page_url", "default.asp" else AddValue "current_page_filter", "[Ссылка] = '" & url & "'" AddValue "current_page_url", url end if %><% If Err.Number <> 0 Then Response.write("Unable to display object 'получить фильтр страницы' correctly!
Details: " & err.description) End If End Sub Private Sub object823O() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal ContainerInfo.ContentID = 334 ContainerInfo.ContentName = "Разделы сайта" AddValue "dynamicContentNameSource", "CONTENT_334 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 131 " &" and c.archive = 0" & GetContainerFilterExpression(Values("current_page_filter")), GetContainerOrderExpressionNew("",""), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then AppendFieldToDictionary "Картинка", 1191, 8, False, 334 End If ContainerInfo.Init cmd, 50, 334, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% AddValue "current_page_name", Field("Заголовок") AddValue "current_page_text", Field("Текст") AddValue "current_page_image", ContainerInfo.UploadUrl & "/" & Field("Картинка") AddValue "current_page_id", Field("content_item_id") AddValue "current_page_parent", Field("Родитель") %><% .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'параметры страницы' correctly!
Details: " & err.description) End If End Sub Private Sub object806O() err.clear %> <% If Err.Number <> 0 Then Response.write("Unable to display object 'css' correctly!
Details: " & err.description) End If End Sub Private Sub object807O() err.clear %> <% If Err.Number <> 0 Then Response.write("Unable to display object 'javascript' correctly!
Details: " & err.description) End If End Sub Private Sub object828O() err.clear %> <% If Err.Number <> 0 Then Response.write("Unable to display object 'body javascript' correctly!
Details: " & err.description) End If End Sub Private Sub object808O() err.clear %>

" class=txtRed>English version
Поиск			Карта сайта

<% If Err.Number <> 0 Then Response.write("Unable to display object 'шапка' correctly!
Details: " & err.description) End If End Sub Private Sub object809O() err.clear %> <%Object("akdal.Пункты меню")%>

<% If Err.Number <> 0 Then Response.write("Unable to display object 'меню' correctly!
Details: " & err.description) End If End Sub Private Sub object810O() err.clear %>

<%Object("Лучшие виды из иллюминаторов")%>

<% if Value("current_page_parent") <> "" then AddValue "parent_filter" , "[Родитель] = " & Value("current_page_parent") else AddValue "parent_filter" , "[Родитель] = " & Value("current_page_id") end if 'AddValue "parent_filter" , Value("parent_filter") & " and [content_item_id] <> " & Value("current_page_id") AddValue "parent_filter" , Value("parent_filter") & " and [Показывать в меню] = 1 " Object("Братья раздела")%>

	<% Object("Основной блок") %>

<% If Err.Number <> 0 Then Response.write("Unable to display object 'центральная часть' correctly!
Details: " & err.description) End If End Sub Private Sub object811O() err.clear %>

сделано на
Q-Publishing 6.1

Юридическое уведомление

<% If Err.Number <> 0 Then Response.write("Unable to display object 'нижний колонтитул' correctly!
Details: " & err.description) End If End Sub Private Sub object829O() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal ContainerInfo.ContentID = 334 ContainerInfo.ContentName = "Разделы сайта" AddValue "dynamicContentNameSource", "CONTENT_334 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible IS NOT NULL " & "AND c.status_type_id = 131 " &" and c.archive = 0" & GetContainerFilterExpression("[Родитель] is null and [Показывать в меню] = 1"), GetContainerOrderExpressionNew("[Порядок] asc",""), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then AppendFieldToDictionary "Картинка", 1191, 8, False, 334 End If ContainerInfo.Init cmd, 50, 334, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %>HM_Array<%=ContainerInfo.CurrentRecord %>=[[150,\"getLeft(<%=ContainerInfo.CurrentRecord%>,e)\",194,,,,,,,,,,,,,,,,,,]<% AddValue "menu_filter", "[Родитель]=" & Field("content_item_id") Object("HM_ArrayItems") %>];<% AddValue "array_name", ContainerInfo.CurrentRecord AddValue "menu_filter", "[Родитель]=" & Field("content_item_id") 'Object("HM_Arrays Other Levels") %><% .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'hm_arrays level 1' correctly!
Details: " & err.description) End If End Sub Private Sub object826TO() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal ContainerInfo.ContentID = 334 ContainerInfo.ContentName = "Разделы сайта" AddValue "dynamicContentNameSource", "CONTENT_334 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 131 " &" and c.archive = 0" & GetContainerFilterExpression("[Показывать в меню] = 1 and [Родитель] is null"), GetContainerOrderExpressionNew("[Порядок] asc",""), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then AppendFieldToDictionary "Картинка", 1191, 8, False, 334 End If ContainerInfo.Init cmd, 50, 334, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% AddValue "first_level", "yes" AddValue "item_id", Field("content_item_id") AddValue "item_link", Field("Ссылка") Object("akdal.Формирование ссылки") %> " <% if Value("new_window") <> "" then %> target=_blank <% end if %> onMouseOver="popUp('HM_Menu<%=ContainerInfo.CurrentRecord%>',event);" onMouseOut="popDown('HM_Menu<%=ContainerInfo.CurrentRecord%>',event);"> <%=Field("Заголовок")%> <% .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'пункты меню' correctly!
Details: " & err.description) End If End Sub Private Sub object812O() err.clear %>

" border=0><% If Err.Number <> 0 Then Response.write("Unable to display object 'лучшие виды из иллюминаторов' correctly!
Details: " & err.description) End If End Sub Private Sub object827O() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal ContainerInfo.ContentID = 334 ContainerInfo.ContentName = "Разделы сайта" AddValue "dynamicContentNameSource", "CONTENT_334 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 131 " &" and c.archive = 0" & GetContainerFilterExpression(Value("parent_filter")), GetContainerOrderExpressionNew("",""), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then AppendFieldToDictionary "Картинка", 1191, 8, False, 334 End If ContainerInfo.Init cmd, 50, 334, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if ContainerInfo.IsFirst then %>

	<% end if %> <% AddValue "item_id", Field("content_item_id") AddValue "item_link", Field("Ссылка") Object("Формирование ссылки") %> <%if Value("current_page_id")=Field("content_item_id") then%> <%else%> <%end if%> "" then %> target=_blank <% end if %> href="<%=Value("result_link")%>" class=sibling><%=Field("Заголовок")%> <% if ContainerInfo.IsLast then %>

<% end if%><% .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'братья раздела' correctly!
Details: " & err.description) End If End Sub Private Sub object821O() err.clear %>

<%=Value("current_page_name")%>

<%Object("Центр")%>

<% If Err.Number <> 0 Then Response.write("Unable to display object 'основной блок' correctly!
Details: " & err.description) End If End Sub Private Sub object830O() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal ContainerInfo.ContentID = 334 ContainerInfo.ContentName = "Разделы сайта" AddValue "dynamicContentNameSource", "CONTENT_334 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 131 " &" and c.archive = 0" & GetContainerFilterExpression(Value("menu_filter")), GetContainerOrderExpressionNew("[Порядок] asc",""), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then AppendFieldToDictionary "Картинка", 1191, 8, False, 334 End If ContainerInfo.Init cmd, 50, 334, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% AddValue "item_id", Field("content_item_id") AddValue "item_link", Field("Ссылка") Object("Формирование ссылки") %>,['<%=Field("Заголовок")%>', '<%=Value("result_link")%>', 1, 0, 1]<% .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'hm_arrayitems' correctly!
Details: " & err.description) End If End Sub Private Sub object863TO() err.clear %><% if Len(Value("item_link")) > 0 then if InStr(Value("item_link"),"http://") then AddValue "new_window", "1" AddValue "result_link", Value("item_link") else AddValue "result_link", "page.asp?page_id=" & Value("item_id") end if if Value("first_level") = "yes" then AddValue "parent_id", Value("item_id") AddValue "has_subitems", "" Object("akdal.Наличие подпунктов") AddValue "first_level", "" end if %><% If Err.Number <> 0 Then Response.write("Unable to display object 'формирование ссылки' correctly!
Details: " & err.description) End If End Sub Private Sub object863O() err.clear %><% if Len(Value("item_link")) > 0 then if InStr(Value("item_link"),"http://") then AddValue "new_window", "1" AddValue "result_link", Value("item_link") else AddValue "result_link", "page.asp?page_id=" & Value("item_id") end if if Value("first_level") = "yes" then AddValue "parent_id", Value("item_id") AddValue "has_subitems", "" Object("akdal.Наличие подпунктов") AddValue "first_level", "" end if %><% If Err.Number <> 0 Then Response.write("Unable to display object 'формирование ссылки' correctly!
Details: " & err.description) End If End Sub Private Sub object910O() err.clear %> <%Object("Рейсы")%>

Рейс

Тип ВС

Класс

а/п Вылета

а/п Прибытия

Отпр.

Приб.

Пн

Вт

Ср

Чт

Пт

Сб

Вс

Действ. с

Действ. до

<%=Value("current_page_text")%>
<% If Err.Number <> 0 Then Response.write("Unable to display object 'центр' correctly!
Details: " & err.description) End If End Sub Private Sub object832TO() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal ContainerInfo.ContentID = 334 ContainerInfo.ContentName = "Разделы сайта" AddValue "dynamicContentNameSource", "CONTENT_334 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 131 " &" and c.archive = 0" & GetContainerFilterExpression("[Родитель] = " & Value("parent_id") & " and [Показывать в меню] = 1"), GetContainerOrderExpressionNew("[Порядок] asc",""), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then AppendFieldToDictionary "Картинка", 1191, 8, False, 334 End If ContainerInfo.Init cmd, 50, 334, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if ContainerInfo.IsFirst then AddValue "has_subitems", "1" AddValue "item_id", Field("content_item_id") AddValue "item_link", Field("Ссылка") Object("akdal.Формирование ссылки") end if %><% .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'наличие подпунктов' correctly!
Details: " & err.description) End If End Sub Private Sub object911O() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal ContainerInfo.ContentID = 416 ContainerInfo.ContentName = "_Q_Расписание" AddObjectValue "order_by", "[Рейс]" AddValue "dynamicContentNameSource", "CONTENT_416 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 131 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("",Value("order_by")), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then End If ContainerInfo.Init cmd, 50, 416, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><%Dim cl if (ContainerInfo.CurrentRecord mod 2) = 0 then cl = "bgWhite" else cl = "bgWhite1" end if%> ><%=Field("Рейс")%> ><%=Field("Тип_самолета")%> ><%=Field("Класс")%> ><%=Field("Аэропорт_вылета")%> ><%=Field("Аэропорт_прибытия")%> ><% if Len(Field("Местное_время_вылета")) > 0 then %><%=FormatDateTime(Field("Местное_время_вылета"),vbShortTime)%><% end if %> ><% if Len(Field("Местное_время_прибытия")) > 0 then %><%=FormatDateTime(Field("Местное_время_прибытия"),vbShortTime)%><% end if %> ><% if InStr(Field("День_недели"), 1) <> 0 then%>1<% else %>-<%end if %> ><% if InStr(Field("День_недели"), 2) <> 0 then%>1<% else %>-<%end if %> ><% if InStr(Field("День_недели"), 3) <> 0 then%>1<% else %>-<%end if %> ><% if InStr(Field("День_недели"), 4) <> 0 then%>1<% else %>-<%end if %> ><% if InStr(Field("День_недели"), 5) <> 0 then%>1<% else %>-<%end if %> ><% if InStr(Field("День_недели"), 6) <> 0 then%>1<% else %>-<%end if %> ><% if InStr(Field("День_недели"), 7) <> 0 then%>1<% else %>-<%end if %> ><%=Field("Действительно_с")%> ><%=Field("Действительно_до")%> <% .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'рейсы' correctly!
Details: " & err.description) End If End Sub Private Sub CallStackOverflow() Response.Write "Object Call Stack Overflow
Call Stack:
" dim i for i=1 to 20 Response.Write object_call_stack(i)&"
" next Response.End End Sub Private Function ObjectNS(name) Object(name) End Function Private Function Object(name) object_call_depth = object_call_depth + 1 if object_call_depth > 20 then CallStackOverflow object_call_stack(object_call_depth) = name Select Case Trim(lCase(name)) Case Trim("получить фильтр страницы") object822O Case Trim("параметры страницы") object823O Case Trim("css") object806O Case Trim("javascript") object807O Case Trim("body javascript") object828O Case Trim("шапка") object808O Case Trim("меню") object809O Case Trim("центральная часть") object810O Case Trim("нижний колонтитул") object811O Case Trim("hm_arrays level 1") object829O Case Trim("akdal.пункты меню") object826TO Case Trim("лучшие виды из иллюминаторов") object812O Case Trim("братья раздела") object827O Case Trim("основной блок") object821O Case Trim("hm_arrayitems") object830O Case Trim("akdal.формирование ссылки") object863TO Case Trim("формирование ссылки") object863O Case Trim("центр") object910O Case Trim("akdal.наличие подпунктов") object832TO Case Trim("рейсы") object911O Case Else Response.Write "Object " & name & " not found.
" End Select object_call_depth = object_call_depth - 1 End Function Function LangObject (objectName) Dim lang lang = Value ("lang") if ( lang = "en" or lang = "am" ) then Object (objectName & "_" & lang) else Object (objectName) end if End Function %> <% Object("Получить фильтр страницы") %> <% Object("Параметры страницы") %> <% if Value("wdate") <> "" then Session("wdate") = Value("wdate") AddValue "wdate", Session("wdate") %> Авиакомпания «Домодедовские авиалинии» - <%=Value("current_page_name")%> <% Object("CSS") %> <% Object("Javascript")%> <% Object("Body Javascript")%>

<% Object("Шапка")%>

<% Object("Меню") %> <% Object("Центральная часть")%>

<% Object("Нижний колонтитул") %>

<% DisposeValues cnn.Close %>