controllo validita email

[diablobox]

Ciao

ho fatto un controllo di validita email:

<%
Function valida_email(strng)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[A-Za-z0-9._-]+\@[A-Za-z0-9._-]+\.[a-z]{2,4}$"
objRegExp.IgnoreCase = True
valida_email = objRegExp.Test(email)
End Function 'valida_email
%>


richiamo la funziona
e imposto un numero se false

if (valida_email (indirizzoemail)) = FALSE then
numero = 100
end if

ma non funziona.
Mi importa il numero a 1 anche se la funzione e vera (con un indirizoz email corretto)
Ma cosa sbaglio???

Ciao
Grazie

[Roby_72]

Vediamo tutto lo script ammesso che la regexp sia ok.

Roby

[gensole]

io uso questa......

Function valida_email(email)
  Dim objRegExp
  Set objRegExp = New RegExp
  objRegExp.Pattern = "^[A-Za-z0-9._-]+\@[A-Za-z0-9._-]+\.[a-z]{2,4}$"
  objRegExp.IgnoreCase = True 
  valida_email = objRegExp.Test(email)
End Function

e per validarla

if valida_email("indirizzo_mail") then
    azioni da eseguire
end if