byluciani.com

Esempio live dell'articolo "Validare un indirizzo e-mail con le Regular Expression"

Codice
Function IsMail(sEmail) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z]{2,4}$" objRegExp.IgnoreCase = True IsMail = objRegExp.Test(sEmail) End Function Dim strEmail strEmail = "webmaster@byluciani.com" If IsMail(strEmail) Then Response.Write strEmail & " è un indirizzo email sintatticamente corretto" Else Response.Write strEmail & " NON è un indirizzo email sintatticamente corretto" End If

Inserisci indirizzo e-mail da controllare: