Treemenu - som er noget gammelt rod!
Hej Eksperter,Jeg sidder og roder med noget hjemmeside jeg lavede for længe siden. Det er en bunke rod uden lige og jeg er simpelthen gået helt kold i at få skrevet det bedre.
Jeg vil gerne tilføje flere sub-niveauer, men jeg er gået helt kold... Den nuværende kode giver ét sub-niveau, men jeg har ikke kunne tøjle det så i stedet for menuen er der blot en "Gå tilbage" knap...
Jeg har ideelt brug for 2/3 sub-niveauer.
KODEN:
'#############################################################
' Venstre Side Menu
'#############################################################
response.write "<td class=""VsideMenu"" valign=""top"" align=""left"" rowspan=""2"">"
If Request.Querystring("goback") = "yes" then
response.write "<span class=""menuChosen""><a href=""java script:history.go(-1);"" class=""menuLvl3Open"">Gå tilbage</a></span>"
End if
If Request.Querystring("grpid") = "" then
intGrpID = "1"
Else
intGrpID = Request.Querystring("grpid")
End if
set objRec8 = server.createobject("ADODB.recordset")
strSQL = "SELECT * FROM hjemmeside_dokumenter WHERE menu_side = '"& intGrpID &"' ORDER BY sortering_side ASC"
objRec8.Open strSQL, objConn, 3, 1, 1
while not objRec8.EOF
if CInt(objRec8("id")) = CInt(sidemenu) then
response.write "<span class=""menuChosen""><a href=""dokumenter.asp?topmenu="& intID &"&undermenu="& intID2 &"&dokid="& objRec8("id") &"&grpid="& intGrpID &""" class=""menuLvl3Open"">"& objRec8("titel") &"</a></span>"
'Opreter forbindelse til submenu
set objRec9 = server.createobject("ADODB.recordset")
strSQL = "SELECT * FROM hjemmeside_dokumenter WHERE menu_sidesub = '"& objRec8("id") &"' ORDER BY sortering_side ASC"
objRec9.Open strSQL, objConn, 3, 1, 1
If Request.Querystring("sidemenusub") = "" then
intSidemenusub = "1"
Else
intSidemenusub = Request.Querystring("sidemenusub")
End if
while not objRec9.EOF
if CInt(objRec9("id")) = CInt(intSidemenusub) then
response.write "<span class=""menuChosen""><a href=""dokumenter.asp?topmenu="& intID &"&undermenu="& intID2 &"&dokid="& objRec9("id") &"&grpid="& objRec9("id") &"&sidemenusub="& sidemenusub &"&goback=yes"" class=""menuLvl4Open"">"& objRec9("titel") &"</a></span>"
else
response.write "<span class=""menu""><a href=""dokumenter.asp?topmenu="& intID &"&undermenu="& intID2 &"&dokid="& objRec9("id") &"&grpid="& objRec9("id") &"&sidemenusub="& sidemenusub &"&goback=yes"" class=""menuLvl4None"">"& objRec9("titel") &"</a></span>"
end if
objRec9.MoveNext
Wend
objRec9.close
else
response.write "<span class=""menu""><a href=""dokumenter.asp?topmenu="& intID &"&undermenu="& intID2 &"&dokid="& objRec8("id") &"&grpid="& intGrpID &""" class=""menuLvl3Closed"">"& objRec8("titel") &"</a></span>"
end if
objRec8.MoveNext
Wend
objRec8.close
response.write "</td>"
Håber der er nogen som kan hjælpe med denne satan.