<%@ 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=37
page_id=146
Dim QP_IsInStageMode
QP_IsInStageMode = False
'define response properties
Response.AddHeader "publisher", "Quantum Art's Q-Publishing 6.5 (http://www.quantumart.com) 8 августа 2008 г. 13:25:35"
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(32)
upload_url = "/upload/images"
base_upload_url = "/upload/"
object_call_depth = 0
published_status_type_id=GetMaximumWeightStatusTypeId(37)
PublishedStatusName=GetMaximumWeightStatusTypeName(37)
FillValues
Private Sub object564O()
err.clear
%>Бетономешалки [РУ]: бетономешалки, строительное оборудование и техника, бетон и пенобетон<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'title' correctly! Details: " & err.description)
End If
End Sub
Private Sub object565O()
err.clear
%>бетономешалки, бетоносмесители, растворомешалки, растворосмесители, автобетоносмесители<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'meta_keywords' correctly! Details: " & err.description)
End If
End Sub
Private Sub object566O()
err.clear
%>Бетономешалки [РУ]: первый интернет-журнал для производителей и продавцов бетоносмесительной и строительной техники.<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'meta_description' correctly! Details: " & err.description)
End If
End Sub
Private Sub object574O()
err.clear
%>
интернет-журнал о строительной технике и оборудовании
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'header' correctly! Details: " & err.description)
End If
End Sub
Private Sub object580O()
err.clear
%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'body' correctly! Details: " & err.description)
End If
End Sub
Private Sub object575O()
err.clear
%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'footer' correctly! Details: " & err.description)
End If
End Sub
Private Sub object578O()
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
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_255 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[order] asc",NULL), 1, 0,0)
Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset")
InitContainerFieldsNew ContainerInfo.RecordSet
With ContainerInfo.RecordSet
.CursorLocation = adUseClient
.Open cmd,, adOpenForwardOnly, adLockReadOnly
If .State <> adStateClosed Then
ContainerInfo.Init cmd, 37, 255, 1, 0
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%><% if containerinfo.isfirst then %>
<% end if %>
<% end if %><%
ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "menu"
.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 'menu' correctly! Details: " & err.description)
End If
End Sub
Private Sub object581O()
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
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_256 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[order] asc",NULL), 1, 0,0)
Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset")
InitContainerFieldsNew ContainerInfo.RecordSet
With ContainerInfo.RecordSet
.CursorLocation = adUseClient
.Open cmd,, adOpenForwardOnly, adLockReadOnly
If .State <> adStateClosed Then
ContainerInfo.Init cmd, 37, 256, 1, 0
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%><% if not (containerinfo.currentrecord mod 2) = 0 then %>
<% end if %><%
ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "vert_menu"
.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 'vert_menu' correctly! Details: " & err.description)
End If
End Sub
Private Sub object674O()
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
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_306 AS c WITH (NOLOCK)", "c.visible IS NOT NULL " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[date] desc",NULL), 1, 4,1)
Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset")
InitContainerFieldsNew ContainerInfo.RecordSet
With ContainerInfo.RecordSet
.CursorLocation = adUseClient
.Open cmd,, adOpenForwardOnly, adLockReadOnly
If .State <> adStateClosed Then
ContainerInfo.Init cmd, 37, 306, 1, 4
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%>
<%
ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "new_messages"
.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 'new_messages' correctly! Details: " & err.description)
End If
End Sub
Private Sub object583O()
err.clear
%>
Хотите получать новости нашего сайта на свой e-mail?
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'order_form' correctly! Details: " & err.description)
End If
End Sub
Private Sub object582O()
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
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_257 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[date] desc",NULL), 1, 6,1)
Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset")
InitContainerFieldsNew ContainerInfo.RecordSet
With ContainerInfo.RecordSet
.CursorLocation = adUseClient
.Open cmd,, adOpenForwardOnly, adLockReadOnly
If .State <> adStateClosed Then
ContainerInfo.Init cmd, 37, 257, 1, 6
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%><%
dim utils
Set utils = Server.CreateObject("QA.Utils")
%>
<% end if %>
<% Set utils = Nothing %><%
ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "news"
.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 'news' correctly! Details: " & err.description)
End If
End Sub
Private Sub object584O()
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
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_259 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[date] desc",NULL), 1, 1,0)
Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset")
InitContainerFieldsNew ContainerInfo.RecordSet
With ContainerInfo.RecordSet
.CursorLocation = adUseClient
.Open cmd,, adOpenForwardOnly, adLockReadOnly
If .State <> adStateClosed Then
ContainerInfo.Init cmd, 37, 259, 1, 1
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%><%
dim utils
Set utils = Server.CreateObject("QA.Utils")
%>
<% Set utils = Nothing %><%
ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "interview"
.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 'interview' correctly! Details: " & err.description)
End If
End Sub
Private Sub object675O()
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
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_268 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[Date] desc",NULL), 1, 7,1)
Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset")
InitContainerFieldsNew ContainerInfo.RecordSet
With ContainerInfo.RecordSet
.CursorLocation = adUseClient
.Open cmd,, adOpenForwardOnly, adLockReadOnly
If .State <> adStateClosed Then
ContainerInfo.Init cmd, 37, 268, 1, 7
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%><%
dim utils
Set utils = Server.CreateObject("QA.Utils")
%>
<%
ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "new_tec"
.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 'new_tec' correctly! Details: " & err.description)
End If
End Sub
Private Sub object676O()
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
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_271 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[date] desc",NULL), 1, 7,1)
Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset")
InitContainerFieldsNew ContainerInfo.RecordSet
With ContainerInfo.RecordSet
.CursorLocation = adUseClient
.Open cmd,, adOpenForwardOnly, adLockReadOnly
If .State <> adStateClosed Then
ContainerInfo.Init cmd, 37, 271, 1, 7
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%><%
dim utils
Set utils = Server.CreateObject("QA.Utils")
%>
<% Set utils = Nothing %><%
ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "new_site"
.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 'new_site' 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 32
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 > 32 then CallStackOverflow
object_call_stack(object_call_depth) = name
Select Case Trim(lCase(name))
Case Trim("title")
object564O
Case Trim("meta_keywords")
object565O
Case Trim("meta_description")
object566O
Case Trim("header")
object574O
Case Trim("body")
object580O
Case Trim("footer")
object575O
Case Trim("menu")
object578O
Case Trim("vert_menu")
object581O
Case Trim("new_messages")
object674O
Case Trim("order_form")
object583O
Case Trim("news")
object582O
Case Trim("interview")
object584O
Case Trim("new_tec")
object675O
Case Trim("new_site")
object676O
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("title") %>
">
">
<% Object("Header") %>
<% Object("Body") %>
<% Object("Footer") %>
<%
DisposeValues
cnn.Close
%>
