TRANSFORMATION D'UN FICHIER XML PAR XSL (XSLT)

<%
dim objXML, objXSLT
dim allok

allok = true
' ----------------------------------------------------
' Create the blank xml docs
' ----------------------------------------------------
Set objXML = Server.CreateObject("Msxml2.DOMDocument")
Set objXSLT = Server.CreateObject("Msxml2.DOMDocument")

objXML.async = false
objXML.load server.mappath("file.xml")

if objQuery.parseError.errorcode <> 0 then
	response.write "Impossible de charger file.xml. Cause: " & objXML.parseError.reason
	allok = false
end if

' ----------------------------------------------------
' Load the transform
' ----------------------------------------------------
if allok = true then
	objIDFiller.async = false
	objIDFiller.load server.mapPath("file.xslt")

	if objIDFiller.parseError.errorcode <> 0 then
		response.write "Impossible de charger file.xslt. Cause: " & objIDFiller.parseError.reason
		allok = false
	end if
end if

' ----------------------------------------------------
' Apply the transform
' ----------------------------------------------------

if allok = true then
	response.write objXML.transformNode objXSLT
end if
%>