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!