<%	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("<ul>")
	for i = 0 to nodes.count - 1
		set node = nodes.list(i)
		if node.itype=101 then
			response.writeln("<li>")
			Response.WriteLn("<a class='closed' id='a-" & node.iid & "' href='javascript: loadFolders(" & node.iid & ", " & p & ")'>" & node.caption & "</a>")
			response.writeln("<div id='f-" & node.iid & "'></div>")
			response.writeln("</li>")
		else
			if p then
				response.writeln("<li class='project'>")
				Response.WriteLn("<a id='a-" & node.iid & "' href='project.htm?id=" & node.iid & "'>" & node.caption & "</a>")
				response.writeln("<div id='f-" & node.iid & "'></div>")
				response.writeln("</li>")
			end if
		end if
		
	next
	response.write("</ul>")
	%>
