Går det med denna rekursiva sub...


sub tree(connection,parentid,level)
dim rs
set rs = connection.execute("select l_id,l_linktext, l_linkurl from tbl_links where parentid = " & parentid)
while not rs.eof
response.write replace(spaces(level)," ","-") & ">" & rs(1) & " " & rs(2) & "<br>"
tree connection,rs(0),level+1
rs.movenext
wend
end sub


...att skapa ett litet system för att skriva ut hierarkien dynamiskt?

(Alltså så att siffror och _ skrivs ut)
ex.

Länk1
Länk2
Länk 2_1
Länk 2_2
Länk 2_3
Länk 2_3_1
Länk 2_3_2
Länk3
Länk 3_1
Länk4
osv.

Skicka med en sträng som innehåller numren för föräldern, och loopa igenom numren för varje nivå:

<code>
Sub tree(connection,parentid,level,ByVal numbers)
Dim rs, count
Set rs = connection.Execute("select l_id,l_linktext, l_linkurl from tbl_links where parentid = " & parentid)
If Len(numbers)>0 Then numbers = numbers & "_"
count = 1
Do Until rs.EOF
Response.Write String(level,"-") & ">" & rs(1) & " " & rs(2) & " " & numbers & count & "<br>"
tree connection, rs(0), level + 1, numbers & count
rs.Movenext
count = count + 1
Loop
End Sub
</code>

(Jag bytte ut replace(spaces(level)," ","-") mot den lite smidigare String(level,"-") )

Bussigt!
Funkade prima.

Skickade in null när jag kallade på den:

tree conn,0,0,null

Skicka in en tom sträng istället.