Ciao a tutti.
Scrivo perchè vorrei capire bene una cosa.
Sto per mettere online un sistema la cui base principale è la registrazione dell'utente, dove l'indirizzo e-mail è fondamentale perchè sarà lo username per il login e l'unico modo che il gestore avrà per comunicare con l'utente.
Detto questo, ho fatto una ricerca per trovare uno script che mi validasse l'esistenza della email.
Ho trovato questo:
Premesso che funziona benissimo, leggendo però qualche thread qui sul forum mi è parso di capire che appoggiarsi 'di nascosto' ad un webservices tipo Tiscali come fa lo script è veramente poco ortodosso.<%
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
%>
<%
Dim email
email = "email@inesistente.ext"
If EmailExists(email) = False Then
Response.Write "Specificare un indirizzo email esistente!"
Else
Response.Write "OK :-)"
End If
%>
Mi spiegate un pò com'è veramente la cosa?
Ci sono altri modi [eventualmente anche a pagamento] per portare a ottenere lo stesso risultato?
Grazie
Franz