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$
Mostrar la cita

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 ...

Mostrar la cita

Hola Roberto,

Puedes crear un archivo XSL que tome ese XML y lo

transforme a HTML.
Mostrar la cita

Para esto necesitas bajar el Parser del XML (Microsoft

Parser XML 4.0 o
Mostrar la cita

superior) del sitio de microsoft e instalarlo en el

servidor web.
Mostrar la cita

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" />
Mostrar la cita

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

border="1"
Mostrar la cita

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$
Mostrar la cita

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

.