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

<%@ 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=186 Dim QP_IsInStageMode QP_IsInStageMode = False 'define response properties Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.6 Wed, 16 Sep 2009 11:22:16 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 object816O() err.clear %>

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

		<%Object("Блок новостей")%>	<% 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 object817O() 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 object818O() err.clear %>

Новости <%Object("Новости")%>

Все новости

<% If Err.Number <> 0 Then Response.write("Unable to display object 'блок новостей' correctly!
Details: " & err.description) End If End Sub Private Sub object819O() err.clear %>

Контакты <% Object("Контакты") %>

Подробнее

<% If Err.Number <> 0 Then Response.write("Unable to display object 'блок контактов' correctly!
Details: " & err.description) End If End Sub Private Sub object820O() err.clear %><% if isNull(Session("end")) or isEmpty(Session("end")) then Session("end") = "" end if if isNull(Session("opened")) or isEmpty(Session("opened")) then Session("opened") = "" end if dim RS, I if Session("first") <> "" then AddValue "test1", Session("first") else AddValue "test1", Month(Now()) & "/" & Day(Now()) & "/" & Year(Now()) end if if Session("last") <> "" then AddValue "test2", Session("last") else AddValue "test2", Value("test1") end if %>

Бронирование билетов

В один конец

checked<% end if %> onclick = "oneWay();">

В оба конца

checked<% end if %> onclick = "twoWays();">


Откуда	Дата

Куда	Обратная дата		Открытая дата	checked<% end if %>>

		Шаг 1 из 3

<% 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 object825O() 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 = 335 ContainerInfo.ContentName = "Новости" AddValue "dynamicContentNameSource", "CONTENT_335 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("[Дата] desc",""), 1, 2,1) 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, 335, 1, 2 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %>

<% if Len(Field("Текст")) > 0 then %> "><%=FormatDateTime(Field("Дата"),vbShortDate)%> - <%=Field("Заголовок")%> <% else %> <%=FormatDateTime(Field("Дата"),vbShortDate)%> - <%=Field("Заголовок")%> <% end if %>
<%=Field("Анонс")%>

<%=Field("Заголовок")%>:

<% if Len(Field("Телефон")) > 0 then %><%=Field("Телефон")%>
<% end if %> email: "><%=Field("Email")%>

<% .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 object908O() err.clear %><% dim RS, I Set RS = cnn.Execute("select distinct [Аэропорт_вылета] as airport from airline_schedule") I = 1 While not(RS.EOF) %> <% RS.MoveNext I = I + 1 Wend RS.Close Set RS = Nothing %><% If Err.Number <> 0 Then Response.write("Unable to display object 'список аэропортов вылета' correctly!
Details: " & err.description) End If End Sub Private Sub object909O() err.clear %><% dim RS, I Set RS = cnn.Execute("select distinct [Аэропорт_вылета] as airport from airline_schedule") I = 1 While not(RS.EOF) %> <% RS.MoveNext I = I + 1 Wend RS.Close Set RS = Nothing %><% 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 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 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("центральная часть") object816O Case Trim("нижний колонтитул") object811O Case Trim("hm_arrays level 1") object829O Case Trim("akdal.пункты меню") object826TO Case Trim("лучшие виды из иллюминаторов") object817O Case Trim("блок новостей") object818O Case Trim("блок контактов") object819O Case Trim("бронирование билетов") object820O Case Trim("hm_arrayitems") object830O Case Trim("akdal.формирование ссылки") object863TO Case Trim("новости") object825O Case Trim("контакты") object845O Case Trim("список аэропортов вылета") object908O Case Trim("список аэропортов прилета") object909O Case Trim("формирование ссылки") object863O Case Trim("akdal.наличие подпунктов") object832TO 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 %>