<%@ 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=41
page_id=164
Dim QP_IsInStageMode
QP_IsInStageMode = False
'define response properties
Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.5 (http://www.quantumart.com) Mon, 22 Dec 2008 16:24: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 = "/upload/images"
site_url = "/live/"
base_upload_url = "/upload/"
object_call_depth = 0
published_status_type_id=GetMaximumWeightStatusTypeId(41)
PublishedStatusName=GetMaximumWeightStatusTypeName(41)
FillValues
Private Sub object690O()
err.clear
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'css' correctly! Details: " & err.description)
End If
End Sub
Private Sub object727O()
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 = 301
ContainerInfo.ContentName = "Фотографии в шапке"
AddValue "dynamicContentNameSource", "CONTENT_301 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 91 " &" and c.archive = 0" & GetContainerFilterExpression(""), "NewId()", 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
AppendFieldToDictionary "Фотография", 1082, 8, False, 301
End If
ContainerInfo.Init cmd, 41, 301, 1, 1
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%><%=ContainerInfo.UploadUrl%>/<%=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 object694O()
err.clear
%>Наши Новости<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'head2' correctly! Details: " & err.description)
End If
End Sub
Private Sub object692O()
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 = 292
ContainerInfo.ContentName = "Главное меню"
AddValue "dynamicContentNameSource", "CONTENT_292 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 91 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[Order] 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, 41, 292, 1, 0
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%>
<%
.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 object731O()
err.clear
%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'код счетчика' correctly! Details: " & err.description)
End If
End Sub
Private Sub object696O()
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 = 293
ContainerInfo.ContentName = "Основные Страницы"
AddObjectValue "p_id", "1953"
AddValue "dynamicContentNameSource", "CONTENT_293 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 91 " &" and c.archive = 0" & GetContainerFilterExpression("c.content_item_id = " & Value("p_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, 41, 293, 1, 0
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%><%=Field("BlueText")%><%
.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 'addtext' correctly! Details: " & err.description)
End If
End Sub
Private Sub object695O()
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 = 294
ContainerInfo.ContentName = "Новости"
AddObjectValue "p_id", "1953"
AddObjectValue "s_id", "1"
AddObjectValue "start", "1"
AddObjectValue "left_num", "5"
AddObjectValue "right_num", "5"
AddValue "dynamicContentNameSource", "CONTENT_294 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 91 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[Date] desc",""), Value("start"), 10,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, 41, 294, Value("start"), 10
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%><% AddValue "curPos", Value("s_id")%>
<%=Field("Date")%> "><%=Field("Title")%>
<%if (ContainerInfo.IsLast and (ContainerInfo.TotalRecords > ContainerInfo.RecordsPerPage) ) then
AddValue "records_per_page", ContainerInfo.RecordsPerPage
AddValue "total_records", ContainerInfo.TotalRecords
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 'main text' correctly! Details: " & err.description)
End If
End Sub
Private Sub object733O()
err.clear
%>
<%Object("Ban")%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'banner' correctly! Details: " & err.description)
End If
End Sub
Private Sub object701O()
err.clear
%><% AddValue "url", "default.asp?"
if Value("start")="" then
Addvalue "start", 1
end if
AddValue "records_per_page", 10
AddValue "left_num", 5
AddValue "right_num", 5
Response.Write "
"
Object("Page Navigator")
Response.Write "
"
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'lowmenu' correctly! Details: " & err.description)
End If
End Sub
Private Sub object734O()
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 = 305
ContainerInfo.ContentName = "Баннеры"
AddValue "dynamicContentNameSource", "CONTENT_305 AS c WITH (NOLOCK)"
Dim cmd
Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 91 " &" and c.archive = 0" & GetContainerFilterExpression(""), "NewId()", 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
AppendFieldToDictionary "Картинка", 1097, 8, False, 305
End If
ContainerInfo.Init cmd, 41, 305, 1, 1
While Not .EOF
ContainerInfo.Adjust
InitFieldValues ContainerInfo.RecordSet
ContainerInfo.AdjustUploadUrl
%>" <%if Field("Показывать в новом окне")=1 then %>
target="_blank"
<%end if%>>" src="<%=ContainerInfo.UploadUrl%>/<%=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 'ban' correctly! Details: " & err.description)
End If
End Sub
Private Sub object735O()
err.clear
%><%dim i, page, u, a, currPage, allPage, topBorder, bottomBorder
'currPage = Cint(((Value("start")-1)/Value("records_per_page"))+1);
allPage = Cint(Value("total_records"))\Cint(Value("records_per_page"))+1
u = Value("url")
a = Value("add_param")
if len(a)>0 then a=a&"&"%>
<% if Len(Value("CurrPage"))=0 then
AddValue "CurrPage", 1
end if
if (Cint(Value("currPage"))+Cint(Value("right_num")))>allPage then
topBorder = allPage
else
topBorder = Cint(Value("currPage")) + Cint(Value("right_num"))
end if
if (Cint(Value("currPage"))-Cint(Value("left_num")))<1 then
bottomBorder = 1
else
bottomBorder = Cint(Value("currPage")) - Cint(Value("right_num"))
end if
'left dots
if (Cint(Value("currPage")) - Cint(Value("left_num"))) >= 2 then
i = bottomBorder - 1
Response.Write "<<первая "
Response.Write ".. "
end if
'left part
for i = bottomBorder to Cint(Value("currPage")) - 1
Response.Write ""&i&" "
Next
'currnt page
Response.Write ""&Value("currPage")&" "
'right part
for i = Cint(Value("currPage")) + 1 to topBorder
Response.Write ""&i&" "
Next
'right dots
if (Cint(Value("currPage")) + Cint(Value("right_num"))) < allPage then
i = Cint(Value("currPage")) + Cint(Value("right_num")) + 1
Response.Write ".. "
Response.Write "последняя>> "
end if
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'page navigator' 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("css")
object690O
Case Trim("фотографии в шапке")
object727O
Case Trim("head2")
object694O
Case Trim("menu")
object692O
Case Trim("код счетчика")
object731O
Case Trim("addtext")
object696O
Case Trim("main text")
object695O
Case Trim("banner")
object733O
Case Trim("lowmenu")
object701O
Case Trim("ban")
object734O
Case Trim("page navigator")
object735O
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("CSS")%>
ООО ВФ «Блик» © 2003
