Vi serve una funzione che permette di verificare se un indirizzo email inserito all’interno di un form sia corretto? Esistono diversi metodi, lo script seguente recupera la mail e analizza tutti i parametri:
% Function IsMail(sEmail) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[a-z._-]+\@[a-z._-]+\.[a-z]{2,4}$" objRegExp.IgnoreCase = True IsMail = objRegExp.Test(sEmail) End Function Dim strEmail strEmail = Request.form("email") If IsMail(strEmail) Then Response.Write strEmail _ " è un indirizzo email sintatticamente corretto" Else Response.Write strEmail _ " NON è un indirizzo email sintatticamente corretto" End If %
