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

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..