Database styret menu vil ikke virke
Jeg har en menu som bliver styret ud fra en database.Når siden åbner vil hovedmenupunkterne være synlige. Ved klik på en af menuerne skulle der gerne folde sig en submenu ud... Det sker bare ikke ;-)
Har sikkert stiret mig blind på det, håber der er nogen der kan få mine øjne op ;-)
strSQLmen = "SELECT * FROM rese_sider WHERE link_id=0"
Set men = Conn.Execute(strSQLmen) '// HENTER MENUEN FRA MYSQL
If men.EOF Or men.BOF Then '// HVIS RECORD SET ER TOMT ER DER INGEN MENU
Response.Write " <b>NO MENU</b>"
Else
Do '// LØB RECORD SET IGENNEM MED LØKKE
If men("link_type") = "0" Or men("link_type") = "1" Then '// INTERNE LINK
strTarget = "_self"
strLink = Request.ServerVariables("SCRIPT_NAME") & "?Link_ID=" & men("id")
ElseIf men("link_type") = "2" Then '// EKSTERNE LINK
strTarget = "_blank"
strLink = men("link_ref")
End If
Response.Write " <a href=""" & strLink & """ target=""" & strTarget & """ class=""menu_main"">" & men("menu_tekst") & "</a><br>"
If Request.QueryString("Link_ID") = men("id") Then
strSQLmen2 = "SELECT * FROM rese_sider WHERE link_id=" & men("id")
Set men2 = Conn.Execute(strSQLmen2) '// HENTER SUB-MENUEN FRA MYSQL
If men2("link_type") = "0" Or men2("link_type") = "1" Then '// INTERNE LINK
strSubTarget = "_self"
strSubLink = Request.ServerVariables("SCRIPT_NAME") & "?Link_ID=" & men2("id")
ElseIf men2("link_type") = "2" Then '// EKSTERNE LINK
strSubTarget = "_blank"
strSubLink = men2("link_ref")
End If
Response.Write " <a href=""" & strSubLink & """ target=""" & strSubTarget & """ class=""menu_main"">" & men2("menu_tekst") & "</a><br>"
End If
men.MoveNext
Loop While Not men.EOF
End If
Har lagt koden ud som txt fil. Så er det måske lidt nemmere at overskue...
http://RenService.MartinBonde.dk/KODEN.txt
