El Guru Programador
Usuario DESCONOCIDO | Registrate Gratis | Usuarios Registrados

Cómo crear un XML desde ASP

Jorge Gonzalez, de Crea tu Sitio
?
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("")
Response.Write("")
Response.Write("Jorge")
Response.Write("Jose")
Response.Write("Hola!")
Response.Write("
")
%>



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("")
response.write("")
while (not rs.EOF)
response.write("")
response.write("" & rs("nombre") & "")
response.write("" & rs("apellido") & "")
response.write("
")
rs.MoveNext()
wend
rs.close()
conn.close()
response.write("
")
%>



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.
?
Suscribite al boletin y recibi las novedades del sito en tu Email!
Tu Email

?

Contactos myStudio Network