Rekursiv funktion til menu

Er det en rekursiv funktion ala det de bruger her?
http://www.html.dk/scripts/asp/00015/

Den er småmænd find nok, hvis man har unikke id, det har jeg ikke, jeg har 3 tekst felter...

ok det må være noget i samme dur, havde ikke tænkt over du ikke har et unikt id.
Det synes jeg personligt altid er en god ide, specielt hvis det er en tabel som skal kunne opdateres

Ja det er noget i samme stil som den funktion der, hvis du kan få den til at virke er pointene dine, tabellen bliver opdateret fra mit regnskabs program og jeg har derfor ingen indflydelse på hvordan den skal/bør være bygget op.

Jeg har det her...

Set rsEntries = Rs.Execute("Select * from InterNetGroup")

Do
  ' Gem data som kommasepareret liste
  arrID = arrID & "," & rsEntries("Grouping")
  arrRE = arrRE & "," & rsEntries("ParentGroup")
  arrSU = arrSU & "," & rsEntries("Name")
  rsEntries.MoveNext
Loop while not rsEntries.eof

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

Rs.Close

' Funktion som undersøger for svar
Function Threads(intID)   
  For m = 1 to Ubound(arrID)
    ' Hvis svar til det indlæg som funktionen er kaldt med
      If arrRE(m) = cint(intID) Then
      ' Tilføj til liste og kald funktionen for at undersøge for svar
      Threads = Threads & "<ul><li>" & arrSU(m) & Threads(arrID(m)) & "</li></ul>"   
    End If       
Next
End Function

' Kald funktionen med alle hovedindlæg
Response.Write Threads(0)

Ja der er det jo så blot at dit arrID ikke er unikt..hmm

Jeg er kommet frem til det her, det giver i det mindste et output men det output er helt hen i vejret ;)

Set rsEntries = Rs.Execute("Select * from InterNetGroup")

Do
  ' Gem data som kommasepareret liste
  arrID = arrID & "," & rsEntries("Grouping")
  arrRE = arrRE & "," & rsEntries("ParentGroup")
  arrSU = arrSU & "," & rsEntries("name")
  rsEntries.MoveNext
Loop while not rsEntries.eof

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

Rs.Close

' Funktion som undersøger for svar
Function Threads(intID)   
  For m = 1 to Ubound(arrID)
    ' Hvis svar til det indlæg som funktionen er kaldt med
    'response.Write(arrRe(m) & " = " & intID & "<br>")
      If trim(CStr(arrRE(m))) = trim(CStr(intID)) Then
      ' Tilføj til liste og kald funktionen for at undersøge for svar
      Threads = Threads & "<ul><li>" & arrSU(m) & Threads(arrID(m)) & "</li></ul>"   
      end if
  Next
End Function

' Kald funktionen med alle hovedindlæg
Response.Write Threads("")

Slet ingen der kan komme et en løsning ??

Jeg løste problemet med en javascript menu fra dtree, og lukker herfor.