1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
<%
Set objSrvHTTP = Server.CreateObject ("Msxml2.ServerXMLHTTP.3.0")
Set objXMLSend = Server.CreateObject("Microsoft.XMLDOM")
Dim lResolve, lConnect, lSend, lReceive
lResolve = 5 * 1000
lConnect = 5 * 1000
lSend = 60 * 1000
lReceive = 60 * 1000
objSrvHTTP.setTimeouts lResolve, lConnect, lSend, lReceive
objXMLSend.loadXML ("les_données")
objSrvHTTP.open "POST","http://xxx.xxx.xxx.xxx/read_xml.asp",false
objSrvHTTP.send (objXMLSend)
'La réponse éventuelle du serveur distant
strValue = objSrvHTTP.responseText
Set objSrvHTTP = Nothing
Set objXMLSend = Nothing
%> |