Cómo crear un XML desde ASP

Un archivo XML puede ser creado fácilmente desde cualquier editor de texto, hasta Notepad. Pero, ¿que hacemos cuando necesitamos generarlo dinámicamente?

Si no necesitamos guardar una copia en disco duro, podemos simplemente enviar el contenido XML desde nuestra página ASP, estableciendo antes el tipo de contenido a enviar como XML, como en el siguiente ejemplo:

<%
Response.ContentType="text/xml"

Response.Write("<?xml version=’1.0′ ?>")
Response.Write("<nota>")
Response.Write("<de>Jorge</de>")
Response.Write("<a>Jose</a>")
Response.Write("<mensaje>Hola!</mensaje>")
Response.Write("</nota>")
%>

La razón mas común para generar un XML dinámicamente es que necesitamos extraer datos desde una base de datos, como lo ilustra el siguiente ejemplo:

<%
Response.ContentType = "text/xml"
set conn=Server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0;"
conn.open server.mappath("BaseDeDatos.mdb")
sql="select nombre, apellido from Clientes"

set rs = Conn.Execute(sql)
rs.MoveFirst()
response.write("<?xml version=’1.0′ ?>")
response.write("<clientes>")
while (not rs.EOF)
response.write("<cliente>")
response.write("<nombre>" & rs("nombre") & "</nombre>")
response.write("<apellido>" & rs("apellido") & "</apellido>")
response.write("</cliente>")
rs.MoveNext()
wend
rs.close()
conn.close()
response.write("</clientes>")
%>

Finalmente, si lo que necesitamos es grabar el archivo XML en disco duro, podemos hacerlo con el objeto Microsoft.XMLDOM:

<%
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("ElementoRaiz")
objDom.appendChild objRaiz

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

‘instanciamos el elemento Hijo2 y lo agregamos al elemento raiz
Set objHijo2 = objDom.createElement("childElement2")
objRaiz.appendChild 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:MiArchivoXML.xml"
%>

Así hemos revisado las distintas formas de generar XML desde ASP. En próximas entregas veremos como manipular nodos con el objeto XMLDOM.

Deja un comentario