<% @Language="VBSCRIPT" %> <% option explicit dim oDOM dim oDoc dim oXsl dim path dim xslpath dim Result dim error response.ContentType = "text/html" response.Charset = "iso-8859-1" if Request.QueryString ("URL") = "" then %> Présentation de contrat WSDL

Présentation de contrat WSDL

URL du contrat WSDL à analyser:

Merci d'avance de vos remarques, notamment des exemples de contrats qui ne passent pas

<% else path = Request.QueryString("URL") 'Response.Write "L'URL du contrat WSDL à analyser est: " & path & ".

" & vbCRLF 'Load the WSDL set oDOM = Server.CreateObject ("Microsoft.XMLDOM") oDOM.async = false oDOM.load(path) 'Load the XSL set oXsl = Server.CreateObject("Microsoft.XMLDOM") oXsl.async = false oXsl.validateOnParse = false xslpath = Server.MapPath("wsdl.xsl") ' Response.Write ("

XSL Path = " & xslpath & "

" & vbCRLF) oXsl.load(xslpath) if (oXsl.parseError.errorCode <> 0) then set error = oXsl.parseError Response.Write "

Error parsing XSLT file: " & error.reason & "[" & error.url _ & ": line " & error.line & ", col " & error.linepos & "]

" Response.End end if 'Transform the file ' sauf que ça ne marche pas avec le DOCTYPE si le document XML n'est pas conforme. result = oDOM.transformNode(oXsl) if Result = "" then result = "Erreur de transformation XSL" end if Response.write Result & vbCRLF end if %>