<%
'get datasource using DSNless connection
cst = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("database\components.mdb")
set conn = server.createobject("adodb.connection")
conn.open cst
sqlm = "SELECT mmenuCategoryID,mmenuTitle,mmenuDefaultPage,mmenuOrder FROM tblMenuMain ORDER BY mmenuOrder"
Set rsm = Server.CreateObject("ADODB.Recordset")
rsm.Open sqlm, conn, 3, 3
'Find the state
SCRIPT_NAME=mid(Request.ServerVariables("SCRIPT_NAME"),instrrev(Request.ServerVariables("SCRIPT_NAME"),"/")+1)
set snm=conn.execute("SELECT mmenuCategoryID FROM tblMenuMain WHERE mmenuDefaultPage='"&SCRIPT_NAME&"'")
if snm.eof then
set sn=conn.execute("SELECT menuCategory FROM tblMenu WHERE menuFileName='"&SCRIPT_NAME&"'")
if sn.eof then
myBtn=0
else
myBtn=sn("menuCategory")
sn.close : set sn=nothing
end if
else
myBtn=snm("mmenuCategoryID")
snm.close : set sn=nothing
end if
'if a link has been pressed then get the sub links
if myBtn<>0 then
myLinks=""
sqlm2 = "SELECT menuID,menuCategory,menuPageName,menuFileName,menuOrder FROM tblMenu WHERE menuCategory="&myBtn&" ORDER BY menuOrder "
set rsm2=conn.execute(sqlm2)
On Error Resume Next
rsm2.MoveFirst
do while Not rsm2.eof
menuFileName=rsm2("menuFileName")
if menuFileName=SCRIPT_NAME then
myLinks=myLinks&"
"&rsm2("menuPageName")&"