<%@ 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=50 page_id=216 Dim QP_IsInStageMode QP_IsInStageMode = False 'define response properties Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.6 Wed, 16 Sep 2009 11:23:48 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 object960O() err.clear %>Карта сайта<% If Err.Number <> 0 Then Response.write("Unable to display object 'заголовок' correctly!
Details: " & err.description) End If End Sub Private Sub object961O() 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 object962O() err.clear %>
Адрес: 142015, Московская область, Домодедовский район, аэропорт "Домодедово", ОАО АК "ДАЛ"
Телефон: (095) 504-03-20


Печать/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 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 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("заголовок") object960O Case Trim("css") object961O Case Trim("центральная часть") object962O Case Trim("akdal.css") object806TO 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 %>