Validação de e-mail

[Asteriscos 0]

Pessoal,

 

o código abaixo está bloqueando e-mail's do tipo m.norma@click21.com.br

 

deve ser por causa da vírgula, alguem têm uma solução urgente?

 

 

<script language="VBScript">Function ValidaEmail(Email)  ValidaEmail = false  pos = instr(Email,"@")  if pos = 0 or pos = 1 or pos = len(Email) then    exit function  end if  pos = instr(Email,".")  if pos = 0 or pos <= 3 or pos = len(Email) then    exit function  end if   ValidaEmail = true    End function</script>

[kauebranco 0]

eu tenho essa função se servir pega ai !!!!!!!!!

 

ASP

[*]

[*] function valida_email()

[*] {

[*] if (document.all.email.value.length == 0)//verifica se foi digitada alguma coisa no campo email

[*] {

[*] alert("O e-mail deve ser preenchido.")

[*] document.all.email.style.borderColor = "blue"

[*] document.all.email.focus()

[*] return false

[*] }

[*] //validar email(verificao de endereco eletrônico)

[*] parte1 = document.all.email.value.indexOf("@");

[*] parte2 = document.all.email.value.indexOf(".");

[*] parte3 = document.all.email.value.length;

[*] if (!(parte1 >= 3 && parte2 >= 6 && parte3 >= 9))

[*] {

[*] alert ("Digite um e-mail válido.");

[*] document.all.email.style.borderColor = "blue"

[*] document.all.email.value = ""

[*] document.all.email.focus()

[*] return false;

[*] }

[*] }

[*]

 

flwww ..qq coisa sobre a função posta ai!!!