% set Obj = folders.ExtObject
parent = request("parent")
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)
response.writeln("
")
if node.itype=101 then
Response.WriteLn("")
response.writeln("
")
else
response.writeln("
")
end if
response.writeln(node.caption)
response.writeln("