Rekursiv funktion få id med ud
Jeg har<%
Set Rs = Server.Createobject("ADODB.Connection")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("database/rcm.mdb")& ";"
Set rsEntries = Rs.Execute("Select * from navigation_menu order BY Order_By")
Do
arrID = arrID & "," & rsEntries("NAV_PKEY")
arrRE = arrRE & "," & rsEntries("NAV_PARENT")
arrSU = arrSU & "," & rsEntries("NAV_TITLE")
rsEntries.MoveNext
Loop while not rsEntries.eof
arrID = Split(arrID,",")
arrRE = Split(arrRE,",")
arrSU = Split(arrSU,",")
Rs.Close
Function Threads(intID)
For m = 1 to Ubound(arrID)
If Cint(arrRE(m)) = Cint(intID) Then
Threads = Threads & "<ul><li>" & arrSU(m) & Threads(arrID(m)) & "</li></ul>"
End If
Next
End Function
%>
<a href=""><%=Threads(0)%></a>
hvordan kan jeg få arrID skrevet ud i <a href=""> ??
