Soter en ul li liste

Jeg forsøger med et script fra html dk at lave en sådan liste

<ul>
<li>Item 1</li>
<li>Item 2</li>
<li>Folder 1
    <ul>
    <li>Sub Item 1.1</li>
    <li>Sub Item 1.2</li>
    </ul>
</li>
<li>Item 3</li>
<li>Folder 2
    <ul>
    <li>Sub Item 2.1</li>
    <li>Folder 2.1
        <ul>
        <li>Sub Item 2.1.1</li>
        <li>Sub Item 2.1.2</li>
        </ul>
    </li>
</ul>
</li>
<li>Item 4</li>
</ul>


Det gør jeg med:

Set rsEntries = Rs.Execute("Select * from menu")
Do
  arrID = arrID & "," & rsEntries("ID")
  arrRE = arrRE & "," & rsEntries("RefID")
  arrSU = arrSU & "," & rsEntries("DKONavn")
  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>"
     
      Threads = Threads & "<li>" & arrRE(m) &"-"& arrSU(m) & Threads(arrID(m)) & "</li>"   
     
      Threads = Threads & "</ul>"
     
    End If       
Next
End Function

Response.Write Threads(0)

Men som det trænede øje nok kan se går det galt med <ul> listen bliver rodet sammen.

Jeg vil mene jeg har kikke alle spørgsmål med <ul> i kategorien ASP i gennem uden at finde et svar så er der mon nogen der er i stand til at komme med en løsning eller et forslag til en anden løsning ?