<%@ 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=184
Dim QP_IsInStageMode
QP_IsInStageMode = False
'define response properties
Response.AddHeader "publisher", "Quantum Art's Q-Publishing 6.5 (http://www.quantumart.com) 10 марта 2007 г. 11:47:24"
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 object828O()
err.clear
%><% Object("form") %>
<% if Request.TotalBytes = 0 then %>
<% else AddFormToContent "Доска объявлений", "Published" %>
<% end if %><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'body' correctly! Details: " & err.description)
End If
End Sub
Private Sub object829O()
err.clear
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'form' 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("body")
object828O
Case Trim("form")
object829O
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("Body") %>
<%
DisposeValues
cnn.Close
%>