Funzione per validazione e-mail

[carlostefano]

Ciao,
ho la seguente funzione per validare il campo e-mail di un form:

Function MailRule(strValue)
	strValue = trim(strValue)
	if not (isempty(strValue) or isnull(strValue) or strValue = "") then
		Set objRegExp = New RegExp
		objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9.-]{2,}+\.[a-z0-9]{2,}$"
		objRegExp.IgnoreCase = True 
		objCheck = objRegExp.Test(strValue)
		if not objcheck then
			strError = "Il campo """ & strFieldName & """ " & notCorrect & " spacer "
			MailRule = strError
		end if
		set objRegExp = nothing
	end if
end Function

Nel momento in cui viene usata compare il seguente errore:


Errore di run-time di Microsoft VBScript (0x800A139A)
Quantificatore imprevisto

La riga incriminata è:

objCheck = objRegExp.Test(strValue)

Saluti,
Carlo

[Roby_72]

Prova questo pattern:

objRegExp.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$"

Roby

[carlostefano]

Grazie