% 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=7
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=0
else
actSubMenu=clng(Request("nav"))
end if
strLeftMenu=CreateLeftMenu(dbObj,actMenu,actSubMenu)
%>
Дорожно-строительная компания АВАНГАРД в Петербурге - дорожное строительство, дорожно-строительные работы