Undermenu virker ikke

Hey, har hovedmenu og undermenu i en mysql db, men undermenuen bliver ikke vist korrekt, det skulle se således ud:

Menu1
- undermenu1
- undermenu2
Menu2
- undermenu1
Menu3
- undermenu1
- undermenu2
- undermenu3
- undermenu4

Min kode:

<!--#include file="connection.inc"-->
<%
If Request.QueryString("MenuID") = "0" Then

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

  rs.MoveNext
  Loop

End If

ELSE

strSQL = "SELECT * FROM Sider WHERE MenuID=0 ORDER BY ID ASC "
Set rs = Conn.Execute(strSQL)

strSQL2 = "SELECT * FROM Sider WHERE MenuID = " & Request.querystring("MenuID")
Set rs2 = Conn.Execute(strSQL2)

  If RS2.EOF OR RS2.BOF Then
    Response.Write ""
  Else
    Do While not rs2.eof OR rs.eof

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

      strNavn = rs2("Linktekst")
      strLink = "<a style='color:red;' href='sider.asp?id=" & rs2("ID") & "&menuid=" & Request.querystring("MenuID") & "'>" & strNavn & "</a>"
      Response.Write strLink
    rs2.movenext
    loop
  End if
End If

Conn.Close
Set Conn = Nothing
%>