<%
function folderposition(layer)
		folderposition = "f"
			dim i
			i = 0
			do while i<layer
			  folderposition = folderposition&"Sub"
			  i = i + 1
			loop
	end function
	function write_file_in_folder(folderid,layer)
		q = "SELECT filename,pictureid FROM pictures WHERE folderid = "&folderid &" AND userid = "&session("loginid")
		set rs = conn.execute(q)
		do while not rs.eof
			response.Write("aux = insDoc("&folderposition(layer)&",gLnk('B', """&rs.fields("filename")&""", """&rs.fields("pictureid")&""")) "&chr(13))
			response.Write("aux.iconSrc = ICONPATH + 'iconGIF.gif'"&chr(13))
			response.Write("if (document.images){pic"&rs.fields("pictureid")&" = new Image(100,100);"&chr(13)&"pic"&rs.fields("pictureid")&".src=""inc_php/image.php?id="&rs.fields("pictureid")&"&x=100&y=100"";}"&chr(13))
			rs.movenext
		loop
	end function
	function write_folders_with_parent(parent,layer)
		q = "SELECT * FROM folders WHERE parentid ="& parent
		set rs = conn.execute(q)
		do while not rs.eof
			
			response.Write(folderposition(layer)&"Sub = insFld("&folderposition(layer)&",gFld("""&rs.fields("title")&""",'javascript:undefined'))"&chr(13))
			layer = layer + 1
			call write_file_in_folder(rs.fields("folderId"),layer)
			call write_folders_with_parent(rs.fields("folderId"),layer)
		rs.movenext
		loop
		layer = layer - 1
	end function
%>