Problema con espressioni regolari

[Roby140569]

Devo fare il controllo di validità di alcuni campi di un form e ho pensato di usare le espressioni regolari.

La cosa che non riesco proprio a capire è come mai con questo codice, qualcunque cosa io scriva nel campo email (nel form), mi risulta sempre email sbagliata.

<%
function check_email(strng)
	
	Set regEx = New RegExp
	regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$"
	regEx.IgnoreCase = True
	check_email = regEx.Test(strng)
end function

email = trim(Request("email"))


If Not check_email(strng) Then Response.Write("sbagliata!") Else Response.Write("OK!") End If
 
%>

Ho provato con Response.Write(email) e mi scrive l'indirizzo email come è stato scritto nel form. Quindi il valore viene passato.

Ho provato a lasciare il campo vuoto, a scrivere un'email valida, una non valida, niente da fare, sempre la stessa risposta.

Se questo funziona, vorrei usare le espressioni regolari per controllare anche altri campi del form (nome, cognome, cap, telefono, ecc).

Qualcuno ha qualche idea?

Grazie!

[Alethesnake]

If Not check_email(email) Then Response.Write("sbagliata!") Else Response.Write("OK!") End If

[Roby140569]

Grazie!