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 ?