<% 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("

") %>