menu i to niveauer fra database

Hejsa

Jeg sidder og laver en ASP menu som bliver udtrukket fra en Access DB.

Når man klikker på et menupunkt som har undermenupunkter, så skal undermenupunkterne selvfølgelig komme under det niveau man har klikket på.

Eks. (som indeholder fejlen) kan ses her:

Klik på "produkter"

http://www.oneweb.dk/onecms/default.asp


Som det kan ses kommer undermenupukterne forståeligt nok under hver af hovedmenupunkterne. Mit spørgsmål er bare hvordan jeg får flettet de to "loops" ind i hinanden, således at menuen i 2. niveau bliver vist det rigtige sted?

Her er koden:

------------------------------------------

<table width="<%=restMenu%>" border="0" cellspacing="0" cellpadding="<%=RsDesign("design_menu_padding")%>" class="almtxt">
<% 
    menu_niveau_2 = request.querystring("menu_niveau_2")
    if menu_niveau_2 <> "" then
        Query= " SELECT * from tbl_menu where menu_niv_2 =" & menu_niveau_2 & " order by menu_order"
        Set RsMenu2 = Conn.Execute(Query)
    end if
                                                                   
    If not RsMenu.EOF then
    RsMenu.movefirst
    while not RsMenu.eof
%> 
  <tr>
    <td valign="top" width="7">*</td>
    <td valign="top"><a href="default.asp?side=<%=RsMenu("menu_side")%><% if RsMenu("menu_sub") = true then%>&menu_niveau_2=<%=RsMenu("id")%><%end if%>" class="menutxt"><%=RsMenu("menu_txt")%></a></td>
  </tr>
<% 
   
    if menu_niveau_2 <> "" then
   
    Query= " SELECT * from tbl_menu where menu_niv_2 =" & menu_niveau_2 & " order by menu_order"
    Set RsMenuSub = Conn.Execute(Query)   
                                                                 
    If not RsMenuSub.EOF then
    RsMenuSub.movefirst
    while not RsMenuSub.eof
%> 
  <tr>
    <td valign="top" width="7">&nbsp;</td>
    <td valign="top"><a href="default.asp?side=<%=RsMenuSub("menu_side")%>&menu_niveau_2=<%=RsMenuSub("id")%>" class="menutxt"><%=RsMenuSub("menu_txt")%></a></td>
  </tr>
<%                                                                       
    RsMenuSub.MoveNext
    Wend
    End If
   
    RsMenuSub.close
    Set RsMenuSub = nothing
    end if
                                                                       
    RsMenu.MoveNext
    Wend
    End If
   

%>
</table>