distinct fejl i menu

Jeg har en menu hvor jeg kun får vist et underpunkt pga distinct kaldet, hvad kan jeg gøre ved det ?


<%
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="default2.asp?menu=<% =rs("menu") %>">
        <span style="text-decoration: none; font-weight: 700">
        <font face="Arial" size="2" color="#000000"><% =rs("menunavn") %></font></span></a></td></tr>
<%
    If rs("menu") = request.querystring("menu") Then
        sql2 = "SELECT DISTINCT sub, subnavn, menu, menunavn FROM menu WHERE menu = '" & request.querystring("menu") & "' order by menunavn asc"
        set rs2 = Conn.Execute(sql2)

        Do While Not rs2.EOF
%>
    <tr><td><a href="default2.asp?menu=<%=rs2("menu")%>&sub=<%=rs2("sub")%>">
        <span style="text-decoration: none; font-style: italic; font-weight: 700">
        <font face="Arial" size="2" color="#000000"><%=rs2("subnavn")%></font></span></a></td></tr>
    <%
    If rs2("sub") = request.querystring("sub") Then
    sql3 = "SELECT distinct sub2, subnavn, menu, sub, sub2navn FROM menu WHERE sub = '" & request.querystring("sub") & "' order by subnavn asc"
    set rs3 = Conn.Execute(sql3)

        Do While Not rs3.EOF
%>
    <tr><td>
    <ul>
    <li><a href="default2.asp?menu=<%=rs3("menu")%>&sub=<%=rs3("sub")%>&sub2=<%=rs3("sub2")%>">
    <b><i><font face="Arial" size="2" color="#000000"><%=rs3("sub2navn")%></font></i></b></a></td></tr>
   
<%
            rs3.MoveNext
        Loop
    End If
%>
<%   
            rs2.MoveNext
        Loop
    End If

    rs.MoveNext
Loop
%>
</table>