Hola:
Te envío un par de funciones que te pueden servir:
La primera función te hace la transformación del XML en HTML o en el formato de salida resultante del XSL. Le puedes pasar como parámetros el XML y XSL en forma de "string", como un objeto XMLDOM o haciendo referencia a un archivo de tú servidor.
Espero te sirvan, saludos Alain
http://grupofreelance.org
function transformXML( XML, XSL )
Dim objXML
Dim objXSL
Set objXML = getXMLDoc(XML)
Set objXSL = getXMLDoc(XSL)
If objXML.parseError <> 0 Then Response.Write reportParseError(objXML.parseError)
If objXSL.parseError <> 0 Then Response.Write reportParseError(objXSL.parseError)
transformXML = objXML.transformNode(objXSL)
End Function
Function getXMLDoc( XML )
Dim objXML
If IsObject(XML) Then
set objXML = XML
Else
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
If InStr(XML,"<") > 0 Then
'This is a string because < is not valid in a filename
objXML.LoadXML XML
Else
objXML.load(Server.MapPath(XML))
End If
End If
Set getXMLDoc = objXML
End Function