Rekursiv rutine

Hey

Jeg har en lavet en rekursiv rutine der har til formål at hente et givent antal menu punkter og børn og børnebørn til disse fra en tabel.

Men af en eller anden uforklarlig årsag får jeg en fejl der lyder: "Eeither BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record."

Min kode ser således ud:

<%
    Dim aStrConn
    Dim aStrSql
    Dim aStrRec
    Dim aStrNode
   
    Set aStrConn = Server.CreateObject("Adodb.Connection")
    aStrConn.Open "Driver=Sql Server; Server=Slayer-Station; Database=Transport_Screen; Uid=sa; PWD=sa;"
   
    Public Sub GetNode(ByVal ParentID)
   
        Select Parent_ID, Child_ID, Text From TblMenu Where Child_ID = " & ParentID
        Set aStrRec = aStrConn.Execute(aStrSql)
       
        Do While Not aStrRec.Eof
           
                        aStrNode = aStrNode & aStrRec("Child_ID") & ":" & aStrRec("Parent_ID") & ":" & aStrRec("Text") & ","
           
            Call GetNode (aStrRec("Parent_ID"))
           
            aStrRec.MoveNext
       
        Loop
       
    End Sub
   
    GetNode(2)
   
    Set aStrRec = Nothing
    Set aStrConn = Nothing
   
%>

Håber at der er nogle der kan hjælpe :-)