Xml en asp

Hola Roberto,

Puedes crear un archivo XSL que tome ese XML y lo transforme a HTML.

Para esto necesitas bajar el Parser del XML (Microsoft Parser XML 4.0 o
superior) del sitio de microsoft e instalarlo en el servidor web.

Ejemplo simple:

C:\archivo.XML
<DATOS>
<REGISTRO>
<FECHA>15/12/2004</FECHA>
<NUMERO>15000</NUMERO>
<MONTO>185.000</MONTO>
</REGISTRO>
<REGISTRO>
<FECHA>16/12/2004</FECHA>
<NUMERO>15001</NUMERO>
<MONTO>14.000</MONTO>
</REGISTRO>
<REGISTRO>
<FECHA>17/12/2004</FECHA>
<NUMERO>15002</NUMERO>
<MONTO>20.000</MONTO>
</REGISTRO>
</DATOS>

C:\archivo.XSL
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="html" encoding="iso-8859-1" indent="yes" />
<xsl:template match="/">
<table cellspacing="0" cellpadding="0" width="100%" border="1"
align="center">
<tr>
<td>Fecha</td>
<td>Codigo</td>
<td>Monto</td>
</tr>
<xsl:for-each select="//DATOS/REGISTRO">
<tr>
<td>&#160;<xsl:value-of select="FECHA"/></td>
<td>&#160;<xsl:value-of select="NUMERO"/></td>
<td>&#160;<xsl:value-of select="MONTO"/></td>
</tr>
</xsl:for-each>
</table>
</xsl:template>
</xsl:stylesheet>


Function TransformarHTML(ByVal archXML, ByVal archXSL)

Dim oXsl, oXml
Dim strHTML

Set oXsl = Server.CreateObject("MSXML2.DOMDocument")
Set oXml = Server.CreateObject("MSXML2.DOMDocument")

oXsl.async = false
oXml.load(archXML)

oXsl.async = false
oXsl.load(archXSL)

strHTML = oXml.transformNode(oXsl)

TransformarHTML = strHTML

End Function



Saludos,
Jhonny Vargas P.
Santiago de Chile




"roberto" escribió en el mensaje
news:08aa01c4e469$6a61cd70$

Hola a todos , alguien sabe como puedo mostrar un xml en
una pagina .. tengo una dll en vb que genera un xml pero
no se como mostrarlo dentro de la misma pagina
gracias ..

rob

gracias ...

Hola Roberto,

Puedes crear un archivo XSL que tome ese XML y lo

transforme a HTML.

Para esto necesitas bajar el Parser del XML (Microsoft

Parser XML 4.0 o

superior) del sitio de microsoft e instalarlo en el

servidor web.

Ejemplo simple:

C:\archivo.XML
<DATOS>
<REGISTRO>
<FECHA>15/12/2004</FECHA>
<NUMERO>15000</NUMERO>
<MONTO>185.000</MONTO>
</REGISTRO>
<REGISTRO>
<FECHA>16/12/2004</FECHA>
<NUMERO>15001</NUMERO>
<MONTO>14.000</MONTO>
</REGISTRO>
<REGISTRO>
<FECHA>17/12/2004</FECHA>
<NUMERO>15002</NUMERO>
<MONTO>20.000</MONTO>
</REGISTRO>
</DATOS>

C:\archivo.XSL
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="html" encoding="iso-8859-1"

indent="yes" />

<xsl:template match="/">
<table cellspacing="0" cellpadding="0" width="100%"

border="1"

align="center">
<tr>
<td>Fecha</td>
<td>Codigo</td>
<td>Monto</td>
</tr>
<xsl:for-each select="//DATOS/REGISTRO">
<tr>
<td> <xsl:value-of select="FECHA"/></td>
<td> <xsl:value-of select="NUMERO"/></td>
<td> <xsl:value-of select="MONTO"/></td>
</tr>
</xsl:for-each>
</table>
</xsl:template>
</xsl:stylesheet>


Function TransformarHTML(ByVal archXML, ByVal archXSL)

Dim oXsl, oXml
Dim strHTML

Set oXsl = Server.CreateObject("MSXML2.DOMDocument")
Set oXml = Server.CreateObject("MSXML2.DOMDocument")

oXsl.async = false
oXml.load(archXML)

oXsl.async = false
oXsl.load(archXSL)

strHTML = oXml.transformNode(oXsl)

TransformarHTML = strHTML

End Function



Saludos,
Jhonny Vargas P.
Santiago de Chile




"roberto" escribió en el mensaje
news:08aa01c4e469$6a61cd70$

Hola a todos , alguien sabe como puedo mostrar un xml en
una pagina .. tengo una dll en vb que genera un xml pero
no se como mostrarlo dentro de la misma pagina
gracias ..

rob

.