Recursively creating a DOM Tree

[Neil]

Hi,

I'm new to all this so any help would be appreciated.

I'm trying to build a DOM Tree by retrieving info from the database
and storing these objects as elements.

I have a structure a bit like windows explorer with folders within
folder within folders.... e.g.

<folder id="1" parent="0">
<title>Folder 1</title>
<folder id="2" parent="1">
<title>Sub Folder 1</title>
</folder>
</folder>

Now I've written a recursive function that calls until the last folder
is reached. It looks like this:

--------------------------------------------------------------------------------
<snip>

function traverseFolderNodes(folderId, parentFolder)
sql = "SELECT a.id, a.folderName, b.parentId FROM tblFolders a INNER
JOIN tblFolders_To_Folders b " & _
"ON b.childId = a.id WHERE b.parentId = " & folderId

set rsFolder = SQLString(sql)
if not rsFolder.EOF then

***PROBLEM ON LINE BELOW***

xmlGenerator.createElement "entity", folderElement
xmlGenerator.createTextElement "title", titleElement,
rsFolder("folderName")
xmlGenerator.createTextElement "image", imageElement,
"img/book.gif"
xmlGenerator.createTextElement "imageopen", imageOpenElement,
"img/bookopen.gif"


xmlGenerator.addChild parentFolder, folderElement
xmlGenerator.addAttribute folderElement, "id", rsFolder("id")
xmlGenerator.addAttribute folderElement, "parent",
rsFolder("parentId")
xmlGenerator.addChild folderElement, titleElement
xmlGenerator.addChild folderElement, imageElement
xmlGenerator.addChild folderElement, imageOpenElement


do while not rsFolder.EOF and folderId <> ""

traverseFolderNodes rsFolder("id"), folderElement
rsFolder.moveNext()
loop
end if
end function

public sub createElement(elementName, byRef element)
Set element = objDom.createElement(elementName)
end sub

</snip>
--------------------------------------------------------------------------------

The error message I am getting is:

"Inserting a Node or its ancestor under itself is not allowed."

Any words of wisdom would be appreciated