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

<%@ 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=205 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:17 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 object917O() err.clear %> <% if Value("target") = "" then Response.Redirect("default.asp") elseif Value("target") = "order2" then Object("Шаг 3") elseif Value("target") = "order" then Object("Шаг 2") elseif Value("target") = "book_tickets" then Object("Шаг 4") end if 'target=order %><% 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 object930O() err.clear %><% dim contentName, relatedContentName contentName = "Заказы" relatedContentName = "Заказы позиции" Session("indirect") = Value("indirect") Session("select_to") = Value("select_to") Session("select_from") = Value("select_from") Session("real_date_to") = Value("date" & Value("select_to")) Session("real_date_from") = Value("date" & Value("select_from")) Session("tickets_count") = Value("count" & Value("select_to")) Session("class_to") = Value("class" & Value("select_to")) Session("class_from") = Value("class" & Value("select_from")) if Session("indirect") <> "" then Session("select_to_2") = Value("select_to_2") Session("select_from_2") = Value("select_from_2") Session("class_to_2") = Value("class" & Value("select_to_2")) Session("class_from_2") = Value("class" & Value("select_from_2")) Session("real_date_to_2") = Value("date" & Value("select_to_2")) Session("real_date_from_2") = Value("date" & Value("select_from_2")) end if %><%=Value("current_page_text")%> <% Object("Билеты") %>

Контактный телефон:*	" size="40" maxlength="255">
Контактный e-mail:*	" size="40" maxlength="255">
Контактное лицо:*	" size="40" maxlength="255">
Выкупить билет в:*
Примечания:	" cols="40" rows=8>

Шаг 3 из 3

<% If Err.Number <> 0 Then Response.write("Unable to display object 'шаг 3' correctly!
Details: " & err.description) End If End Sub Private Sub object934O() err.clear %>

<% AddValue "transit", "Домодедово" AddValue "transit_time", 3 AddValue "standard_filter", "[Аэропорт_вылета] = '" & Value("from") & "' and [Аэропорт_прибытия] = '" & Value("to") & "'" AddValue "standard_reverse_filter", "[Аэропорт_вылета] = '" & Value("to") & "' and [Аэропорт_прибытия] = '" & Value("from") & "'" dim errorCode Session("selected") = 1 Session("from") = Value("from") Session("to") = Value("to") Session("opened") = Value("opened") Session("first") = Value("first") Session("last") = Value("last") Session("end") = Value("end") Session("transit") = Value("transit") AddValue "date_to", DateSerial("2007",Value("firstmonth"),Value("firstday")) if Value("end") <> "" and Value("opened") <> "1" then AddValue "date_from", DateSerial(Value("lastyear"),Value("lastmonth"),Value("lastday")) if dateDiff("d",Value("date_from"),Value("date_to")) > 0 then %>Дата обратного рейса не может наступить раньше даты прямого
<% errorCode = 1 end if end if Object("Проверка прямого рейса") if dateDiff("d",Value("date_to"),Now()) > 0 then %>Введена некорректная дата прямого рейса<% errorCode = 1 end if if Value("flight_to_presents") = "" and errorCode <> 1 then if Value("from") = Value("to") then %>Задайте различные пункты начала и конца рейса.
<% errorCode = 1 else AddValue "indirect", "yes" AddValue "chains_present", "yes" AddValue "air_filter_1", "[Аэропорт_вылета] = '" & Value("from") & "' and [Аэропорт_прибытия] = '" & Value("transit") & "'" AddValue "air_filter_2", "[Аэропорт_вылета] = '" & Value("transit") & "' and [Аэропорт_прибытия] = '" & Value("to") & "'" AddValue "global_air_target", "to" Object("Обработка непрямых рейсов") if Value("end") <> "" and Value("real_date_to") <> "" and Value("opened") <> "1" then AddValue "air_filter_1", "[Аэропорт_вылета] = '" & Value("to") & "' and [Аэропорт_прибытия] = '" & Value("transit") & "'" AddValue "air_filter_2", "[Аэропорт_вылета] = '" & Value("transit") & "' and [Аэропорт_прибытия] = '" & Value("from") & "'" AddValue "global_air_target", "from" if dateDiff("d", Value("real_date_to"), Value("date_from")) <= 0 then AddValue("date_from"), dateAdd("d", 1, Value("real_date_to")) %>
Обратный рейс был смещен на более поздний срок в соответствии с датой прямого рейса.

<% end if Object("Обработка непрямых рейсов") end if end if end if if Value("indirect") = "" then if errorCode <> 1 then Object("Обработка рейсов") end if 'errorCode if Value("end") <> "" and Value("real_date_to") <> "" and Value("opened") <> "1" then Object("Обработка обратных рейсов") end if end if if Value("real_date_to") <> "" then %>
<% end if%>

Вернуться на шаг назад ">

<% Object("Скрипт 2 шага")%>

Шаг 2 из 3

<% If Err.Number <> 0 Then Response.write("Unable to display object 'шаг 2' correctly!
Details: " & err.description) End If End Sub Private Sub object938O() err.clear %> <% dim body, contentName, i, date, relatedContentName contentName = "Заказы" relatedContentName = "Заказы позиции" AddValue FieldName(contentName,"Дата первого прямого рейса"), Session("real_date_to") AddValue FieldName(contentName,"Первый прямой рейс"), Session("select_to") AddValue FieldName(contentName,"Класс первого прямого рейса"), Session("class_to") if Session("end") = "1" and Session("opened") <> "1" then AddValue FieldName(contentName,"Дата первого обратного рейса"), Session("real_date_from") AddValue FieldName(contentName,"Первый обратный рейс"), Session("select_from") AddValue FieldName(contentName,"Класс первого обратного рейса"), Session("class_from") end if if Session("indirect") <> "" then AddValue FieldName(contentName,"Непрямой рейс"), 1 AddValue FieldName(contentName,"Дата второго прямого рейса"), Session("real_date_to_2") AddValue FieldName(contentName,"Второй прямой рейс"), Session("select_to_2") AddValue FieldName(contentName,"Класс второго прямого рейса"), Session("class_to_2") if Session("end") = "1" and Session("opened") <> "1" then AddValue FieldName(contentName,"Дата второго обратного рейса"), Session("real_date_from_2") AddValue FieldName(contentName,"Второй обратный рейс"), Session("select_from_2") AddValue FieldName(contentName,"Класс второго обратного рейса"), Session("class_from_2") end if end if AddValue FieldName(contentName,"Открытая дата"), Session("opened") AddValue FieldName(contentName,"В оба конца"), Session("end") AddFormToContent "Заказы", "Published" if Value("content_item_id") <> "" then AddValue "order_id", Value("content_item_id") body = "Заказ №: " & Value("content_item_id") & "
" body = body & "Контактное лицо: " & Value(FieldName(contentName,"Контактное лицо")) & "
" body = body & "Контактный телефон: " & Value(FieldName(contentName,"Контактный телефон")) & "
" body = body & "Контактный e-mail: " & Value(FieldName(contentName,"Контактный email")) & "
" body = body & "Выкупить билет в: " & Value(FieldName(contentName,"Выкупить билет в")) & "
" body = body & "Открытая дата: " if Session("opened") = "1" then body = body & "Да
" else body = body & "Нет
" end if body = body & "В оба конца: " if Session("end") = "1" then body = body & "Да
" else body = body & "Нет
" end if body = body & "Непрямой рейс: " if Session("indirect") <> "" then body = body & "Да
" else body = body & "Нет
" end if if Session("indirect") = "" then body = body & "Дата первого прямого рейса: " & FormatDateTime(Session("real_date_to"),vbLongDate) & "
" body = body & "Рейс № " & Session("select_to") & " (" & Session("from") & " - " & Session("to") & ")
" body = body & "Класс: " & Session("class_to") & "
" if Session("end") = "1" and Session("opened") <> "1" then body = body & "Дата первого обратного рейса: " & FormatDateTime(Session("real_date_from"),vbLongDate) & "
" body = body & "Рейс № " & Session("select_from") & " (" & Session("to") & " - " & Session("from") & ")
" body = body & "Класс: " & Session("class_from") & "
" end if else body = body & "Дата первого прямого рейса: " & FormatDateTime(Session("real_date_to"),vbLongDate) & "
" body = body & "Рейс № " & Session("select_to") & " (" & Session("from") & " - " & Session("transit") & ")
" body = body & "Класс: " & Session("class_to") & "
" body = body & "Дата второго прямого рейса: " & FormatDateTime(Session("real_date_to_2"),vbLongDate) & "
" body = body & "Рейс № " & Session("select_to_2") & " (" & Session("transit") & " - " & Session("to") & ")
" body = body & "Класс: " & Session("class_to_2") & "
" if Session("end") = "1" and Session("opened") <> "1" then body = body & "Дата первого обратного рейса: " & FormatDateTime(Session("real_date_from"),vbLongDate) & "
" body = body & "Рейс № " & Session("select_from") & " (" & Session("to") & " - " & Session("transit") & ")
" body = body & "Класс: " & Session("class_from") & "
" body = body & "Дата второго обратного рейса: " & FormatDateTime(Session("real_date_from_2"),vbLongDate) & "
" body = body & "Рейс № " & Session("select_from_2") & " (" & Session("transit") & " - " & Session("from") & ")
" body = body & "Класс: " & Session("class_from_2") & "
" end if end if body = body & "Примечания: " & Value(FieldName(contentName,"Примечания")) & "
" Object("Таблица билетов") body = body & Value("body_table") SendEmail "Заказ билетов", body, Application("bron_email") if Err = 0 then %>Ваш заказ успешно отправлен. С Вами свяжутся в течении 24 часов.<% end if end if %><% If Err.Number <> 0 Then Response.write("Unable to display object 'шаг 4' correctly!
Details: " & err.description) End If End Sub Private Sub object935O() 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 = 360 ContainerInfo.ContentName = "Города" AddValue "dynamicContentNameSource", "CONTENT_360 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("[Название] 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 End If ContainerInfo.Init cmd, 50, 360, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% .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 object936O() err.clear %><% dim i for i = 1 to Value("count" & Value("select_to")) %>

Билет <%=i%> Фамилия:* Имя:* Отчество:* Дата рождения: <% if Session("end") = "1" then %> Оформлять обратный билет: <% end if %> Льготы: <% next %><% If Err.Number <> 0 Then Response.write("Unable to display object 'билеты' correctly!
Details: " & err.description) End If End Sub Private Sub object925O() 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_Расписание" 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("[Аэропорт_вылета] = '" & Value("from") & "' and [Аэропорт_прибытия] = '" & Value("to") & "'"), 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 End If ContainerInfo.Init cmd, 50, 416, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if ContainerInfo.IsFirst then AddValue "flight_to_presents", 1 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 object975O() err.clear %><% if Value("chains_present") = "yes" then AddValue "has_choice", "" if Value("global_air_target") = "to" then AddValue "has_number", "yes" %><%=Value("current_page_text")%><% else AddValue "has_number", "" %>

<% end if AddValue "air_filter", Values("air_filter_1") AddValue "air_target", Value("global_air_target") AddValue "start_date", Value("date_" & Value("global_air_target")) AddValue "end_date", "" AddValue "end_time", "" AddValue "check_time", "" Object("Рейсы") AddValue "real_date_" & Value("global_air_target"), Value("end_date") AddValue "real_time_" & Value("global_air_target"), Value("end_time") if Value("real_date_" & Value("global_air_target")) = "" then %>
Транзитного рейса на запрашиваемую Вами дату нет. Посмотрите информацию о ближайшем, после указанной даты, рейсе

<% AddValue "start_date", dateAdd("d",1, Value("date_" & Value("global_air_target"))) Object("Поиск оптимальной даты следующего рейса") AddValue "real_date_" & Value("global_air_target"), Value("end_date") if Value("real_date_" & Value("global_air_target")) = "" then %>
Расписание транзитного рейса в запрашиваемом периоде пока отсутствует

<% AddValue "chains_present", "" else AddValue "end_date", "" AddValue "end_time", "" AddValue "start_date", Value("real_date_" & Value("global_air_target")) AddValue "check_time", "" Object("Рейсы") AddValue "real_date_" & Value("global_air_target"), Value("end_date") AddValue "real_time_" & Value("global_air_target"), Value("end_time") end if end if end if if Value("chains_present") = "yes" then AddValue "has_number", "" AddValue "air_filter", Values("air_filter_2") AddValue "air_target", Value("global_air_target") & "_2" AddValue "start_date", Value("real_date_" & Value("global_air_target")) AddValue "end_date", "" AddValue "end_time", "" AddValue "check_time", "yes" AddValue "start_time", Value("real_time_" & Value("global_air_target")) Object("Рейс1") if Value("end_date") = "" then %>
Транзитного рейса на запрашиваемую Вами дату нет. Посмотрите информацию о ближайшем, после указанной даты, рейсе

<% AddValue "start_date", dateAdd("d",1, Value("real_date_" & Value("global_air_target"))) AddValue "end_date", "" Object("Поиск оптимальной даты следующего рейса") AddValue "real_date_" & Value("global_air_target"), Value("end_date") if Value("real_date_" & Value("global_air_target")) = "" then %>
Расписание транзитного рейса в запрашиваемом периоде пока отсутствует

<% AddValue "chains_present", "" else AddValue "check_time", "" AddValue "start_date", Value("real_date_" & Value("global_air_target")) AddValue "end_date", "" Object("Рейс1") AddValue "real_date_" & Value("global_air_target"), Value("end_date") end if end if end if %><% If Err.Number <> 0 Then Response.write("Unable to display object 'обработка непрямых рейсов' correctly!
Details: " & err.description) End If End Sub Private Sub object972O() err.clear %> <% AddValue "air_filter", Values("standard_filter") AddValue "air_target", "to" AddValue "has_number", "yes" %><%=Value("current_page_text")%><% AddValue "start_date", Value("date_to") AddValue "end_date", "" AddValue "has_choice", "yes" Object("Рейс1") AddValue "real_date_to", Value("end_date") if Value("real_date_to") = "" then %>
Рейса на запрашиваемую Вами дату нет. Посмотрите информацию о ближайшем, после указанной даты, рейсе

<% AddValue "end_date", "" AddValue "start_date", Value("date_to") Object("Поиск оптимальной даты следующего рейса") AddValue "real_date_to", Value("end_date") if Value("real_date_to") = "" then %>
Расписание этого рейса в запрашиваемом периоде пока отсутствует

<% else AddValue "has_choice", "yes" AddValue "end_date", "" AddValue "start_date", Value("real_date_to") Object("Рейс1") AddValue "real_date_to", Value("end_date") end if end if %><% If Err.Number <> 0 Then Response.write("Unable to display object 'обработка рейсов' correctly!
Details: " & err.description) End If End Sub Private Sub object973O() err.clear %><% if dateDiff("d", Value("real_date_to"), Value("date_from")) <= 0 then AddValue("date_from"), dateAdd("d", 1, Value("real_date_to")) %>
Обратный рейс был смещен на более поздний срок в соответствии с датой прямого рейса.

<% end if AddValue "air_filter", Values("standard_reverse_filter") AddValue "air_target", "from" AddValue "has_number", "" AddValue "start_date", Value("date_from") AddValue "end_date", "" AddValue "has_choice", "yes" Object("Рейс1") AddValue "real_date_from", Value("end_date") if Value("real_date_from") = "" then %>
Обратного рейса на запрашиваемое Вами число нет. Посмотрите информацию о ближайшем рейсе:

<% AddValue "end_date", "" AddValue "start_date", Value("date_from") Object("Поиск оптимальной даты следующего рейса") AddValue "real_date_from", Value("end_date") AddValue "end_date", "" AddValue "start_date", Value("real_date_from") AddValue "has_choice", "yes" Object("Рейс1") AddValue "real_date_from", Value("end_date") if Value("real_date_from") = "" then %>
Расписание этого рейса в запрашиваемом периоде пока отсутствует

<% end if end if %> <% If Err.Number <> 0 Then Response.write("Unable to display object 'обработка обратных рейсов' correctly!
Details: " & err.description) End If End Sub Private Sub object974O() err.clear %><% If Err.Number <> 0 Then Response.write("Unable to display object 'скрипт 2 шага' correctly!
Details: " & err.description) End If End Sub Private Sub object939O() err.clear %><% dim relatedContentName, date, body, i relatedContentName = "Заказы позиции" body = "

" if Session("end") = "1" then body = body & "" end if body = body & "" For i = 1 to Session("tickets_count") date = DateSerial(Value("birthday" & i & "year"),Value("birthday" & i & "month"), Value("birthday" & i & "day")) AddValue FieldName(relatedContentName,"Дата рождения"), date AddValue FieldName(relatedContentName,"Заказ"), Value("order_id") AddValue FieldName(relatedContentName,"Фамилия"), Value("surname" & i) AddValue FieldName(relatedContentName,"Имя"), Value("name" & i) AddValue FieldName(relatedContentName,"Отчество"), Value("parent" & i) AddValue FieldName(relatedContentName,"Льготы"), Value("benefit" & i) AddValue FieldName(relatedContentName,"Есть обратный билет"), Value("end" & i) AddFormToContent relatedContentName, "Published" body = body & "" body = body & "" if Value("benefit" & i ) <> "" then body = body & "" else body = body & "" end if if Session("end") = "1" then if Value("end" & i ) <> "" then body = body & "" else body = body & "" end if end if body = body & "" Next body = body & "

№ билета	ФИО	Дата рождения	Льготы	Обратный билет
"& i & "	" & Value("surname" & i) & " " & Value("name" & i) & " " & Value("parent" & i) & "	" & date & "	" & Value("benefit" & i ) & "	Нет	Есть	Нет

" AddValue "body_table", body %><% If Err.Number <> 0 Then Response.write("Unable to display object 'таблица билетов' correctly!
Details: " & err.description) End If End Sub Private Sub object937O() 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 = 359 ContainerInfo.ContentName = "Заказы льготы" AddValue "dynamicContentNameSource", "CONTENT_359 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("[Название] 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 End If ContainerInfo.Init cmd, 50, 359, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% .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 object923O() 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_Расписание" AddValue "dynamicContentNameSource", "CONTENT_416 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(Values("air_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 End If ContainerInfo.Init cmd, 50, 416, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% dim RS, I Set RS = cnn.Execute("select * from airline_schedule where "& Values("air_filter")) While not(RS.EOF) dim cl, currentWeekDay, inDate, outDate, temp, deltaDate if ContainerInfo.IsFirst then AddValue "I", 0 AddValue "value", RS.Fields("Действительно_с") if (dateDiff("d",Value("start_date"),RS.Fields("Действительно_до")) >= 0) and (dateDiff("d",Value("start_date"), RS.Fields("Действительно_с")) <= 0) then if Value("has_choice") = "yes" or Value("I") = 0 then currentWeekDay = WeekDay(Value("start_date")) - 1 if currentWeekDay = 0 then currentWeekDay = 7 if InStr(RS.Fields("День_недели"), currentWeekDay) > 0 then inDate = CDate(Value("start_date") & " " & Value("start_time")) outDate = CDate(Value("start_date") & " " & "23:00:00") temp = dateDiff("h", inDate, outDate) if Value("check_time") = "" or dateDiff("h", inDate, outDate) >= Value("transit_time") then if Value("I") = 0 then %> <% if Value("has_choice") = "yes" then %><% end if %> <% if Value("has_number") = "yes" then %><% end if %> <% end if AddValue "I", Value("I") + 1 if (Value("I") mod 2) = 0 then cl = "bgWhite" else cl = "bgWhite1" end if %> <% if Value("has_choice") = "yes" then %><% else %>" value="<%=RS.Fields("Рейс")%>"><% end if%> <% if Value("has_number") = "yes" then %><% end if %> " value="<%=Value("start_date")%>"> <% AddValue "end_date", Value("start_date") deltaDate = dateDiff("h", RS.Fields("Местное_время_вылета"), RS.Fields("Местное_время_прибытия")) if deltaDate < -1 then AddValue "end_date", dateAdd("d", 1, Value("end_date")) else end if AddValue "end_time", RS.Fields("Московское_время_прибытия") end if ' успевают пересесть end if 'День недели end if ' only_one_record end if 'dateDiff %> <% if ContainerInfo.IsLast and Value("I") > 0 then %>

Рейс	Тип ВС	Класс	а/п Вылета	а/п Прибытия	Дата вылета	Отправление	Прибытие	Выбран	Кол-во билетов
><%=RS.Fields("Рейс")%>	><%=RS.Fields("Тип_самолета")%>	><% AddValue "flight", RS.Fields("Рейс") AddValue "class", RS.Fields("Класс") Object("Класс")%>	><%=RS.Fields("Аэропорт_вылета")%>	><%=RS.Fields("Аэропорт_прибытия")%>	><%=FormatDateTime(Value("start_date"),vbShortDate)%>	><%=RS.Fields("Местное_время_вылета")%>	><%=RS.Fields("Местное_время_прибытия")%>	align=center>" value="<%=RS.Fields("Рейс")%>" <% if Value("I") = 1 then %>checked<% end if %>>	>" value="0" maxlength=2>

<% end if RS.MoveNext Wend RS.Close Set RS = Nothing %><% .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 object971O() 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_Расписание" 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(Values("air_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 End If ContainerInfo.Init cmd, 50, 416, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %> <% if ContainerInfo.IsFirst then AddValue "end_date", "" dim cl, currentDate, currentWeekDay if dateDiff("d",Value("start_date"), Field("Действительно_с")) > 0 then currentDate = Field("Действительно_с") else currentDate = Value("start_date") end if Do While (dateDiff("d",currentDate,Field("Действительно_до")) >= 0) currentWeekDay = WeekDay(currentDate) - 1 if currentWeekDay = 0 then currentWeekDay = 7 if InStr(Field("День_недели"), currentWeekDay) > 0 then if Value("end_date") = "" then AddValue "end_date", currentDate else if dateDiff("d",currentDate,Value("end_date")) > 0 then AddValue "end_date", currentDate end if Exit Do end if currentDate = DateAdd("d", 1, currentDate) Loop %><% .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 object1183O() err.clear %><% dim RS, I I=0 AddValue "I", 0 Set RS = cnn.Execute("select * from airline_schedule where "& Values("air_filter")) While not(RS.EOF) dim cl, currentWeekDay, inDate, outDate, temp, deltaDate 'if ContainerInfo.IsFirst then AddValue "I", 0 if (dateDiff("d",Value("start_date"),RS.Fields("Действительно_до")) >= 0) and (dateDiff("d",Value("start_date"), RS.Fields("Действительно_с")) <= 0) then if Value("has_choice") = "yes" or I = 0 then currentWeekDay = WeekDay(Value("start_date")) - 1 if currentWeekDay = 0 then currentWeekDay = 7 if InStr(RS.Fields("День_недели"), currentWeekDay) > 0 then inDate = CDate(Value("start_date") & " " & Value("start_time")) outDate = CDate(Value("start_date") & " " & Value("start_time")) temp = dateDiff("h", inDate, outDate) if Value("check_time") = "" or dateDiff("h", inDate, outDate) >= Value("transit_time") then if I = 0 then %> <% if Value("has_choice") = "yes" then %><% end if %> <% if Value("has_number") = "yes" then %><% end if %> <% end if I=I+1 if (I mod 2) = 0 then cl = "bgWhite" else cl = "bgWhite1" end if %> <% if Value("has_choice") = "yes" then %><% else %>" value="<%=RS.Fields("Рейс")%>"><% end if%> <% if Value("has_number") = "yes" then %><% end if %> " value="<%=Value("start_date")%>"> <% AddValue "end_date", Value("start_date") deltaDate = dateDiff("h", RS.Fields("Местное_время_вылета"), RS.Fields("Местное_время_прибытия")) if deltaDate < -1 then AddValue "end_date", dateAdd("d", 1, Value("end_date")) else end if AddValue "end_time", RS.Fields("Московское_время_прибытия") end if ' успевают пересесть end if 'День недели end if ' only_one_record end if 'dateDiff RS.MoveNext Wend %>

Рейс	Тип ВС	Класс	а/п Вылета	а/п Прибытия	Дата вылета	Отправление	Прибытие	Выбран	Кол-во билетов
><%=RS.Fields("Рейс")%>	><%=RS.Fields("Тип_самолета")%>	><% AddValue "flight", RS.Fields("Рейс") AddValue "class", RS.Fields("Класс") Object("Класс")%>	><%=RS.Fields("Аэропорт_вылета")%>	><%=RS.Fields("Аэропорт_прибытия")%>	><%=FormatDateTime(Value("start_date"),vbShortDate)%>	><%=Replace(RS.Fields("Местное_время_вылета"),"01.01.1910","")%>	><%=Replace(RS.Fields("Местное_время_прибытия"),"01.01.1910","")%>	align=center>" value="<%=RS.Fields("Рейс")%>" <% if Value("I") = 1 then %>checked<% end if %>>	>" value="0" maxlength=2>

<% RS.Close Set RS = Nothing %><% If Err.Number <> 0 Then Response.write("Unable to display object 'рейс1' correctly!
Details: " & err.description) End If End Sub Private Sub object951O() err.clear %><% 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("центр") object917O Case Trim("akdal.наличие подпунктов") object832TO Case Trim("шаг 3") object930O Case Trim("шаг 2") object934O Case Trim("шаг 4") object938O Case Trim("выкупить билет список городов") object935O Case Trim("билеты") object936O Case Trim("проверка прямого рейса") object925O Case Trim("обработка непрямых рейсов") object975O Case Trim("обработка рейсов") object972O Case Trim("обработка обратных рейсов") object973O Case Trim("скрипт 2 шага") object974O Case Trim("таблица билетов") object939O Case Trim("список льгот") object937O Case Trim("рейсы") object923O Case Trim("поиск оптимальной даты следующего рейса") object971O Case Trim("рейс1") object1183O Case Trim("класс") object951O 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 %>