<% On Error Resume Next Dim XMLDoc, XMLRoot, XSLDoc Dim strXSLArchivo,exception,result Set XMLDoc = Server.CreateObject("MSXML2.DOMDocument.4.0") Set XMLRoot = strXML() XMLDoc.appendChild XMLRoot XMLDoc.async = false Set XSLDoc = Server.CreateObject("MSXML2.DOMDocument.4.0") XSLDoc.async = false XSLDoc.load(server.MapPath("../xsl/ContacteSubscriptors.xsl")) If XSLDoc.parseError.errorCode>0 Then response.write("Error code: " + XSLDoc.parseError.errorCode) response.write("
Error reason: " + XSLDoc.parseError.reason) response.write("
Error line: " + XSLDoc.parseError.line) End If 'response.ContentType="text/xml" 'response.write "" 'response.write XMLDOC.xml response.write XMLDoc.TransformNode(XSLDoc) Function strXML() Dim XMLDoc, XMLRoot, XMLParent Set XMLDoc = Server.CreateObject("MSXML2.DOMDocument.4.0") Set XMLRoot = XMLDoc.CreateElement("Contacte") XMLDOC.appendChild XMLRoot If IsObject(Session("Errores")) Then If Not Session("Errores") Is nothing Then Set XMLParent = Session("Errores") Set Session("Errores") = Nothing XMLRoot.appendChild XMLParent End If end if Set strXML = xmlroot Set XMLDoc = nothing End Function %>