Recursiv - find parents.

Prøv noget a'la det her. Det er godt nok asp og ikke som du ønsker vbscript. Men du kan vel selv oversætte det.

RecursePages id
        sub RecursePages(PageID)
        dim rs
            if not isnull(pageid) then
                parent = PageID
                p = p & "," & parent
                set rs = oConn.execute("SELECT PID FROM Webpages WHERE id=" & Pageid)
                while rs.eof = false
                    RecursePages rs("pid")
                rs.movenext
                  wend
                rs.close
                set rs = nothing
            end if
        end sub