<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'нижний колонтитул' correctly! Details: " & err.description)
End If
qp_trace_timer.StopTimer()
if Right(traceString, Len(traceStartText & " ")) = traceStartText & " " then
traceString = Left(traceString, Len(traceString) - Len(traceStartText & " "))
traceString = traceString & qp_trace_timer.GetTickCount() & "ms "
else
traceString = traceString & object_call_depth & "-" & "811-" & qp_trace_timer.GetTickCount() & "ms "
end if
Set qp_trace_timer = Nothing
End Sub
Private Sub object829O()
err.clear
dim qp_trace_timer, qp_i, traceIndent, qp_def_values, qp_key
Set qp_def_values = Server.CreateObject("Scripting.Dictionary")
For Each qp_key In qp_def_values.Keys
If qp_def_values(qp_key) = "" Then qp_def_values(qp_key) = Value(qp_key)
Next
Set qp_trace_timer = Server.CreateObject("QA_Timer.IQA_Timer")
qp_trace_timer.StartTimer()
traceString = traceString & object_call_depth & "-" & "829"
traceString = traceString & "Def:"
For Each qp_key In qp_def_values.Keys
traceString = traceString & "Value(" & qp_key & ")=" & qp_def_values(qp_key) & ";"
Next
traceString = traceString & "Undef:"
traceString = traceString & traceStartText & " "
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
qp_trace_timer.StopTimer()
if Right(traceString, Len(traceStartText & " ")) = traceStartText & " " then
traceString = Left(traceString, Len(traceString) - Len(traceStartText & " "))
traceString = traceString & qp_trace_timer.GetTickCount() & "ms "
else
traceString = traceString & object_call_depth & "-" & "829-" & qp_trace_timer.GetTickCount() & "ms "
end if
Set qp_trace_timer = Nothing
End Sub
Private Sub object826TO()
err.clear
dim qp_trace_timer, qp_i, traceIndent, qp_def_values, qp_key
Set qp_def_values = Server.CreateObject("Scripting.Dictionary")
qp_def_values.Add "result_link", ""
qp_def_values.Add "new_window", ""
For Each qp_key In qp_def_values.Keys
If qp_def_values(qp_key) = "" Then qp_def_values(qp_key) = Value(qp_key)
Next
Set qp_trace_timer = Server.CreateObject("QA_Timer.IQA_Timer")
qp_trace_timer.StartTimer()
traceString = traceString & object_call_depth & "-" & "826"
traceString = traceString & "Def:"
For Each qp_key In qp_def_values.Keys
traceString = traceString & "Value(" & qp_key & ")=" & qp_def_values(qp_key) & ";"
Next
traceString = traceString & "Undef:"
traceString = traceString & traceStartText & " "
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.Формирование ссылки")
%>
<%
.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
qp_trace_timer.StopTimer()
if Right(traceString, Len(traceStartText & " ")) = traceStartText & " " then
traceString = Left(traceString, Len(traceString) - Len(traceStartText & " "))
traceString = traceString & qp_trace_timer.GetTickCount() & "ms "
else
traceString = traceString & object_call_depth & "-" & "826-" & qp_trace_timer.GetTickCount() & "ms "
end if
Set qp_trace_timer = Nothing
End Sub
Private Sub object812O()
err.clear
dim qp_trace_timer, qp_i, traceIndent, qp_def_values, qp_key
Set qp_def_values = Server.CreateObject("Scripting.Dictionary")
qp_def_values.Add "current_page_image", ""
For Each qp_key In qp_def_values.Keys
If qp_def_values(qp_key) = "" Then qp_def_values(qp_key) = Value(qp_key)
Next
Set qp_trace_timer = Server.CreateObject("QA_Timer.IQA_Timer")
qp_trace_timer.StartTimer()
traceString = traceString & object_call_depth & "-" & "812"
traceString = traceString & "Def:"
For Each qp_key In qp_def_values.Keys
traceString = traceString & "Value(" & qp_key & ")=" & qp_def_values(qp_key) & ";"
Next
traceString = traceString & "Undef:"
traceString = traceString & traceStartText & " "
%>" border=0><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'лучшие виды из иллюминаторов' correctly! Details: " & err.description)
End If
qp_trace_timer.StopTimer()
if Right(traceString, Len(traceStartText & " ")) = traceStartText & " " then
traceString = Left(traceString, Len(traceString) - Len(traceStartText & " "))
traceString = traceString & qp_trace_timer.GetTickCount() & "ms "
else
traceString = traceString & object_call_depth & "-" & "812-" & qp_trace_timer.GetTickCount() & "ms "
end if
Set qp_trace_timer = Nothing
End Sub
Private Sub object827O()
err.clear
dim qp_trace_timer, qp_i, traceIndent, qp_def_values, qp_key
Set qp_def_values = Server.CreateObject("Scripting.Dictionary")
qp_def_values.Add "current_page_id", ""
qp_def_values.Add "new_window", ""
qp_def_values.Add "result_link", ""
qp_def_values.Add "parent_filter", ""
For Each qp_key In qp_def_values.Keys
If qp_def_values(qp_key) = "" Then qp_def_values(qp_key) = Value(qp_key)
Next
Set qp_trace_timer = Server.CreateObject("QA_Timer.IQA_Timer")
qp_trace_timer.StartTimer()
traceString = traceString & object_call_depth & "-" & "827"
traceString = traceString & "Def:"
For Each qp_key In qp_def_values.Keys
traceString = traceString & "Value(" & qp_key & ")=" & qp_def_values(qp_key) & ";"
Next
traceString = traceString & "Undef:"
traceString = traceString & traceStartText & " "
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("Формирование ссылки")
%>
<% 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
qp_trace_timer.StopTimer()
if Right(traceString, Len(traceStartText & " ")) = traceStartText & " " then
traceString = Left(traceString, Len(traceString) - Len(traceStartText & " "))
traceString = traceString & qp_trace_timer.GetTickCount() & "ms "
else
traceString = traceString & object_call_depth & "-" & "827-" & qp_trace_timer.GetTickCount() & "ms "
end if
Set qp_trace_timer = Nothing
End Sub
Private Sub object821O()
err.clear
dim qp_trace_timer, qp_i, traceIndent, qp_def_values, qp_key
Set qp_def_values = Server.CreateObject("Scripting.Dictionary")
qp_def_values.Add "current_page_name", ""
For Each qp_key In qp_def_values.Keys
If qp_def_values(qp_key) = "" Then qp_def_values(qp_key) = Value(qp_key)
Next
Set qp_trace_timer = Server.CreateObject("QA_Timer.IQA_Timer")
qp_trace_timer.StartTimer()
traceString = traceString & object_call_depth & "-" & "821"
traceString = traceString & "Def:"
For Each qp_key In qp_def_values.Keys
traceString = traceString & "Value(" & qp_key & ")=" & qp_def_values(qp_key) & ";"
Next
traceString = traceString & "Undef:"
traceString = traceString & traceStartText & " "
%>
<%=Value("current_page_name")%>
<%Object("Центр")%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'основной блок' correctly! Details: " & err.description)
End If
qp_trace_timer.StopTimer()
if Right(traceString, Len(traceStartText & " ")) = traceStartText & " " then
traceString = Left(traceString, Len(traceString) - Len(traceStartText & " "))
traceString = traceString & qp_trace_timer.GetTickCount() & "ms "
else
traceString = traceString & object_call_depth & "-" & "821-" & qp_trace_timer.GetTickCount() & "ms "
end if
Set qp_trace_timer = Nothing
End Sub
Private Sub object830O()
err.clear
dim qp_trace_timer, qp_i, traceIndent, qp_def_values, qp_key
Set qp_def_values = Server.CreateObject("Scripting.Dictionary")
qp_def_values.Add "result_link", ""
qp_def_values.Add "menu_filter", ""
For Each qp_key In qp_def_values.Keys
If qp_def_values(qp_key) = "" Then qp_def_values(qp_key) = Value(qp_key)
Next
Set qp_trace_timer = Server.CreateObject("QA_Timer.IQA_Timer")
qp_trace_timer.StartTimer()
traceString = traceString & object_call_depth & "-" & "830"
traceString = traceString & "Def:"
For Each qp_key In qp_def_values.Keys
traceString = traceString & "Value(" & qp_key & ")=" & qp_def_values(qp_key) & ";"
Next
traceString = traceString & "Undef:"
traceString = traceString & traceStartText & " "
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
qp_trace_timer.StopTimer()
if Right(traceString, Len(traceStartText & " ")) = traceStartText & " " then
traceString = Left(traceString, Len(traceString) - Len(traceStartText & " "))
traceString = traceString & qp_trace_timer.GetTickCount() & "ms "
else
traceString = traceString & object_call_depth & "-" & "830-" & qp_trace_timer.GetTickCount() & "ms "
end if
Set qp_trace_timer = Nothing
End Sub
Private Sub object863TO()
err.clear
dim qp_trace_timer, qp_i, traceIndent, qp_def_values, qp_key
Set qp_def_values = Server.CreateObject("Scripting.Dictionary")
qp_def_values.Add "item_link", ""
qp_def_values.Add "item_id", ""
qp_def_values.Add "first_level", ""
For Each qp_key In qp_def_values.Keys
If qp_def_values(qp_key) = "" Then qp_def_values(qp_key) = Value(qp_key)
Next
Set qp_trace_timer = Server.CreateObject("QA_Timer.IQA_Timer")
qp_trace_timer.StartTimer()
traceString = traceString & object_call_depth & "-" & "863"
traceString = traceString & "Def:"
For Each qp_key In qp_def_values.Keys
traceString = traceString & "Value(" & qp_key & ")=" & qp_def_values(qp_key) & ";"
Next
traceString = traceString & "Undef:"
traceString = traceString & traceStartText & " "
%><%
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
qp_trace_timer.StopTimer()
if Right(traceString, Len(traceStartText & " ")) = traceStartText & " " then
traceString = Left(traceString, Len(traceString) - Len(traceStartText & " "))
traceString = traceString & qp_trace_timer.GetTickCount() & "ms "
else
traceString = traceString & object_call_depth & "-" & "863-" & qp_trace_timer.GetTickCount() & "ms "
end if
Set qp_trace_timer = Nothing
End Sub
Private Sub object863O()
err.clear
dim qp_trace_timer, qp_i, traceIndent, qp_def_values, qp_key
Set qp_def_values = Server.CreateObject("Scripting.Dictionary")
qp_def_values.Add "item_link", ""
qp_def_values.Add "item_id", ""
qp_def_values.Add "first_level", ""
For Each qp_key In qp_def_values.Keys
If qp_def_values(qp_key) = "" Then qp_def_values(qp_key) = Value(qp_key)
Next
Set qp_trace_timer = Server.CreateObject("QA_Timer.IQA_Timer")
qp_trace_timer.StartTimer()
traceString = traceString & object_call_depth & "-" & "863"
traceString = traceString & "Def:"
For Each qp_key In qp_def_values.Keys
traceString = traceString & "Value(" & qp_key & ")=" & qp_def_values(qp_key) & ";"
Next
traceString = traceString & "Undef:"
traceString = traceString & traceStartText & " "
%><%
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
qp_trace_timer.StopTimer()
if Right(traceString, Len(traceStartText & " ")) = traceStartText & " " then
traceString = Left(traceString, Len(traceString) - Len(traceStartText & " "))
traceString = traceString & qp_trace_timer.GetTickCount() & "ms "
else
traceString = traceString & object_call_depth & "-" & "863-" & qp_trace_timer.GetTickCount() & "ms "
end if
Set qp_trace_timer = Nothing
End Sub
Private Sub object1182O()
err.clear
dim qp_trace_timer, qp_i, traceIndent, qp_def_values, qp_key
Set qp_def_values = Server.CreateObject("Scripting.Dictionary")
qp_def_values.Add "current_page_text", ""
For Each qp_key In qp_def_values.Keys
If qp_def_values(qp_key) = "" Then qp_def_values(qp_key) = Value(qp_key)
Next
Set qp_trace_timer = Server.CreateObject("QA_Timer.IQA_Timer")
qp_trace_timer.StartTimer()
traceString = traceString & object_call_depth & "-" & "1182"
traceString = traceString & "Def:"
For Each qp_key In qp_def_values.Keys
traceString = traceString & "Value(" & qp_key & ")=" & qp_def_values(qp_key) & ";"
Next
traceString = traceString & "Undef:"
traceString = traceString & traceStartText & " "
%> <%=Value("current_page_text")%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'центр' correctly! Details: " & err.description)
End If
qp_trace_timer.StopTimer()
if Right(traceString, Len(traceStartText & " ")) = traceStartText & " " then
traceString = Left(traceString, Len(traceString) - Len(traceStartText & " "))
traceString = traceString & qp_trace_timer.GetTickCount() & "ms "
else
traceString = traceString & object_call_depth & "-" & "1182-" & qp_trace_timer.GetTickCount() & "ms "
end if
Set qp_trace_timer = Nothing
End Sub
Private Sub object832TO()
err.clear
dim qp_trace_timer, qp_i, traceIndent, qp_def_values, qp_key
Set qp_def_values = Server.CreateObject("Scripting.Dictionary")
qp_def_values.Add "parent_id", ""
For Each qp_key In qp_def_values.Keys
If qp_def_values(qp_key) = "" Then qp_def_values(qp_key) = Value(qp_key)
Next
Set qp_trace_timer = Server.CreateObject("QA_Timer.IQA_Timer")
qp_trace_timer.StartTimer()
traceString = traceString & object_call_depth & "-" & "832"
traceString = traceString & "Def:"
For Each qp_key In qp_def_values.Keys
traceString = traceString & "Value(" & qp_key & ")=" & qp_def_values(qp_key) & ";"
Next
traceString = traceString & "Undef:"
traceString = traceString & traceStartText & " "
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
qp_trace_timer.StopTimer()
if Right(traceString, Len(traceStartText & " ")) = traceStartText & " " then
traceString = Left(traceString, Len(traceString) - Len(traceStartText & " "))
traceString = traceString & qp_trace_timer.GetTickCount() & "ms "
else
traceString = traceString & object_call_depth & "-" & "832-" & qp_trace_timer.GetTickCount() & "ms "
end if
Set qp_trace_timer = Nothing
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("центр")
object1182O
Case Trim("akdal.наличие подпунктов")
object832TO
Case Else
Response.Write "Object " & name & " not found. "
End Select
object_call_depth = object_call_depth - 1
End Function
Function LangObject (objectName)
Dim lang
lang = Value ("lang")
if ( lang = "en" or lang = "am" ) then
Object (objectName & "_" & lang)
else
Object (objectName)
end if
End Function
%>
<% Object("Получить фильтр страницы") %>
<% Object("Параметры страницы") %>
<% if Value("wdate") <> "" then Session("wdate") = Value("wdate")
AddValue "wdate", Session("wdate") %>
Авиакомпания «Домодедовские авиалинии» - <%=Value("current_page_name")%>
<% Object("CSS") %>
<% Object("Javascript")%>
<% Object("Body Javascript")%>
<%else%>
<%end if%>
"" then %> target=_blank <% end if
%> href="<%=Value("result_link")%>" class=sibling><%=Field("Заголовок")%>
