menu + submenu + sprogstyring

Hej jeg har lavet dette - men det virker ikke helt som jeg ønsker. Lige nu får man selvfølgelig menuen vist når man logger på sitet og når man klikker på et menupunkt åbner den main.asp
Hvis der er submenu knyttet til fremtræder denne så nedenunder alle menupunkter...således:

TEST 1
TEST 2
TEST 3

Undermenu 1
Undermenu 1.1

Jeg vil gerne have det til at gøre således:

TEST 1
Undermenu 1
Undermenu 1.1
TEST 2
TEST 3

Her er koden:


      <!------- MENU -------->
      <%
                      set rs=server.CreateObject("ADODB.Recordset")
                      rs.open "SELECT * FROM tblTOPMENU where aktiv='Y' and sprog='DK' order by raekkefoelge ASC ",conn
                      %> <%
                      f = 0
                      farve = "#ffffff"

                      do while not rs.eof %>
    </td>
  </tr>
  <tr>
    <td height="20" align="left">&nbsp;&nbsp; <% if rs("ELx") = "Y" Then %> <A HREF="http://<%=rs("EL")%>" target="_blank"><br>
      <%=rs("menu")%></A>
      <% else if rs("MAILx") = "Y" Then %> &nbsp;&nbsp;
      <A HREF="mailto:<%=rs("MAIL")%>"> <%=rs("menu")%></A>
  <% else if rs("MENUx") = "Y" Then %>    &nbsp;&nbsp;
      <A HREF="main.asp?id=<%=rs("Id")%>">
      <% =rs("menu") %>
      </A>
      <% end if
      end if
      end if %>
    </td>
  </tr>
  <%        rs.MoveNext()
loop
%>


      <!------- SUBMENU -------->
      <%
SQL = "SELECT * FROM submenu WHERE id= '" & request.querystring("id") & "' and sprog ='DK' order by raekkefolge ASC"
Set rs  = Conn.execute(SQL)
%> <%
                      f = 0
                      farve = "#ffffff"

                      do while not rs.eof %> </td>
  </tr>
  <tr>
    <td height="20" align="left">&nbsp;&nbsp; <% if rs("ELx1") = "Y" Then %> <A HREF="http://<%=rs("EL1")%>" target="_blank"><font color="ff9900"><%=rs("submenu")%></font></A><br> <% else if rs("MAILx1") = "Y" Then %> <A HREF="mailto:<%=rs("MAIL1")%>">
      <font color="ff9900"><%=rs("submenu")%></font></A> <% else if rs("MENUx1") = "Y" Then %> <A HREF="submain.asp?id=<%=rs("Id")%>&Id2=<%=rs("submenu")%>"><font color="ff9900">
      <% =rs("submenu") %>
      </font> </A> <% end if
  end if
      end if %> </td>
  </tr>
  <%
rs.MoveNext()
loop
%>