<%@ 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=225 Dim QP_IsInStageMode QP_IsInStageMode = False 'define response properties Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.6 Wed, 16 Sep 2009 11:26:30 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 %>
Domodedovo Airlines - Sky like home

" class=txtRed>Russian version
Search
<% 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 %>
© 2004 Domodedovo Airlines
Development: Quantum Art
The site is powered by Q-Publishing 6.1    Powered by
Q-Publishing 6.1
Legal notice
<% 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("Формирование ссылки") %> " <% 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 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("Формирование ссылки") %>
<%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 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 object1018O() err.clear %><% if Value("id") = "" then Object("Навигация по месяцам") Object("Новости") if Value("has_publications") = "" then %>There are no publications in the given time<% 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 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 object1017O() err.clear %><% dim arr arr=Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December") 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"))%>">  <%=arr(Month(Value("wdate"))-1)%> <%=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 object1020O() 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 = 376 ContainerInfo.ContentName = "Пресса о нас" AddValue "dynamicContentNameSource", "CONTENT_376 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("datepart(month, [Дата]) = " & Month(Value("wdate"))), 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, 376, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if ContainerInfo.IsFirst then AddValue "has_publications", 1 %>
<% if Len(Field("Текст")) > 0 then %> "><%=FormatDateTime(Field("Дата"),vbShortDate)%> - <%=Field("Заголовок")%> <% else %> <%=FormatDateTime(Field("Дата"),vbShortDate)%> - <%=Field("Заголовок")%> <% end if %>
<%=Field("Анонс")%>
Source: <% if Len(Field("Ссылка")) > 0 then %> " target=_blank><%=Field("Источник")%> <% else %> <%=Field("Источник")%> <% 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 object1021O() 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 = 376 ContainerInfo.ContentName = "Пресса о нас" AddValue "dynamicContentNameSource", "CONTENT_376 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("[content_item_id] = " & NumValue("id")), 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, 376, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %>
<%=FormatDateTime(Field("Дата"),vbShortDate)%> - <%=Field("Заголовок")%>
<%=Field("Текст")%>
Source: <% if Len(Field("Ссылка")) > 0 then %> " target=_blank><%=Field("Источник")%> <% else %> <%=Field("Источник")%> <% end if %>
To the Publications List
<% .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 object1019O() 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 = 376 ContainerInfo.ContentName = "Пресса о нас" AddValue "dynamicContentNameSource", "CONTENT_376 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, 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, 51, 376, 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("получить фильтр страницы") 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("центр") object1018O Case Trim("наличие подпунктов") object1000O Case Trim("навигация по месяцам") object1017O Case Trim("новости") object1020O Case Trim("новость") object1021O Case Trim("минимальная дата") object1019O 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")%>
<% Object("Шапка")%>
<% Object("Меню") %> <% Object("Центральная часть")%>
<% Object("Нижний колонтитул") %>
<% DisposeValues cnn.Close %>