<pre>
&lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
&lt;html>&lt;head>&lt;title>Test Web Service&lt;/title>&lt;/head>
&lt;body bgcolor=silver>&lt;font face=verdana>
&lt;h1>test WS&lt;/h1>
&lt;%

WS="http://css.unimo.it/XML/WS1.asmx/OraDelServer"
Response.Write("&lt;h4>richiesta&lt;/h4>" & WS)

Set oggettoXML = Server.Createobject("Microsoft.XMLHTTP")
oggettoXML.Open "POST",WS,False
oggettoXML.send
XML = oggettoXML.responseText

Response.Write("&lt;h4>responseXML.xm&lt;/h4>" & oggettoXML.responseXML.xml)

' caricamento XML DOM

Set docXML = Server.Createobject("MSXML.DOMDocument")
docXML.loadXML (XML)
set  root=docXML.documentElement

' XML DOM
Response.Write("&lt;hr>&lt;h4>analisi con DOM&lt;/h4>")
Response.write("nome del nodo: &lt;b>" & root.nodeName & "&lt;/b>&lt;br />")
Response.write("attributo: &lt;b>" & root.getAttribute("xmlns") & "&lt;/b>&lt;br />")
Response.write("testo: &lt;b>" & root.text & "&lt;/b>")

set oggettoXML=Nothing
set docXML=Nothing
%>

</html>