ASP: Verificare Indirizzo mail

6 lug 2009

Pubblicato in HowTo, Programmazione | Nessun commento »

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
%