Forum

Yeps det er klart muligt, men et godt råd er at bruge JScript da VBScript er lidt \'nolder\' at bruge når du skal bruge noget rekursivitet....

Du kan sagtens lave en lokal instans.

DIM localRS
SET localRS = Conn.Execute(SQL)
...
\'rekursivt kald

hvordan gør man det

FUNCTION showDocumentStructure(parentid)
  DIM isFolder, localRS
  Set localRS = Server.CreateObject(\"ADODB.RecordSet\")

  SQL=\"SELECT docid, name, title, isfolder FROM documents WHERE parentid=\" & parentid & \" ORDER BY title\"
  Set localRS = Conn.Execute(SQL)

  IF NOT localRS.EOF THEN
    WHILE NOT localRS.EOF
        WriteLn \"<A HREF=\"\"\" & localRS(1) & \"\"\">\" & localRS(2) & \"</A><BR>\"
        isFolder = localRS(3)
        IF isFolder=\"1\" THEN call showDocumentStructure(localRS(0))
        localRS.MoveNext
    WEND
  END IF
END FUNCTION

Den går desværre ikke....

Hvis du laver det således :

Function Reply(child)

    Dim RS
    SQL=\"select * from forum where id=\" & child
    set rs=conn.execute(sql)
    do while rs.eof=false
        response.write \"<br>\" & rs(\"subject\")
        reply rs(\"id\")
        rs.movenext
    loop

end function

Når du gør således bliver dit resultset (rs) slettet hver gang og derved kommer der en EOF fejl.
Functionen skal lave instances af sig selv, og afslutte dem, når der ikke er flere tråde...
Jeg ønsker altså at kalde funktionen inde i sig selv...

Er i gået i sort Drenge

Du mangler

  Set RS = Server.CreateObject(\"ADODB.RecordSet\")

som instansierer dit lokale objekt.

sone:> At sætte en reference til ADODB.RecordSet ER faktisk ikke nødvendigt, da du ved at skrive

Set Rs = Conn.Execute ...

sætter en ny reference, der vil slette den foregående.
Den eneste fordel ved at sætte en reference til .recordset er hvis man bruger InterDev for der kan du få context sensitive hjælp/intellisense\'n til at hjælpe dig hvis du f.eks. skrive Rs. (så kommer der en liste med mulige \"medlemmer\" af et RecordSet)

hej tdaugaard 
har du en løsning

ok.

\"Medlemmer\"... som man kunne kalde funktioner eller metoder :)

sone:> det var for langt at skrive ;o)
Og det hedder faktisk \"medlemmer\" af et objekt.

Det påstår VB/InterDev da i hvert fald...

Det kode jeg har indsat kører, så jeg ved ikke hvad du gør galt...

tdaugaard:> Ikke hvis man har læst OO

sone:> OO ? (hvad er det nu det står for ?)

proboss:> Desværre ikke lige på stående fod (yeah right .. som om jeg stod op *G*)
Du du skulle bruge er måske et array af RecordSets hvor du bruger \"child\" som index.

Dim Rs(MAX_CHILD_NO)

Function Reply(child)
    SQL=\"select * from forum where id=\" & child
    set rs(child)=conn.execute(sql)
    do while rs(child).eof=false
        response.write \"<br>\" & rs(child)(\"subject\")
        reply rs(child)(\"id\")
        rs(child).movenext
    loop

end function


tror du ikke det ville virke !? (er ikke testet og i have no idea if it works, just a theory)

hmm... men på den måde her vil du da aldrig komme ud af loopet der vil opstå ved rekursion af funktionen !? Den vil blive ved med at neste sig selv

OO: Objekt Orienteret (Programmering)

Jeg tænkte det nok .. men normalt siger man da OOP .. oder was !?

Ja, eller OOA & OOD

ja ja ... du\' prof ;o) ej .. WTF er OOA & OOD ?

Analyse & Design

det kan jo blive ndvændigt at læse sit recordsæt ned i et array, og lave den rekursive funktion på arrayet.... så er man jo ude over alle database-fnidder-fnadder problemerne, ikke?

måske en lidt imperlativ løsning (nu vi leger med ord) :o)

smiley2:> læs min kommentar af \"19/12 2000 15:06:29\"

lukker dette spørgsmål