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

<%@ 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=193 Dim QP_IsInStageMode QP_IsInStageMode = False 'define response properties Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.6 Wed, 16 Sep 2009 11:22:44 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 object859O() err.clear %><% if Value("id") = "" then Object("Навигация по месяцам") Object("Новости") if Len(Value("count_news")) = 0 then %> Спецпредложений за этот период нет <%end if else Object("Новость") end if %><% If Err.Number <> 0 Then Response.write("Unable to display object 'центр' correctly!
Details: " & err.description) End If End Sub Private Sub object832TO() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal ContainerInfo.ContentID = 334 ContainerInfo.ContentName = "Разделы сайта" AddValue "dynamicContentNameSource", "CONTENT_334 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 131 " &" and c.archive = 0" & GetContainerFilterExpression("[Родитель] = " & Value("parent_id") & " and [Показывать в меню] = 1"), GetContainerOrderExpressionNew("[Порядок] asc",""), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then AppendFieldToDictionary "Картинка", 1191, 8, False, 334 End If ContainerInfo.Init cmd, 50, 334, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if ContainerInfo.IsFirst then AddValue "has_subitems", "1" AddValue "item_id", Field("content_item_id") AddValue "item_link", Field("Ссылка") Object("akdal.Формирование ссылки") end if %><% .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'наличие подпунктов' correctly!
Details: " & err.description) End If End Sub Private Sub object854O() err.clear %><% Object("Минимальная дата")%> <% if Len(Value("wDate"))=0 then AddValue "wDate", Date() end if dim minComparedDate minComparedDate = DateSerial(Year(Value("wdate")), Month(Value("wdate")),1) %> <% if DateDiff("d", Value("min_date"), minComparedDate) >= 0 then %> <% end if %> <% if DateDiff("m", Value("wdate"), Now()) > 0 then %> <% end if %>

?wdate=<%=DateAdd("m",-1,Value("wdate"))%>">

<%=MonthName(Month(Value("wdate")))%> <%=Year(Value("wDate"))%>

?wdate=<%=DateAdd("m",1,Value("wdate"))%>">

<% If Err.Number <> 0 Then Response.write("Unable to display object 'навигация по месяцам' correctly!
Details: " & err.description) End If End Sub Private Sub object861O() 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 = 343 ContainerInfo.ContentName = "Специальные предложения" AddValue "dynamicContentNameSource", "CONTENT_343 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("datepart(month, [Дата]) = " & Month(Value("wdate"))), GetContainerOrderExpressionNew("[Дата] desc",""), 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, 343, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if ContainerInfo.IsFirst then AddValue "count_news", ContainerInfo.TotalRecords end if%>

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

<%=FormatDateTime(Field("Дата"),vbShortDate)%> - <%=Field("Заголовок")%>
<%=Field("Текст")%>

К списку предложений

<% .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'новость' correctly!
Details: " & err.description) End If End Sub Private Sub object860O() 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 = 343 ContainerInfo.ContentName = "Специальные предложения" AddValue "dynamicContentNameSource", "CONTENT_343 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 131 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[Дата] desc",""), 1, 1,1) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then End If ContainerInfo.Init cmd, 50, 343, 1, 1 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% AddValue "min_date", Field("Дата") %><% .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'минимальная дата' correctly!
Details: " & err.description) End If End Sub Private Sub CallStackOverflow() Response.Write "Object Call Stack Overflow
Call Stack:
" dim i for i=1 to 20 Response.Write object_call_stack(i)&"
" next Response.End End Sub Private Function ObjectNS(name) Object(name) End Function Private Function Object(name) object_call_depth = object_call_depth + 1 if object_call_depth > 20 then CallStackOverflow object_call_stack(object_call_depth) = name Select Case Trim(lCase(name)) Case Trim("получить фильтр страницы") object822O Case Trim("параметры страницы") object823O Case Trim("css") object806O Case Trim("javascript") object807O Case Trim("body javascript") object828O Case Trim("шапка") object808O Case Trim("меню") object809O Case Trim("центральная часть") object810O Case Trim("нижний колонтитул") object811O Case Trim("hm_arrays level 1") object829O Case Trim("akdal.пункты меню") object826TO Case Trim("лучшие виды из иллюминаторов") object812O Case Trim("братья раздела") object827O Case Trim("основной блок") object821O Case Trim("hm_arrayitems") object830O Case Trim("akdal.формирование ссылки") object863TO Case Trim("формирование ссылки") object863O Case Trim("центр") object859O Case Trim("akdal.наличие подпунктов") object832TO Case Trim("навигация по месяцам") object854O Case Trim("новости") object861O Case Trim("новость") object862O Case Trim("минимальная дата") object860O 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 %>