litt til med rekursiv

her er min kode:


Set rsEntries = Connect.Execute("Select * from T_Meny ORDER BY navn")

Do while not rsEntries.eof
  ' Gem data som kommasepareret liste
  arrID = arrID & "," & rsEntries("ID")
  arrRE = arrRE & "," & rsEntries("RID")
  arrSU = arrSU & "," & rsEntries("Navn")
 
rsEntries.MoveNext
Loop

' Lav arrays med data
arrID = Split(arrID,",")
arrRE = Split(arrRE,",")
arrSU = Split(arrSU,",")

Dim MyArray(2)

IntTre = 0
' Funktion som undersøger for svar
Function Threads(intID)

IntTre = int(IntTre) + int(1)

  For m = 1 to Ubound(arrID)

    ' Hvis svar til det indlæg som funktionen er kaldt med

    If Cint(arrRE(m)) = Cint(intID) Then
      ' Tilføj til liste og kald funktionen for at undersøge for svar
      Threads = Threads & "" & arrSU(m) & ":>" & Threads(arrID(m)) & "<br>"
    End If

Next

IntTre = int(IntTre) - int(1)

End Function

' Kald funktionen med alle hovedindlæg

Response.Write Threads(0)



Med ovenstående kode skriver den ut slik:
Alarm:>FG-Godkjent:>

Tv-Overvåkning:>Braketter:>Tak:>
Vegg:>

Kamera:>
Kamerahus:>
Skjerm:>CRT:>
LCD:>



Men for å ta et eksempel
men Jeg vil det skal skrives ut slik:
TV-OVervåkning
Tv-Overvåkning:>Skjerm
Tv-Overvåkning:>Skjerm:>CRT
Tv-Overvåkning:>Skjerm:>LCD

slik at jeg får dekket alle områdene...hvis dere skjønner...hvordan klarer jeg det?

jeg prøvde med å sette opp arrays hvor jeg skrev inn hver katagori...men det ble ikke helt riktig for det dukket opp ">>" plutselig noen plasser!

kan dere hjelpe meg?