Script asp: Controllo validità email

difficoltà:

Script simili
20/11/2006

Semplice funzione per il controllo della validità dell' e-mail inserita in form attraverso espressioni regolari. La funzione restituisce true se la mail è valida false se non lo è.

<%
Function ControlloEmail(email)
	Dim ObjRegexp
	Dim risultato
	Set ObjRegexp = New RegExp
	ObjRegexp.Global = True
	ObjRegexp.IgnoreCase = True
	ObjRegexp.Pattern = "^[_a-z0-9+-]+(\.[_a-z0-9+-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)+$"
	risultato = ObjRegexp.Test(email)
	Set ObjRegexp = Nothing
	ControlloEmail = risultato
End Function
%>