eagleeye - genial menu - men har et problem
Hej ealeeye - jeg har brugt din 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!
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>
