Sono riuscito a mettere on line il proxy compilato da Web Matrix(http://abmcr.europe.webmatrixhosting...ebservice.aspx) ma il risultato che dice "server name was not found."


<script runat="server">

Sub Page_Load()

Dim objXMLHTTP as new ProvaTiscali.TiscaliEmailServices()
dim StrURL as string
dim email as string
dim risultato as string

email="tuaemail@controllare.it"
'StrURL="http://webservices.tiscali.com/EmailServices.asmx/IsValidEmail?email="&email

'objXMLHTTP.Open "GET", StrURL, false
risultato= objXMLHTTP.isvalidemail(email)
label1.text=risultato

End Sub

</script>

La DLL l'ha creata da questo provatiscali.vb (web matrix l'ha fatto da solo)



Option Strict Off
Option Explicit On

Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization

'
'ASP.NET Web Matrix
'
Namespace ProvaTiscali

'<remarks/>
<System.Diagnostics.DebuggerStepThroughAttribute() , _
System.ComponentModel.DesignerCategoryAttribute("c ode"), _
System.Web.Services.WebServiceBindingAttribute(Nam e:="Tiscali Email ServicesSoap", [Namespace]:="http://webservices.tiscali.com/")> _
Public Class TiscaliEmailServices
Inherits System.Web.Services.Protocols.SoapHttpClientProtoc ol

'<remarks/>
Public Sub New()
MyBase.New
Me.Url = "http://webservices.tiscali.com/EmailServices.asmx"
End Sub

'<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/SendEmail", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
Public Function SendEmail(ByVal from As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal smtpServer As String) As String
Dim results() As Object = Me.Invoke("SendEmail", New Object() {from, [to], cc, bcc, subject, body, smtpServer})
Return CType(results(0),String)
End Function

'<remarks/>
Public Function BeginSendEmail(ByVal from As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal smtpServer As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("SendEmail", New Object() {from, [to], cc, bcc, subject, body, smtpServer}, callback, asyncState)
End Function

'<remarks/>
Public Function EndSendEmail(ByVal asyncResult As System.IAsyncResult) As String
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),String)
End Function

'<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/SendEmailWithNames", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
Public Function SendEmailWithNames(ByVal fromName As String, ByVal from As String, ByVal toName As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal smtpServer As String) As String
Dim results() As Object = Me.Invoke("SendEmailWithNames", New Object() {fromName, from, toName, [to], cc, bcc, subject, body, smtpServer})
Return CType(results(0),String)
End Function

'<remarks/>
Public Function BeginSendEmailWithNames(ByVal fromName As String, ByVal from As String, ByVal toName As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal smtpServer As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("SendEmailWithNames", New Object() {fromName, from, toName, [to], cc, bcc, subject, body, smtpServer}, callback, asyncState)
End Function

'<remarks/>
Public Function EndSendEmailWithNames(ByVal asyncResult As System.IAsyncResult) As String
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),String)
End Function

'<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/SendEmailWithNamesAndEncoding", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
Public Function SendEmailWithNamesAndEncoding(ByVal fromName As String, ByVal from As String, ByVal toName As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal encoding As String, ByVal smtpServer As String) As String
Dim results() As Object = Me.Invoke("SendEmailWithNamesAndEncoding", New Object() {fromName, from, toName, [to], cc, bcc, subject, body, encoding, smtpServer})
Return CType(results(0),String)
End Function

'<remarks/>
Public Function BeginSendEmailWithNamesAndEncoding(ByVal fromName As String, ByVal from As String, ByVal toName As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal encoding As String, ByVal smtpServer As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("SendEmailWithNamesAndEncoding", New Object() {fromName, from, toName, [to], cc, bcc, subject, body, encoding, smtpServer}, callback, asyncState)
End Function

'<remarks/>
Public Function EndSendEmailWithNamesAndEncoding(ByVal asyncResult As System.IAsyncResult) As String
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),String)
End Function

'<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/SendEmailWithSmtpResult", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
Public Function SendEmailWithSmtpResult(ByVal from As String, ByVal [to] As String, ByVal subject As String, ByVal body As String, ByVal attachmentUrl As String, ByVal smtpServer As String) As SmtpResult
Dim results() As Object = Me.Invoke("SendEmailWithSmtpResult", New Object() {from, [to], subject, body, attachmentUrl, smtpServer})
Return CType(results(0),SmtpResult)
End Function

(...)

'<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/GetSMTPServer", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
Public Function GetSMTPServer(ByVal domain As String) As String
Dim results() As Object = Me.Invoke("GetSMTPServer", New Object() {domain})
Return CType(results(0),String)
End Function

'<remarks/>
Public Function BeginGetSMTPServer(ByVal domain As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("GetSMTPServer", New Object() {domain}, callback, asyncState)
End Function

'<remarks/>
Public Function EndGetSMTPServer(ByVal asyncResult As System.IAsyncResult) As String
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),String)
End Function

'<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/IsValidEmail", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
Public Function IsValidEmail(ByVal email As String) As String
Dim results() As Object = Me.Invoke("IsValidEmail", New Object() {email})
Return CType(results(0),String)
End Function

'<remarks/>
Public Function BeginIsValidEmail(ByVal email As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("IsValidEmail", New Object() {email}, callback, asyncState)
End Function

'<remarks/>
Public Function EndIsValidEmail(ByVal asyncResult As System.IAsyncResult) As String
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),String)
End Function

'<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/IsValidPassword", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
Public Function IsValidPassword(ByVal email As String, ByVal password As String) As String
Dim results() As Object = Me.Invoke("IsValidPassword", New Object() {email, password})
Return CType(results(0),String)
End Function

'<remarks/>
Public Function BeginIsValidPassword(ByVal email As String, ByVal password As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("IsValidPassword", New Object() {email, password}, callback, asyncState)
End Function

'<remarks/>
Public Function EndIsValidPassword(ByVal asyncResult As System.IAsyncResult) As String
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),String)
End Function

'<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/GetServicesTests", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
Public Function GetServicesTests(ByVal QuickTestsOnly As Boolean) As <System.Xml.Serialization.XmlArrayItemAttribute(Is Nullable:=false)> ServiceTest()
Dim results() As Object = Me.Invoke("GetServicesTests", New Object() {QuickTestsOnly})
Return CType(results(0),ServiceTest())
End Function

'<remarks/>
Public Function BeginGetServicesTests(ByVal QuickTestsOnly As Boolean, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("GetServicesTests", New Object() {QuickTestsOnly}, callback, asyncState)
End Function

'<remarks/>
Public Function EndGetServicesTests(ByVal asyncResult As System.IAsyncResult) As ServiceTest()
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),ServiceTest())
End Function

'<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/GetServicesStatus", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
Public Function GetServicesStatus() As Boolean
Dim results() As Object = Me.Invoke("GetServicesStatus", New Object(-1) {})
Return CType(results(0),Boolean)
End Function

'<remarks/>
Public Function BeginGetServicesStatus(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("GetServicesStatus", New Object(-1) {}, callback, asyncState)
End Function

'<remarks/>
Public Function EndGetServicesStatus(ByVal asyncResult As System.IAsyncResult) As Boolean
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),Boolean)
End Function
End Class

'<remarks/>
<System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://webservices.tiscali.com/")> _
Public Class SmtpResult

'<remarks/>
Public Result As String

'<remarks/>
Public SmtpLog As String
End Class

'<remarks/>
<System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://webservices.tiscali.com/")> _
Public Class ServiceTest

'<remarks/>
Public time As Date

'<remarks/>
Public description As String

'<remarks/>
Public expectedResult As String

'<remarks/>
Public actualResult As String

'<remarks/>
Public success As Boolean
End Class
End Namespace