<% 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("
  ") response.writeln("Edit |") response.writeln("Delete |") response.writeln("Start") response.writeln("
  ") response.writeln("
  ") response.writeln("
") next response.write("

") %>