% set Obj = folders.ExtObject
parent = request("parent")
p = "false"
if request("p") <> "" then p = "true"
if parent = "0" then
set nodes = folders
else
set nodes = folders.FolderByIID(CLng(parent))
end if
response.write("
")
for i = 0 to nodes.count - 1
set node = nodes.list(i)
if node.itype=101 then
response.writeln("- ")
Response.WriteLn("" & node.caption & "")
response.writeln("")
response.writeln("
")
else
if p then
response.writeln("- ")
Response.WriteLn("" & node.caption & "")
response.writeln("")
response.writeln("
")
end if
end if
next
response.write("
")
%>