From: Lara Callaway (_lara_@visitmail.com)
Date: 06/05/2004 - 08:48
J'ai finalement résolu le problème :-) Merci encore pour ton aide.
'-----------------------------------------------------------'
Function loadXMLFile(strXMLFile, strXSLFile, param, valeurParam)
Dim objXML
Dim objXSL
set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = false
objXML.load(strXMLFile)
set objXSL = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXSL.async = false
objXSL.load(strXSLFile)
Dim xslt, xslProc
Set xslt = server.CreateObject("Msxml2.XSLTemplate")
xslt.stylesheet = objXSL
Set xslProc = xslt.createProcessor()
xslProc.input = objXML
xslProc.addParameter param, valeurParam
xslProc.Transform
Response.CharSet="iso-8859-1"
response.write(xslProc.output)
Set objXML=Nothing
Set objXSL=Nothing
Set xslt=Nothing
Set xslProc=Nothing
End Function
'-----------------------------------------------------------'
--
Devenez redacteur <XML>fr et contribuez au developpement du
xml francophone (http://xmlfr.org/infos/redacteurs/) !
Liste de diffusion "xml-tech@xmlfr.org" (http://xmlfr.org).
Cette liste est a votre disposition pour discuter en francais de
tout sujet technique lie a XML.
Pour resilier votre abonnement, envoyez un message contenant
la commande "unsubscribe" a xml-tech-request@xmlfr.org
(mailto:xml-tech-request@xmlfr.org?Subject=unsubscribe)
Archive générée par hypermail 2.1.3 le 28/06/2004 - 11:06 UTC
webmaster@xmlfr.org
| 
