Treemenu driller

Hay folkens.
Har lavet en treemenu, men den driller lidt, submenuerne bliver gentaget i hver hovedmenu, nogle som kan forklare hvorfor??

menu.asp:

<!--#include file="connection.inc"-->
<%
strSQL = "SELECT * FROM Sider WHERE MenuID=0 ORDER BY ID ASC "
Set rs = Conn.Execute(strSQL)

If RS.EOF Then
    Response.Write "Der er ingen menupunkter"
Else
Do While NOT RS.EOF OR RS.BOF

  strNavn = rs("Linktekst")
  strLink = "<a href='sider.asp?id=" & rs("ID") & "&menuid=" & RS("ID") & "'>" & strNavn & "</a>"
  Response.Write strLink

  IF Request.QueryString("MenuID") <> "" Then
    strSQL2 = "SELECT * FROM Sider WHERE MenuID = " & Request.querystring("MenuID")
    Set rs2 = Conn.Execute(strSQL2)
   
    Do While not rs2.eof
    strNavn = "&nbsp;-&nbsp;" & rs2("Linktekst")
    strLink = "<a style='color:#666666;' href='sider.asp?id=" & rs2("ID") & "&menuid=" & Request.querystring("MenuID") & "'>" & strNavn & "</a>"
    Response.Write strLink

      rs2.movenext
    loop
    rs2.close
  End if

  rs.MoveNext
Loop
End If

Conn.Close
Set Conn = Nothing
%>