dynamisk menusystem i 3 niveauer

hvordan laver jeg et niveau mere i mit menu-system ?

( kan selv lave asp delen, det er js der er problemet )

min nuværende kode kan lave følgende:

menu
- menu_under


det min kode skal kunne er:

menu
- menu_under
--- menu_under2


Her er koden:

<script type="text/javascript">
    if (document.getElementById){
        document.write('<style type="text/css">\n')
        document.write('.submenu{display: none;}\n')
        document.write('</style>\n')
    }
   
    function SwitchMenu(obj){
        if(document.getElementById){
            var el = document.getElementById(obj);
            var ar = document.getElementById("masterdiv").getElementsByTagName("span");
           
            if(el.style.display != "block"){
                for(var i=0; i<ar.length; i++){
                    if(ar[i].className == "submenu"){
                        ar[i].style.display = "none";
                    }
                }
                el.style.display = "block";
            }
            else{
                el.style.display = "none";
            }
        }
    }
</script>

<div id="masterdiv">
    <%
        sql = "SELECT * FROM MenuUnder WHERE MenuUnder.MenuUnderlink = " & MenuID & " ORDER BY MenuUnderOrden ASC"
        set rs = conn.Execute(sql)
               
        while not rs.EOF
       
        sql2 = "SELECT * FROM MenuUnder2 WHERE MenuUnder2link = " & rs("MenuUnderID") & " ORDER BY MenuUnder2Orden ASC"
        set rs2 = conn.Execute(sql2)   
    %>
           
            <div class="menutitle" onClick="SwitchMenu('sub<%=rs("MenuUnderID")%>')">
<%   
    MenuUnderTitel = rs("MenuUnderTitel")
    MenuUnderID = rs("MenuUnderID")
%>
<table width="100%" height="30"  border="0" cellpadding="2" cellspacing="2" background="menu.gif">
  <tr>
    <td width="5"></td>
    <td align="left" valign="bottom"><a onMouseOver="window.status='NeoCon_Admin © Usability Trough Simplicity'; return true;" href="indhold/indhold.asp?Umenu=<% = MenuUnderID %>&Template=indhold" title="<%= MenuUnderTitel %>" target="iframe" class="umenu"><%= MenuUnderTitel %></a></td>
  </tr>
</table>



            </div>
           
            <span class="submenu" id="sub<%=rs("MenuUnderID")%>">
                <% while not rs2.EOF %>
<%   
    MenuUnder2Titel = rs2("MenuUnder2Titel")
    MenuUnder2ID = rs2("MenuUnder2ID")
%>
<table width="100%" height="20"  border="0" cellpadding="2" cellspacing="2">
  <tr>
    <td width="5"></td>
    <td><a onMouseOver="window.status='NeoCon_Admin © Usability Trough Simplicity'; return true;" href="indhold/indhold.asp?Umenu2=<% = MenuUnder2ID %>&Template=indhold" title="<%= MenuUnder2Titel %>" target="iframe" class="umenu">- <%= MenuUnder2Titel %></a></td>
  </tr>
</table>
               
               
                <%
                    rs2.movenext
                    wend
                %>
            </span>
           
    <%                           
            rs.movenext
        wend
    %>           
</div>