Rekursiv funktion få id med ud

Ja det jeg gerne vil er at hver tråd linker til default.asp med deres arrID

har prøvet dette

<%
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>" 
      Threads = "<a href= " & Cint(arrID(m)) & ">" & Threads & "</a>"
    End If       
Next
End Function

%>
<%=Threads(0)%>

men det giver kun links på nogle aaf mine poster

<html>
<head>
<title>Rekursiv funktion</title>
</head>
<body>
<%
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><a href= " & Cint(arrID(m)) & ">" & arrSU(m) & Threads(arrID(m)) & "</a></li></ul>"
    End If   
       
Next

End Function

%>
<%=Threads(0)%>