rekursiv løkke

Hej Eksperter...

Jeg står overfor et kæmpe problem...


Jeg er igang med at lave noget projektarbejde til skolen, og i dette er jeg gået i gang med at lave siderne i database.

I min base har jeg en tabel der hedder page og den ser sådan ud:
id  -  menu  -  context  -  order  -  sub  -  placering

Dem jeg skal bruge er dog id, menu og sub.
Feltet sub bruger jeg til at skrive et id på en side, som den aktuelle side skal ligge sig til, men hvis den side også er en underside, så viser den det ikke på min sitemap

Jeg er så igang med at lave en sitemap, men kan ikke få den til at virke.. Den viser kun et niveau og ikke alle de niveauer som der er.. hvordan gør jeg det ?


sitemap.asp
<!--#include virtual="/_global/dbconn.asp"-->
<%
openConn()

strPlaceSQL = "SELECT placering_bind.id FROM placering_bind"
Set placeRs = connection.Execute(strPlaceSQL)

If Not (placeRs.EOF or placeRs.BOF) Then
Do While Not (placeRs.EOF or placeRs.BOF)

    strSQL = "SELECT page.id,page.menu FROM page WHERE page.placering=" & placeRs("id") & " ORDER BY page.order"
    Set rs = connection.Execute(strSQL)

    If Not (rs.EOF or rs.BOF) Then
    Do While Not (rs.EOF or rs.BOF)
%>
<%=rs("menu")%><br>
<%

        strSubSQL = "SELECT page.id,page.menu FROM page WHERE page.sub=" & rs("id")
        set subRs = connection.Execute(strSubSQL)

        If Not (SubRs.EOF or SubRs.BOF) Then
        Do While Not (SubRs.EOF or SubRs.BOF)
%>

-<%=SubRs("menu")%><br>

<%
        SubRs.MoveNext
        Loop
        End if

    rs.MoveNext
    Loop
    End if
%>
<br>
<%
placeRs.MoveNext
Loop
End if

closeConn()
%>