Menu fra database nested med 3 levels Hjælp

Hej
Jeg vil gerne have nedenstående kode til kun at vise følgende:
Når man klikker på et hovedmenupunkt skal punkter under dette menupunkt vises - og ikke alle underpunkter.

Se eksempel på http://www.lemvighs.dk/han.asp?h=10&v=&id=1&list_pos=m1 hvor du kan se, at alle under punkterne er foldet ud.

Koden, som skal ændres, er følgende:

<%
'sæt en variabel N hvis h er tom
Dim N
N = Request("h")
if N = "" then
    N = 10
End if
    Set myconn = Server.CreateObject("ADODB.Connection")
    DBPath = "DBQ=" & server.mappath("db/menu.mdb")
    myconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
    strSQL = "SELECT *  FROM tblMenu  WHERE menuID<8 ORDER BY menuID"
    set hg = myConn.Execute(strSQL)

while not hg.eof

%>
            <a href="<%= hg("mLink")%>?h=<%= hg("H")%>&v=<%= hg("V")%>&id=<%= hg("menuID")%>&list_pos=m<%= hg("menuID")%>"
            style="font-size:11px;    <% if hg("c") = Request("id") then %> color:#000000 
            <% end if %>"
           
            title="<%= hg("alt")%>"><%= hg("mName")%></a><br>
            <%
        if hg("H")&"" = (N)&"" then
            strSQL = "SELECT *  FROM tblMenu  WHERE H = "&(N)&" AND V>0  ORDER BY menuID "
            set vg = myConn.Execute(strSQL)
            while not vg.eof%>
<a href="<%= vg("mLink")%>?h=<%= hg("H")%>&v=<%= vg("V")%>&id=<%= vg("menuID")%>&list_pos=m<%= vg("menuID")%>"  target="<%= vg("target")%>" title="<%= vg("alt")%>"
            style="color:white; font-size:10px;
            <%
            if vg("c") = Request("id") then %>
            color:#000000;  text-decoration:underline;
            <% end if %>
            "><IMG SRC="images/menu_spot.gif" HEIGHT=5 WIDTH=2 BORDER=0 align="bottom">
            <%= vg("mName")%></a><br>
            <%
            if vg("V") <> "" then
            strSQL = "SELECT *  FROM tblMenu  WHERE H = "&(N)&"  AND V2= " & vg("V") &"    ORDER BY menuID"
            set us = myConn.Execute(strSQL)
            while not us.eof%>
<a href="<%= us("mLink")%>?h=<%= us("H")%>&v=<%= vg("V")%>&id=<%= us("menuID")%>&c=<%= us("c")%>&list_pos=m<%= us("menuID")%>"  target="<%= us("target")%>" title="<%= us("alt")%>"
            style="color:white; font-size:9px; letter-spacing:-0.05em;
            <%
            if Request("id") = us("c") then %>
            color:#000000;  text-decoration:underline;
            <% end if %>
            "><IMG SRC="images/.gif" HEIGHT=5 WIDTH=12 BORDER=0 align="bottom"><IMG SRC="images/piltilh.gif" HEIGHT=5 WIDTH=5 BORDER=0 align="bottom">
            <%= us("mName")%></a><br>
            <%           
            us.movenext
            wend
        end if               
        vg.movenext
            wend
        end if
        hg.movenext
    wend
    %>