ops...

dimenticavo il codice


Function EmailExists(EmailToTest)
Dim Tiscali, XMLHTTP
Tiscali = "http://webservices.tiscali.com/"
Tiscali = Tiscali & "EmailServices.asmx/IsValidEmail"
Tiscali = Tiscali & "?email="
Set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.Open "GET", Tiscali & EmailToTest, False
XMLHTTP.Send
If InStr(1, CStr(XMLHTTP.ResponseText), "true") > 0 Then
EmailExists = True
Else
EmailExists = False
End If
Set XMLHTTP = Nothing
End Function