<% Dim source, style, outputNode, result, xTemplate, proc, pi, erreur set style = load("/_private/blink.xsl") set xTemplate= CreateObject("MSXML2.XSLTemplate") set source = CreateObject("MSXML2.FreeThreadedDOMDocument") source.async = False source.setProperty "ServerHTTPRequest", True source.Load "http://www.blinkpro.com/xml/jfiger/" set Erreur = source.parseError if Erreur.errorCode <> 0 then response.write("Erreur dans BlinkPro : " & Erreur.reason & vbCrLf & Erreur.srcText) end if xTemplate.stylesheet=style set proc=xTemplate.createProcessor proc.input=source proc.transform response.write (proc.output) %>