Questo è il codice che uso io:
codice:
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' Crea la variabile.
Set regEx = New RegExp ' Crea un'espressione di ricerca.
regEx.Pattern = patrn ' Imposta il criterio.
regEx.IgnoreCase = True ' Imposta la non rilevanza di maiuscole e minuscole.
regEx.Global = true ' Imposta l'applicabilità globale.
retval = regex.test(strng)
if retval then
'response.Write("OK")
else
response.Redirect "errore.asp?messaggio=L'email inserita non è corretta!"
end if
End Function
call RegExpTest("[a-zA-Z0-9._%-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4} ", request("frm_email"))
spero ti sia d'aiuto!