Udskriv sti ID ParentID

Jeg har :

                sql = "SELECT * FROM foldermanager "
                Set rs = Connect.Execute(sql)
Do
  ' Gem data som kommasepareret liste
  arrID = arrID & "," & rs("folderID")
  arrRE = arrRE & "," & rs("ParentID")
  arrSU = arrSU & "," & rs("foldernavn")
  arrOB = arrOB & "," & rs("orden")
  rs.MoveNext
Loop while not rs.eof

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

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 Cint(arrRE(m)) = Cint(intID) Then
 
      Threads = Threads &"<ul><li><a href=java script:selectFile('?ID="&Cint(arrID(m))&"')>&nbsp;&nbsp;" & arrSU(m) & Threads(arrID(m)) & "</a></li></ul>"
     
    End If       
Next
End Function


Den viser folder + subfolder som en liste
test
--test
---test
demo
--demo
---demo

men jeg vil have den til at vise det sådan her:

test
test/test1
test/test1/test2

demo
demo/demo1
demo/demo1/demo2