menu ekstra niveau

Jeg kan ikke greje hvordan jeg får et niveau mere på denne ?

<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
%>
<table border="0" width="193">
<%
sql = "SELECT DISTINCT menunavn, menu FROM menu"
Set rs = Conn.Execute(sql)

Do While Not rs.EOF
%>
    <tr><td><a href="default.asp?id=<% =rs("menu") %>"><% =rs("menunavn") %></a></td></tr>
<%
    If rs("menu") = request.querystring("id") Then
        sql2 = "SELECT DISTINCT subnavn FROM menu WHERE menu = '" & request.querystring("id") & "'"
        set rs2 = Conn.Execute(sql2)

        Do While Not rs2.EOF
%>
    <tr><td><% =rs2("subnavn") %></td></tr>
<%
            rs2.MoveNext
        Loop
    End If

    rs.MoveNext
Loop
%>
</table>

Hvad skal der gøres.