ASP CLASSIC | Evocare un web service da una pagina Asp

Dim Cognome, Nome, DataNascita, Sesso, Comune
Cognome = "Bianchi"
Nome = "Mario"
DataNascita = "01/03/1965"
Sesso = "M"
Comune = "Napoli"

Dim StrXml
StrXml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
	"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
		"<soap:Body>" & _
			"<GetFiscalCode xmlns=""http://www.sorrentino.it/ws/codicefiscale.asmx"">" & _
				"<Cognome>" & Cognome & "</Cognome>" & _
				"<Nome>" & Nome & "</Nome>" & _
				"<DataNascita>" & DataNascita & "</DataNascita>" & _
				"<Sesso>" & Sesso & "</Sesso>" & _
				"<ComuneNascita>" & Comune & "</ComuneNascita>" & _
			"</GetFiscalCode>" & _
		"</soap:Body>" & _
	"</soap:Envelope>"
	
Set Xml = Server.CreateObject("Microsoft.XmlHttp")
Xml.Open "get", "http://www.sorrentino.it/ws/codicefiscale.asmx", false
Xml.SetRequestHeader "Content-Type", "text/xml"
Xml.Send StrXml

Dim ResultText, ResultXml
ResultText = Xml.ResponseText
ResultXml = Xml.ResponseXml.Xml
Set Xml = Nothing

Response.Write(ResultText)