genial dynamisk menu + submenu
Jeg har fundet denne menu fra et tidligere spørgsmål - den virker genialt -men jeg kan ikke lige få det sidste hen!!!Jeg skulle gerne have den til at virke på en side uden frames!
Den skulle gerne linke til en side der hedder main.asp...som så generer indholdet via en iframe!
Nogen der kan hjælpe?
Din kode er her:
<html>
<head>
<body>
<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db10.mdb")
menuID = Replace(Request.QueryString("id"),"'","")
submenuID = Replace(Request.QueryString("sid"),"'","")
SQL = "SELECT * FROM aa_menu ORDER BY id"
Set rs = Conn.Execute(SQL)
menu_target = "MAIN"
do while not rs.EOF
Response.Write "<a href=""?id=" & rs("id") & """>" & rs("menunavn") & "</a>"
Response.Write "<br>"
if Int("0" & menuID) = Int(rs("id")) then
'Udskriver submenuer til den valgte menu
Set subrs = Conn.Execute("SELECT * FROM aa_submenu WHERE menuID = " & rs("id"))
do while not subrs.EOF
Response.Write " - <a href=""?id=" & rs("id") & "&sid=" & subrs("id") & """>" & subrs("submenunavn") & "</a>"
Response.Write "<br>"
if Int("0" & submenuID) = Int(subrs("id")) then
'Udskriver links til den valgte menu og submenu
Set linksrs = Conn.Execute("SELECT * FROM aa_link WHERE submenuID = " & rs("id"))
do while not linksrs.EOF
Response.Write " -- <a href=""" & linksrs("link") & " target=""" & menu_target & """>" & linksrs("linknavn") & "</a>"
Response.Write "<br>"
linksrs.Movenext
loop
end if
subrs.Movenext
loop
'Udskriver links til den valgte menu som ikke har en submenu
Set subrs = Conn.Execute("SELECT * FROM aa_link WHERE menuID = " & rs("id"))
do while not subrs.EOF
Response.Write " -- <a href=""" & linksrs("link") & " target=""" & menu_target & """>" & linksrs("linknavn") & "</a>"
Response.Write "<br>"
subrs.Movenext
loop
end if
rs.Movenext
loop
Conn.Close
Set Conn = nothing
%>
</body>
</html>
