Hola a todos,
estoy intentando leer un archivo xml desde asp, como veis en el xml la estructura varía un poco de los ejemplos que he visto por los foros, he probado multitud de combinaciones pero no logro que la página asp muestre los datos del xml.
Esteseria el xml:
Código:
<?xml version='1.0'?>
<DATOSFARMA NOMBRE='ABC' LUGAR='QWERTY' SRV='ALJ'>
<FARMACIA>
<FM MED='DOL'>
<DIST AB='A' CD='UNO' />
<DIST AB='B' CD='DOS' /></FM>
<FM MED='DAL'>
<DIST AB='C' CD='TRES' />
<DIST AB='D' CD='CUATRO' /></FM>
</FARMACIA>
<DATOSGEN>
<DTGEN CD='CINCO' />
<DTGEN CD='SEIS' />
</DATOSGEN>
</DATOSFARMA>
Este el xsl:
Código:
<?xml version="1.0" ?>
<xsl:stylesheet xmlns:xsl="ht tp://w ww.w3.org/1999/XSL/Transform" version="1.0">
<xsl:template match="/">
<table border="1">
<xsl:for-each select="DATOSFARMA">
<tr>
<td>
<xsl:value-of select="NOMBRE" />
</td>
<td>
<xsl:value-of select="LUGAR" />
</td>
<td>
<xsl:value-of select="SRV" />
</td>
</tr>
</xsl:for-each>
</table>
</xsl:template>
</xsl:stylesheet>
Este el asp:
Código:
<%
Dim objXML
Dim objXSL
Dim strHTML
'Cargo el archivo XML
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.load(Server.MapPath("farma.xml"))
'Cargo el archivo XML
Set objXSL = Server.CreateObject("Microsoft.XMLDOM")
objXSL.async = False
objXSL.load(Server.MapPath("farma.xsl"))
' Transformo el archivo XML usando la hoja de estilos XSL
strHTML = objXML.transformNode(objXSL)
Set objXML = Nothing
Set objXSL = Nothing
'Saco el HTML resultante ... los datos provienen
'de los archivos. xml, pero el formato de los
'resultados depende completamente del archivo .xsl
Response.Write strHTML
%>
Este seria solo un ejemplo facil, que no logro hacer funcionar, de lo que estoy intentando hacer.
Gracias de antemano a todos.