problemer med menu styring

Jeg er ved at lave et 3 niveau's link system !

Se her: http://www.neocon.dk/kunder/_slet/index.asp?Menu=2&Template=indhold

mit problem er at det er de samme undermenue der udskrives og selv om linket ikke har nogen underlinks

Koden ser sådan ud:

<%     MenuID = Request.QueryString("Menu") %>
<%     If MenuID <> "" Then %>
<%     AbnDB_forside %>
<%        
    strSQL = "SELECT MenuTitel FROM Menu WHERE MenuID = " & MenuID & " "
    set rs = Conn.Execute(strSQL)
    MenuTitel = rs("MenuTitel")

    strSQL1 = "SELECT * FROM MenuUnder WHERE MenuUnder.MenuUnderlink = " & MenuID & " ORDER BY MenuUnderOrden ASC"
    set rs1 = Conn.Execute(strSQL1)
%>

<table width="160" border="0" cellpadding="2" cellspacing="2">
<tr align="left" valign="top">
  <td>&nbsp;</td>
  <td><strong><a  onMouseOver="window.status='NeoCon_Admin © Usability Trough Simplicity'; return true;" href="index.asp?Menu=<%= MenuID %>&Template=indhold" title="<%= MenuTitel %>" target="_parent" class="tmenu"><%= MenuTitel %></a></strong><br><br></td>
</tr>

<tr align="left" valign="top">
<td width="10" height="22">&nbsp;</td>
<td>
<%
    Do Until rs1.EOF
    MenuUnderID = rs1("MenuUnderID")
    MenuUnderTitel = rs1("MenuUnderTitel")
%>
<a onMouseOver="window.status='NeoCon_Admin © Usability Trough Simplicity'; return true;" href="index.asp?Menu=<%= MenuID %>&Umenu=<%= MenuUnderID %>&Template=indhold" title="<%= MenuUnderTitel %>" target="_parent" class="umenu"><%= MenuUnderTitel %></a>


<%     xxx = Request.QueryString("Umenu") %>
<%     If xxx <> "" Then %>
<%
    strSQL2 = "SELECT * FROM MenuUnder2 WHERE MenuUnder2.MenuUnder2link = " & xxx & " ORDER BY MenuUnder2Orden ASC"
    set rs2 = Conn.Execute(strSQL2)
%>
<%
    Do Until rs2.EOF
    MenuUnder2ID = rs2("MenuUnder2ID")
    MenuUnder2Titel = rs2("MenuUnder2Titel")
%>
<br>
<br>
- <a href="indhold/indhold.asp?Menu=<%= MenuID %>&Umenu=<%= MenuUnderID %>&Template=indhold" title="<%= MenuUnder2Titel %>" target="iframe" class="umenu"><%= MenuUnder2ID %> | <%= MenuUnder2Titel %></a>

<%   
RS2.MoveNext
Loop
%>
<% End If %>

<br><br>
<%   
RS1.MoveNext
Loop
%>

</td>

</tr>
</table>
<% LukDB %>
<%     End If %>