<%@ 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=51
page_id=236
Dim QP_IsInStageMode
QP_IsInStageMode = False
'define response properties
Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.6 Wed, 16 Sep 2009 11:27:04 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 = "/eng/upload/images"
site_url = "/eng/live/"
base_upload_url = "/eng/upload/"
object_call_depth = 0
published_status_type_id=GetMaximumWeightStatusTypeId(51)
PublishedStatusName=GetMaximumWeightStatusTypeName(51)
FillValues
Private Sub object990O()
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 object991O()
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 = 369
ContainerInfo.ContentName = "Разделы сайта"
AddValue "dynamicContentNameSource", "CONTENT_369 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 139 " &" 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 "Картинка", 1434, 8, False, 369
End If
ContainerInfo.Init cmd, 51, 369, 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 object977O()
err.clear
%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'css' correctly! Details: " & err.description)
End If
End Sub
Private Sub object978O()
err.clear
%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'javascript' correctly! Details: " & err.description)
End If
End Sub
Private Sub object996O()
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 object979O()
err.clear
%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'шапка' correctly! Details: " & err.description)
End If
End Sub
Private Sub object980O()
err.clear
%>
<%Object("Пункты меню")%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'меню' correctly! Details: " & err.description)
End If
End Sub
Private Sub object981O()
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 object982O()
err.clear
%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'нижний колонтитул' correctly! Details: " & err.description)
End If
End Sub
Private Sub object997O()
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 = 369
ContainerInfo.ContentName = "Разделы сайта"
AddValue "dynamicContentNameSource", "CONTENT_369 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible IS NOT NULL " & "AND c.status_type_id = 139 " &" 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 "Картинка", 1434, 8, False, 369
End If
ContainerInfo.Init cmd, 51, 369, 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 object994O()
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 = 369
ContainerInfo.ContentName = "Разделы сайта"
AddValue "dynamicContentNameSource", "CONTENT_369 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 139 " &" 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 "Картинка", 1434, 8, False, 369
End If
ContainerInfo.Init cmd, 51, 369, 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("Формирование ссылки")
%>
<%
.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 object983O()
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 object995O()
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 = 369
ContainerInfo.ContentName = "Разделы сайта"
AddValue "dynamicContentNameSource", "CONTENT_369 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 139 " &" 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 "Картинка", 1434, 8, False, 369
End If
ContainerInfo.Init cmd, 51, 369, 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("Формирование ссылки")
%>
<% 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 object989O()
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 object998O()
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 = 369
ContainerInfo.ContentName = "Разделы сайта"
AddValue "dynamicContentNameSource", "CONTENT_369 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 139 " &" 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 "Картинка", 1434, 8, False, 369
End If
ContainerInfo.Init cmd, 51, 369, 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 object1026O()
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("Наличие подпунктов")
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 object1068O()
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 object1000O()
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 = 369
ContainerInfo.ContentName = "Разделы сайта"
AddValue "dynamicContentNameSource", "CONTENT_369 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 139 " &" and c.archive = 0" & GetContainerFilterExpression("[Родитель] = " & NumValue("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 "Картинка", 1434, 8, False, 369
End If
ContainerInfo.Init cmd, 51, 369, 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("Формирование ссылки")
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 object1077O()
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")%>
Step 3 of 3
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'шаг 3' correctly! Details: " & err.description)
End If
End Sub
Private Sub object1081O()
err.clear
%>
<% Object("Скрипт 2 шага")%>
Step 2 of 3
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'шаг 2' correctly! Details: " & err.description)
End If
End Sub
Private Sub object1085O()
err.clear
%>
<% dim body, contentName, i, date
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
%>Your order was successfully booked. We'll contact you within 24 hours.<%
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 object1082O()
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 = 393
ContainerInfo.ContentName = "Города"
AddValue "dynamicContentNameSource", "CONTENT_393 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 139 " &" 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, 51, 393, 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 object1083O()
err.clear
%><% dim i
for i = 1 to Value("count" & Value("select_to"))
%>
Ticket <%=i%>
Last Name:*
First Name:*
Patronymic Name:*
Birthday:
<% if Session("end") = "1" then %>
Order return ticket:
<% end if %>
Benefits:
<%
next
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'билеты' correctly! Details: " & err.description)
End If
End Sub
Private Sub object1074O()
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 = 383
ContainerInfo.ContentName = "Расписание"
AddValue "dynamicContentNameSource", "CONTENT_383 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 139 " &" 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, 51, 383, 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 object1102O()
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
%> There is no transit flight for requested date. Please, read information about the closest flight
<%
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
%> There are no records in the timetable for requested transit flight and period
<%
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("Рейсы")
if Value("end_date") = "" then
%> There is no transit flight for requested date. Please, read information about the closest flight
<%
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
%> There are no records in the timetable for requested transit flight and period
<%
AddValue "chains_present", ""
else
AddValue "check_time", ""
AddValue "start_date", Value("real_date_" & Value("global_air_target"))
AddValue "end_date", ""
Object("Рейсы")
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 object1099O()
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("Рейсы")
AddValue "real_date_to", Value("end_date")
if Value("real_date_to") = "" then
%> There is no flight for requested date. Please, read information about the closest flight
<%
AddValue "end_date", ""
AddValue "start_date", Value("date_to")
Object("Поиск оптимальной даты следующего рейса")
AddValue "real_date_to", Value("end_date")
if Value("real_date_to") = "" then
%> There are no records in the timetable for requested flight and period
<%
else
AddValue "has_choice", "yes"
AddValue "end_date", ""
AddValue "start_date", Value("real_date_to")
Object("Рейсы")
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 object1100O()
err.clear
%><% if dateDiff("d", Value("real_date_to"), Value("date_from")) <= 0 then
AddValue("date_from"), dateAdd("d", 1, Value("real_date_to"))
%> The return flight was shifted for a few time afterwards in compliance with outward date.
<%
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("Рейсы")
AddValue "real_date_from", Value("end_date")
if Value("real_date_from") = "" then
%> There is no return flight for requested date. Please, read information about closest flight:
<%
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("Рейсы")
AddValue "real_date_from", Value("end_date")
if Value("real_date_from") = "" then
%> There are no records in the timetable for requested flight and period
<%
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 object1101O()
err.clear
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'скрипт 2 шага' correctly! Details: " & err.description)
End If
End Sub
Private Sub object1086O()
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 & "
"
if Value("benefit" & i ) <> "" then
body = body & "
" & Value("benefit" & i ) & "
"
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 & "
"
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 object1084O()
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 = 392
ContainerInfo.ContentName = "Заказы льготы"
AddValue "dynamicContentNameSource", "CONTENT_392 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 139 " &" 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, 51, 392, 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 object1073O()
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 = 383
ContainerInfo.ContentName = "Расписание"
AddValue "dynamicContentNameSource", "CONTENT_383 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 139 " &" 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, 51, 383, 1, 0
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%><% dim cl, currentWeekDay, inDate, outDate, temp, deltaDate
if ContainerInfo.IsFirst then AddValue "I", 0
if (dateDiff("d",Value("start_date"),Field("Действительно_до")) >= 0) and (dateDiff("d",Value("start_date"), Field("Действительно_с")) <= 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(Field("День_недели"), currentWeekDay) > 0 then
inDate = CDate(Value("start_date") & " " & Value("start_time"))
outDate = CDate(Value("start_date") & " " & Field("Московское_время_вылета"))
temp = dateDiff("h", inDate, outDate)
if Value("check_time") = "" or dateDiff("h", inDate, outDate) >= Value("transit_time") then
if Value("I") = 0 then %>
Flight
Aircraft
Class
From
To
Outward
Take off time
Arrival time
<% if Value("has_choice") = "yes" then %>
Selected
<% end if %>
<% if Value("has_number") = "yes" then %>
Amount of tickets
<% end if %>
<% end if
AddValue "I", Value("I") + 1
if (Value("I") mod 2) = 0 then
cl = "bgWhite"
else
cl = "bgWhite1"
end if
%>
align=center>" value="<%=Field("Рейс")%>" <% if Value("I") = 1 then %>checked<% end if %>>
<% else %>" value="<%=Field("Рейс")%>"><% end if%>
<% if Value("has_number") = "yes" then %>
>" value="0" maxlength=2>
<% end if %>
" value="<%=Value("start_date")%>">
<%
AddValue "end_date", Value("start_date")
deltaDate = dateDiff("h", Field("Местное_время_вылета"), Field("Местное_время_прибытия"))
if deltaDate < -1 then
AddValue "end_date", dateAdd("d", 1, Value("end_date"))
else
end if
AddValue "end_time", Field("Московское_время_прибытия")
end if ' успевают пересесть
end if 'День недели
end if ' only_one_record
end if 'dateDiff
%>
<% if ContainerInfo.IsLast and Value("I") > 0 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 object1098O()
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 = 383
ContainerInfo.ContentName = "Расписание"
AddValue "dynamicContentNameSource", "CONTENT_383 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 139 " &" 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, 51, 383, 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 object1090O()
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("получить фильтр страницы")
object990O
Case Trim("параметры страницы")
object991O
Case Trim("css")
object977O
Case Trim("javascript")
object978O
Case Trim("body javascript")
object996O
Case Trim("шапка")
object979O
Case Trim("меню")
object980O
Case Trim("центральная часть")
object981O
Case Trim("нижний колонтитул")
object982O
Case Trim("hm_arrays level 1")
object997O
Case Trim("пункты меню")
object994O
Case Trim("лучшие виды из иллюминаторов")
object983O
Case Trim("братья раздела")
object995O
Case Trim("основной блок")
object989O
Case Trim("hm_arrayitems")
object998O
Case Trim("формирование ссылки")
object1026O
Case Trim("центр")
object1068O
Case Trim("наличие подпунктов")
object1000O
Case Trim("шаг 3")
object1077O
Case Trim("шаг 2")
object1081O
Case Trim("шаг 4")
object1085O
Case Trim("выкупить билет список городов")
object1082O
Case Trim("билеты")
object1083O
Case Trim("проверка прямого рейса")
object1074O
Case Trim("обработка непрямых рейсов")
object1102O
Case Trim("обработка рейсов")
object1099O
Case Trim("обработка обратных рейсов")
object1100O
Case Trim("скрипт 2 шага")
object1101O
Case Trim("таблица билетов")
object1086O
Case Trim("список льгот")
object1084O
Case Trim("рейсы")
object1073O
Case Trim("поиск оптимальной даты следующего рейса")
object1098O
Case Trim("класс")
object1090O
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") %>
Domodedovo Airlines - <%=Value("current_page_name")%>
<% Object("CSS") %>
<% Object("Javascript")%>
<% Object("Body Javascript")%>
<%else%>
<%end if%>
"" then %> target=_blank <% end if
%> href="<%=Value("result_link")%>" class=sibling><%=Field("Заголовок")%>
