Rekursivt udtræk

Hej Alle!

Jeg er i gang med, at lave en menu hvor jeg skal have lavet nogle divs omkring "hoved links" og "under links". Jeg har fundet en udemærket rekursiv funktion, men jeg kan ikke helt finde ud af den.

Det jeg skal have ind i udtrækket er følgende.

<div id="hoved">Forsiden</div>

<div id="under">
Under link
Under link 2
</div>

<div id="hoved">Produkter</div>

<div id="under">
Lamper
Lampe 1
Lampe 2
Lampe 3
</div>

Jeg trækker tre post ud. ID, RELA, LINK.

Hvis Rela = 0, så er udtrækket et hoved link.
Hvis Rela > 0, så er udtrækket et under link.


Hvordan løses den? På forhånd tak! :)

****** SCRIPT ******

<%
' Database forbindelse
Set Rs = Server.Createobject("ADODB.Connection")   
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../database/database.mdb")& ";"

' Hent data fra databasen
Set rsEntries = Rs.Execute("Select * from menuopsaetning")

If rsEntries.eof then
  Response.Write "<font color=red>Der blev ikke fundet nogle poster i databasen, der modsvarede din forespørgsel!</font>"
  arrID = Split("",",")
  arrRE = Split("",",")
  arrSU = Split("",",")
else

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

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

Rs.Close
End If

' 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 Cint(arrRE(m)) = Cint(intID) Then
      Threads = Threads & arrSU(m) & "<br>" & Threads(arrID(m)) & ""   
    End If   
Next
End Function
Response.Write Threads(0)
%>