recursive delete

Hej Eksperter

Jeg får en fejl når jeg kalder min recursive funktion:

Microsoft VBScript runtime (0x800A01FB)
An exception occurred: 'Execute'

Derefter er det lige meget hvilken side jeg forsøger at går ind på så får jeg fejlen. Det virker som om alle ressourcer er opbrugt.
Hvis jeg fjerner det recursive kald kører den fint igennem.
Der er ikke mere end højst 30 poster der skal slettes så det kan ikke være det.


RecurseDelPages1 pid
   
sub RecurseDelPages1(PageID)
dim rs
Set oRs = oConn.Execute("DELETE FROM webwebpagespermissions WHERE groupid=0 and pageid=" & pageid & " and languag=" & pagelanguage(pid,defaultlan))
Set oRs = Nothing

set rs = oConn.execute("SELECT translatedpageid as id,languageid FROM webwebpagestranslated WHERE pageid =(" & ("SELECT pageid FROM webwebpagestranslated WHERE translatedpageid=" & pageid) & ")")
  while not rs.eof
    langpageid = rs("languageid")
    if IsNull(langpageid) or langpageid="" then langpageid = defaultlan
    if pagelanguage(pid,defaultlan) = langpageid then

    RecurseDelPages1 rs("id") 'recursive kald

    end if
  rs.movenext
  wend
  rs.close
  set rs = nothing
end sub