% response.Expires=0
Response.Buffer=true
Response.ContentType="text/html"
Response.CharSet ="windows-1251"
dim dbObj, strSql, rst, strMenu,i, rst1, strLeftMenu
Set DBObj = Server.CreateObject("ADODB.Connection")
DBObj.Open Application("dsnAD")
'''
public nav_keyWords,nav_Description, nav_Title, nav_text, nav_titimg, strFoot
actMenu=3
if Request("ser")<>"" then actSubMenu=Request("ser")
actSubMenuHas=hasSubMenu(dbObj,actMenu)
strmainMenu=CreateMainMenu(dbObj,actMenu,actSubMenuHas)
'''
''
on error resume next
if Request("nav")="" then
actSubMenu=9
else
actSubMenu=clng(Request("nav"))
end if
strLeftMenu=CreateLeftMenu(dbObj,actMenu,actSubMenu)
%>
<% u = ""
if Request.ServerVariables("PATH_INFO")="/default.asp" then 'Подставить сюда ваш default-document
u = Request.ServerVariables("SERVER_NAME")
else
u = Request.ServerVariables("SERVER_NAME") + Request.ServerVariables("PATH_INFO")
if Request.ServerVariables("QUERY_STRING")<>"" then
u = u + "?" + Request.ServerVariables("QUERY_STRING")
end if
end if
REQUEST_STRING="http://universal.mainlink.ru/l.aspx?u="+Server.URLEncode(u)
Set xmlServerHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
xmlServerHttp.Open "GET", REQUEST_STRING, false
Call xmlServerHttp.Send()
respHTML = xmlServerHttp.responseTEXT
Set xmlServerHttp = Nothing
Response.CharSet = "windows-1251"
Response.Write(respHTML)
%>