<pre>
&lt;%

WS="http://css.unimo.it/XML/WS1.asmx/OraDelServer"
Set oggettoXML = Server.Createobject("Microsoft.XMLHTTP")
oggettoXML.Open "POST",WS,False
oggettoXML.send

Response.Write("&lt;body bgcolor=silver>&lt;font face=verdana>&lt;h1>test WS&lt;/h1>&lt;h2>chiamata&lt;/h2>" & WS & "&lt;h2>risposte del server&lt;/h2>&lt;h4>Headers&lt;/h4>" & oggettoXML.getAllResponseHeaders)
Response.Write("&lt;h4>readyState&lt;/h4>" & oggettoXML.readyState)

Response.Write("&lt;h4>responseText&lt;/h4>" & oggettoXML.responseText)
Response.Write("&lt;h4>responseXML.xml&lt;/h4>" & oggettoXML.responseXML.xml)

Response.Write("&lt;h4>status&lt;/h4>" & oggettoXML.status)
Response.Write("&lt;h4>statusText&lt;/h4>" & oggettoXML.statusText)

%>