Flere levels i menu
Hej,Jeg har for efterhånden lang tid siden fået hjælp til et menusystem. Nu kunne jeg godt tænke mig at udvide det lidt mere.
Som det er nu kan der kun vises en submenu, men jeg vil gerne kunne vise flere. Nedenfor ses koden. Felterne i databaserne er:
Tabelnavn "links"
url - window - navn - beskrivelse - sortnumber - kategoriID - linkID
Tabelnavn "kategori"
kategoriID - kategoriName - kategoriDescription
Er der nogen der kan gennemskue det. Skal der eventuelt flere felter i databasen? Eller noget helt andet. Er du nogen der har kendskab til et lignende system. Kravet er at det skal være databasestyret - Free - Kunne vedligeholdes via browseren.
Med venlig hilsen
Mik
**********
Kode
**********
<html>
<head>
<LINK rel="stylesheet" type="text/css" href="style.css">
<base target="main">
</head>
<%
set conn = server.createobject("adodb.connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("links.mdb")
%>
<%
set ms = conn.execute("SELECT * from links WHERE kategoriID = 1 ORDER BY sortnumber asc")
%>
<% do until ms.EOF %>
<a title="<%=ms("beskrivelse")%>" href="http://<%=ms("url")%>" target="<%=ms("window")%>"><%=ms("navn")%></a>
<% ms.movenext
loop %>
</table>
<% ms.close
set ms = nothing %>
<br>
<%
set ks = conn.execute("SELECT DISTINCT links.kategoriID, links.user, kategori.kategoriID, kategori.kategoriDescription, kategori.kategoriName FROM links INNER JOIN kategori ON links.kategoriID = kategori.kategoriID WHERE links.kategoriID > 1")
%>
<%
if not (ks.eof or ks.BOF) then
%>
<b><font size="4"> <u>Undermenuer</u></font></b><br>
<br>
<%
end if
%>
<% do until ks.eof%>
<a title="<%=ks("kategoriDescription")%>" href="links.asp?kat=<%=ks("kategoriID")%>" target="contents"><%=ks("kategoriName")%></a>
<%
if cint(request.querystring("kat")) = ks("kategoriID") then 'er vi igang med den ønskede kategori
set rs = conn.execute("SELECT * FROM links WHERE user=('" & varUser & "') AND "& ks("kategoriID") &"=kategoriID ORDER BY sortnumber asc")
if not rs.eof then rsArray = rs.getRows() else rsArray = null end if
if isArray(rsArray) then 'Udskriv alle linksne til den valgte kategori
for i=0 to ubound(rsArray,2)
%><a class="menu<%= u_user %>" title="<%=rsArray(3,i)%>" href="http://<%=rsArray(0,i)%>" target="<%=rsArray(1,i)%>"> - <%=rsArray(2,i)%></a><%
next
end if
end if
ks.movenext
loop
%>
</table>
<% ks.close
set ks = nothing %>
</body>
</html>
