<%@ 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=51 page_id=245 Dim QP_IsInStageMode QP_IsInStageMode = False 'define response properties Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.6 Wed, 16 Sep 2009 11:27:31 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 = "/eng/upload/images" site_url = "/eng/live/" base_upload_url = "/eng/upload/" object_call_depth = 0 published_status_type_id=GetMaximumWeightStatusTypeId(51) PublishedStatusName=GetMaximumWeightStatusTypeName(51) FillValues Private Sub object1111O() err.clear %>Map<% If Err.Number <> 0 Then Response.write("Unable to display object 'заголовок' correctly!
Details: " & err.description) End If End Sub Private Sub object1112O() err.clear %><%Object("akdal.CSS")%><% If Err.Number <> 0 Then Response.write("Unable to display object 'css' correctly!
Details: " & err.description) End If End Sub Private Sub object1113O() err.clear %>
Address: 145015, Moscow region, Domodedovo district, airport Domodedovo, Joint Stock Company DOMODEDOVO AIRLINES.
Phone: (095) 504-03-20


Print/go.gif border=0>
<% If Err.Number <> 0 Then Response.write("Unable to display object 'центральная часть' correctly!
Details: " & err.description) End If End Sub Private Sub object977TO() err.clear %> <% If Err.Number <> 0 Then Response.write("Unable to display object 'css' 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("заголовок") object1111O Case Trim("css") object1112O Case Trim("центральная часть") object1113O Case Trim("akdal.css") object977TO 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("Заголовок")%> <%Object("CSS")%> <%Object("Центральная часть")%> <% DisposeValues cnn.Close %>