recursive opslag

Hej Eksperter
Jeg arbejder i asp, men den her hører vist mest til her.

For Each User In Request.Form("project")
1 Set oRs1 = oConn.Execute("SELECT userid FROM NetsitePermissionGroup WHERE groups = " & User)
  do while oRs1.eof=false
    2 Set oRs2 = oConn.Execute("SELECT pageid FROM  webwebpages WHERE parentid = " & pageid)
    if oRs2.eof=false then
      do while oRs2.eof=false
        3 Set oRs3 = oConn.Execute("SELECT pageid FROM webwebpages WHERE parentid = " & oRs2("pageid"))
        if oRs3.eof=false then
        do while oRs3.eof=false
          Set oRs = oConn.Execute("INSERT INTO webwebpagespermissions(pageid,userid,groupid) VALUES (" & oRs3("pageid") & "," & oRs1("userid") & "," & User & ")")
            Set oRs = Nothing                oRs3.movenext
            loop
        else
          Set oRs = oConn.Execute("INSERT INTO webwebpagespermissions(pageid,userid,groupid) VALUES (" & oRs2("pageid") & "," & oRs1("userid") & "," & User & ")")
          Set oRs = Nothing                end if   
    oRs2.movenext
    loop
  else
    Set oRs = oConn.Execute("INSERT INTO webwebpagespermissions(pageid,userid,groupid) VALUES (" & page & "," & oRs1("userid") & "," & User & ")")
    Set oRs = Nothing               
  end if
  oRs1.movenext
  loop
  set oRs1 = nothing
Next

 
Jeg laver et system til at give brugere adgang til at opdaterer sider.
Det skal virke således at hvis brugeren får adgang til en side har han også adgang til undersiderne.
Derfor skal det her rettes til så det henter alle underside + undersidernes undersider og giver rettigheder til disse.

Lidt forklaring til koden:
1 Først vælges de brugere der skal have adgang
2 så finder jeg de sider hvor min side er overside
3 så forsøger jeg at finde undersider til de sider jeg netop har fundet.
Men det er jo ikke nok
for jeg skal jo lave en løkke der bliver ved med at finde siders undersider, indtil der ikke er flere.


Kan i hjælpe