Problemer med dynamisk treeview

Halløj

Jeg har kastet blikket på http://www.treeview.net/. Men når jeg prøver at opsætte menuen dynamisk vil den kun vise den sidst oprettede folder og dens evt. undermenuer.

Min kode:

<%
sub outputJavascript(parentId, parentObject)

'Note: Conn is a file-level global variable with the ADODB Connection object previously opened and setup
dim rs, queryString, gFldStr, gLnkStr

queryString = "SELECT * FROM opgaver WHERE ((parent=" & parentId & ") AND (Folder=1)) ORDER BY opgavetekst"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open queryString , Conn
do while not rs.EOF

gFldStr = "gFld('"&rs("opgavetekst")&"', 'java script:parent.op();')"
if parentId = -1 then

response.write "foldersTree = " & gFldStr & VbCrLf
response.write "f = foldersTree" & VbCrLf
outputJavascript rs("opgaveid"), "f"

else

response.write parentObject & "Sub" & " = insFld(" & parentObject & ","&gFldStr&")" & VbCrLf
outputJavascript rs("opgaveid"), parentObject & "Sub"

end if
rs.MoveNext

loop
rs.close
queryString = "SELECT * FROM opgaver WHERE ((parent=" & parentId & ") AND (folder=False)) ORDER BY opgavetekst"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open queryString , Conn
do while not rs.EOF

gLnkStr = "gLnk('S', '" & rs("opgavetekst") & "', 'opgaver.asp?mode=vis&id=" & rs("opgaveid") &"')"
response.write "insDoc(" & parentObject & ","&gLnkStr&")" & VbCrLf
rs.MoveNext

loop
rs.close

end sub
%>

Deres eksempel:

nodeId - Primary key - AutoNumber
nodeName - Text - The string that shows in the tree labeling the folder or the link
parent - Long Integer - The 'nodeId' of the parent folder; -1 if the node is the root folder
nodeIsFolder - Boolean - Indicates if the current record stores a folder or a link
link - Memo - The URL associated with the folder or link; it may longer than 256 chars
sub outputJavascript(parentId, parentObject)

'Note: Conn is a file-level global variable with the ADODB Connection object previously opened and setup
dim rsHits, queryString, gFldStr, gLnkStr

queryString = "SELECT nodeId, nodeName, nodeIsFolder, parent, link FROM treeTable WHERE ((parent=" & parentId & ") AND (nodeIsFolder=True)) ORDER BY nodeName"

Set rsHits = Server.CreateObject("ADODB.Recordset")
rsHits.Open queryString , Conn
do while not rsHits.EOF

gFldStr = "gFld('"&rsHits("nodeName")&"', 'java script:parent.op();')"
if parentId = -1 then

response.write "foldersTree = " & gFldStr & VbCrLf
response.write "f = foldersTree" & VbCrLf
outputJavascript rsHits("nodeId"), "f"

else

response.write parentObject & "Sub" & " = insFld(" & parentObject & ","&gFldStr&")" & VbCrLf
outputJavascript rsHits("nodeId"), parentObject & "Sub"

end if
rsHits.MoveNext

loop
rsHits.close
queryString = "SELECT nodeId, nodeName, link FROM treeTable WHERE ((parent=" & parentId & ") AND (nodeIsFolder=False)) ORDER BY nodeName"
Set rsHits = Server.CreateObject("ADODB.Recordset")
rsHits.Open queryString , Conn
do while not rsHits.EOF

gLnkStr = "gLnk('R', '" & rsHits("nodeName") & "', '" & rsHits("link") &"')"
response.write "insDoc(" & parentObject & ","&gLnkStr&")" & VbCrLf
rsHits.MoveNext

loop
rsHits.close

end sub

Hvordan løser jeg den???