Liste ut meny fra db med submeny

Du kan bruge noget i denne stil...

Ideen er at sorterer din menu tabel så du får

Top Sub
1 1
1 2
1 3
2 1
2 2
...

Så spytter du din menu ud og hver gang din top kategori skifter laver du en ny top.

sql = "SELECT * FROM MenuTable ORDER BY Kategori,Subkategori"
...
Kat = -1
while not rs.EOF
  if Kat <> rs("Kategori") then
    kat = rs("Kategori")
    makeMenu('top',Kat)
  end if
  makeMenu('sub',...)
  rs.MoveNext
wend

<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/Document.mdb")
dim strConnImg
strConnImg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/ImageLibrary.mdb")

dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn

'Deklarerer variabler
dim adoRs, adoRS1
'Rekordset for Categori.
set adoRs = Server.CreateObject("ADODB.Recordset")
'Rekordset for Subkategori.
set adoRs1 = Server.CreateObject("ADODB.Recordset")
'Henter Categoriene.
strSQL = "Select Categori, DocumentID From Documents"
'Henter Subkategoriene.
strSQL1 = "Select Title, DocumentID From Documents"
'Henter kategoriene.
set adoRs = adoCn.Execute(strSQL)
%>

<html>
<body>
<%
Do While Not adoRs.EOF%>
    <li><%=adoRs("Categori")%></li>
   
    <%
    set adoRs1 = adoCn.Execute(strSQL1)
   
    Do While Not adoRs1.EOF%>
   
        <ul><a href="user_DocView.asp?DocumentID=<%=adoRs1("DocumentID")%>"><%=adoRs1("Title")%></a></ul>
   
    <%
    'Looper gjennom subkategoriene.
    adoRs1.MoveNext
    Loop
    adoRS1.Close
   
    adoRS.MoveNext
    Loop
   
    adoRs.Close
    set adoRs = nothing

    adoCn.Close
    set adoCn = nothing
    %>
</body>
</html>