<%@ Language = 'VbScript' LCID=1049 CodePage=65001 EnableSessionState=True%>
<% Option Explicit %>
<%
Response.CharSet = "utf-8"
%>
<%
cnn.Open Application("ConnectionString")
Randomize
'defining the global variables
dim site_id, page_id, strSQL
site_id=41
page_id=177
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:44 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 object690TO()
err.clear
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'css' correctly!
Details: " & err.description)
End If
End Sub
Private Sub object727TO()
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 object757O()
err.clear
%>Ошибка 404<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'head2' correctly!
Details: " & err.description)
End If
End Sub
Private Sub object696TO()
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 object754O()
err.clear
%>По набранному адресу ничего нет.
Причины, которые могли привести к ошибке:
- Неправильно набран адрес.
- Такой страницы никогда не было на этом сайте.
Зайдите на главную страницу.
- Такая страница была, но по этому адресу ее больше нет.
Главная страница
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'main text' correctly!
Details: " & err.description)
End If
End Sub
Private Sub object699TO()
err.clear
%><% if Len(Value("p_id")) > 0 then %>
<%end if%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'lowmenu' 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("main page.css")
object690TO
Case Trim("main page.фотографии в шапке")
object727TO
Case Trim("head2")
object757O
Case Trim("main page.addtext")
object696TO
Case Trim("main text")
object754O
Case Trim("main page.lowmenu")
object699TO
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("main page.CSS")%>
 |  " width=145 height=100 hspace=0 vspace=0 border=0> | |  |
| |  | Поставки программ ведущих отечественных и мировых фирм. |
|
| <%Object("Head2")%> |
 |
| |
 |
<%Object("main page.AddText")%> |
<%Object("Main Text")%> | |
 |
| |
|
 |
 |
<%Object("main page.LowMenu")%> |
| |
 ООО ВФ «Блик» © 2003 |
 |
 |  |
 |
<%
DisposeValues
cnn.Close
%>