<!--#include virtual ="/newsletters/news20060606CAT/application/utils/adovbs.inc"-->
<!--#include virtual = "/newsletters/news20060606CAT/application/utils/Library.asp"-->
<!--#include virtual = "/newsletters/news20060606CAT/application/utils/Constantes.asp"-->
<!--#include virtual = "/newsletters/news20060606CAT/application/asp-data/Conexion.asp"-->

<%
	Dim XMLDoc, XMLRoot, XSLDoc
	Dim strXSLArchivo

	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 XSLDoc.parseError.Reason
 End If

	'response.ContentType="text/xml" 
	'response.write "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"

	'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

%>