Problemas al pasar de ASP a XML

[benito_camelas]

Hola kino,

¿no te iría bien guardar el xml en un archivo en el disco?
Normalmente cuando saco datos de una DB hacia XML, lo hago con el objeto Microsoft.XMLDOM.

Como verás es bastante sencillo de usar.

Aquí tienes un ejemplo.

<%
Dim objDom
Dim objRaiz
Dim objHijo1
Dim objHijo2
Dim objCabecera

'instanciamos el XMLDOM
Set objDom = Server.CreateObject("Microsoft.XMLDOM")

'instanciamos el elemento raiz y lo agregamos al objeto XMLDOM
Set objRaiz = objDom.createElement("gallery")
objDom.appendChild objRaiz


'instanciamos el elemento Hijo1 y lo agregamos al elemento raiz
Set objHijo1 = objDom.createElement("album")
objRaiz.appendChild objHijo1

'Ahora creamos los atributos
Set attID = objDom.createAttribute("id")
attID.Text = "'Album de pruebas'"
objHijo1.setAttributeNode attID

'Y así sucesivamente con el resto de atributos
'....


'instanciamos el elemento Hijo2 y lo agregamos al elemento objHijo1
Set objHijo2 = objDom.createElement("img")
objHijo1.appendChild objHijo2

'Aquí añadimos los atributos de img al nodo objHijo2

'instanciamos la cabecera
Set objCabecera = objDom.createProcessingInstruction("xml","version= '1.0'")

'agregamos la cabecera antes del elemento raiz
bjDom.insertBefore objCabecera, objDom.childNodes(0)

'finalmente grabamos el XML en disco duro
objDom.Save "c:\archivoXML.xml"
%>