<%@ 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=50
page_id=265
Dim QP_IsInStageMode
QP_IsInStageMode = False
'define response properties
Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.6 Wed, 16 Sep 2009 11:24:08 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(50)
PublishedStatusName=GetMaximumWeightStatusTypeName(50)
FillValues
Private Sub object806TO()
err.clear
%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'css' correctly! Details: " & err.description)
End If
End Sub
Private Sub object1186O()
err.clear
%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'шапка' correctly! Details: " & err.description)
End If
End Sub
Private Sub object1184O()
err.clear
%>
По набранному адресу ничего нет.
Причины, которые могли привести к ошибке:
Неправильно набран адрес.
Такой страницы никогда не было на этом сайте.
Зайдите на главную страницу.
Такая страница была, но по этому адресу ее больше нет.
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'центральная часть' correctly! Details: " & err.description)
End If
End Sub
Private Sub object1187O()
err.clear
%>
<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'нижний колонтитул' 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("akdal.css")
object806TO
Case Trim("шапка")
object1186O
Case Trim("центральная часть")
object1184O
Case Trim("нижний колонтитул")
object1187O
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
%>
Авиакомпания «Домодедовские авиалинии» - <%=Value("current_page_name")%>
<% Object("akdal.CSS") %>
