Problema al escribir en XML con XMLDOM y ASP (VB)

[eladio]

Estos haciendo con ASP un script que saque información de una base de datos, y la convierta en XML para cargarla en flash.

El problema esta al crear el XML, para ello utilizo el objeto de ASP: Microsoft.XMLDOM

------------------------------------------------------------------------------------------------

Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")

Set objCn = CreateObject("ADODB.Connection")
objCn.Mode=3
objCn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../bd_access/BDexplorador.mdb") & ";User Id=;Password=;"
Set objRs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT Nombr FROM tCarpeta ORDER BY Nombr, Fecha"
objRs.Open strSQL, objCn, 1
objRs.MoveFirst

'Añadimos el tag principal
Set XMLRoot = XMLDoc.createElement("XMLDocumentObject")

'Obtenemos info de la BD tabla Carpeta
strNombrBD_Carpeta = objRs("Nombr")

Set XMLChild = XMLDoc.createElement("Nombre")
Set txtNodo = XMLDoc.createTextNode(strNombrBD_Carpeta)
XMLChild.appendChild(txtNodo)



XMLDoc.appendChild XMLRoot

XMLDoc.Save "D:\Inetpub\wwwroot_pruebas\explorador de archivos\xml\arbolXML2.xml"




Set XMLChild = Nothing
Set field_BD = Nothing
Set objRs = Nothing
Set XMLDoc = Nothing

------------------------------------------------------------------------------------------------

¿Por qué no me añade más que la etiqueta:: <XMLDocumentObject/> ?

¿Como hago para añadir atributos con valor en cada nodo?



GRACIAS A TODOS