1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Dim xmlhttp
Dim DataToSend
DataToSend=""
DataToSend=DataToSend&"<?xml version=""1.0"" encoding=""ISO-8859-1""?> "
DataToSend=DataToSend&"<SOAP-ENV:Envelope SOAP-ENV:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"" "
DataToSend=DataToSend&" xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"" "
DataToSend=DataToSend&" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" "
DataToSend=DataToSend&" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" "
DataToSend=DataToSend&" xmlns:SOAP-ENC=""http://schemas.xmlsoap.org/soap/encoding/"" "
DataToSend=DataToSend&" xmlns:si=""http://soapinterop.org/xsd""> "
DataToSend=DataToSend&"<SOAP-ENV:Body>"
DataToSend=DataToSend&" Le contenu de mon flux XML "
DataToSend=DataToSend&"</SOAP:Body>"
DataToSend=DataToSend&"</SOAP:Envelope>"
Dim postUrl
postUrl = "Mon lien vers mon WebService"
Set xmlhttp = server.Createobject("MSXML2.XMLHTTP")
xmlhttp.Open "POST",postUrl,false
xmlhttp.setRequestHeader "Content-Type","text/xml"
xmlhttp.send DataToSend
Response.Write DataToSend & "<br>"
Response.Write(xmlhttp.responseText) |