Rekursiv funktion og option explicit

G'morgen,

...jeg sidder og bøvler med et diskussionsforum, og er (som 5000 andre før mig) kommet i problemer med træ-strukturen på indlæggene.

Problemet er bare ikke heeelt simpelt.

Jeg har en funtkion, som kalder sig selv, og skriver svarene på en post ud i en hiraki-liste. Det virker også fint, men når jeg sætter "option explicit" ind i dokumentet, og dim'er mine variabler bliver database objektet omdefineret globalt ved hvert gennemløb - og så virker skidtet naturligvis ikke.

Hvordan kan man gøre det smartere??

Her er min funktion:

Function showReplies(IDX,level)

    sql =     "select * FROM forum_messages" & _
            "where parent = " & num2sql(IDX) & " order by messageIDX"
    Set treeRS = exeSQL(sql)

    if not treeRS.EOF and not treeRS.BOF Then

        do while not treeRS.eof

            for i = 0 to level
                showReplies = showReplies & "  "
            next

            if treeRS("messageIDX") = cint(messageIDX) Then
            showReplies = showReplies & "<b>"
            End if

            showReplies = showReplies & "<a href=""forum.asp?" & _
                                        "messageIDX=" & treeRS("messageIDX") & _
                                        "&parentIDX=" & parentIDX & _
                                        "&categoryIDX=" & categoryIDX & _
                                        """>" & treeRS("subject") & "</a>"

            if treeRS("messageIDX") = cint(messageIDX) Then
                showReplies = showReplies & "</b>"
            End if

            showReplies = showReplies &  "<br>"
            showReplies = showReplies &  showReplies(treeRS("messageIDX"),level+1)

        treeRS.movenext
        loop

    End if

End Function