convalidare una mail

[enri]

Ola!
ho bisogno dell'espressione, in VBscript, per controllare che un campo form dove va inserita l'e-mail del mittente, sia regolare!
Ho trovato questa, ma è in javascript:

var valida = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/;

il controllo avviene tramite questa sintassi (sempre in javascript):

if (!valida.test(email)) Response.Redirect("errore.htm?id=1");

Ho bisogno di passare tutto in codice VBscript.. chi mi può dare una mano???

Saluti e tante grazie in anticipo!!

[Roby_72]

function check_email(strng)
	'Creazione della Regular Expression 
	Set regEx = New RegExp

	'Definizione del pattern di validazione
	regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$"

	'Ignoro maiuscole e minuscole nell'indirizzo email
	regEx.IgnoreCase = True
	
	'TRUE se l'email è valida
	check_email = regEx.Test(strng)
end function

Roby

[enri]

Grazie!
però ho un po di problemi.. Mo ti posto il mio codice

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR") 
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo	= Request.ServerVariables("HTTP_USER_AGENT")

'rileva i campi del form	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
rag = Request.Form("rag")
indirizzo = Request.Form("indirizzo")
citta = Request.Form("citta")
provincia = Request.Form("provincia")
referente  = Request.Form("referente")
acconsento = request.form("agree")
    
	function checkemail(strng)
    	'Creazione della Regular Expression 
    	Set regEx = New RegExp

    	'Definizione del pattern di validazione
    	regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$"

    	'Ignoro maiuscole e minuscole nell'indirizzo email
    	'regEx.IgnoreCase = True
    	
    	'TRUE se l'email è valida
    	checkemail = regEx.Test(strng)
    end function


if rag = "" then Response.Redirect("errore.htm")
if rag = "" then Response.Redirect("errore.htm")
if indirizzo = "" then Response.Redirect("errore.htm")
if citta= "" then response.Redirect("errore.htm")
if provincia= "" then response.redirect("errore.htm")
if referente = "" then Response.Redirect("errore.htm")
if (check_email = true) then Response.Redirect("errore.htm?id=2")
if acconsento = 0 then response.redirect("errore.htm?id=1")

mi da un errore di sintassi quando dichiaro
function=checkemail(strng)

statemi vicino..

[Roby_72]

if not checkemail then Response.Redirect("errore.htm?id=2")

Roby