4 replies to this topic

[luc_hcore]

Descupa a ignorancia, mas eu não sei como fazer a verificação

FUNÇÃO PARA VALIDAR E-MAIL

[Worm]

Cara, conhece um pouco de JS ( JavaScript ), se sim usa JS é mais fácil e rápido.

Na Seção HTML/JavaScript ( Aqui ) ensina como valildar.

Veja se ajuda.

[luc_hcore]

Cara, conhece um pouco de JS ( JavaScript ), se sim usa JS é mais fácil e rápido.

Na Seção HTML/JavaScript ( Aqui ) ensina como valildar.

Veja se ajuda.

vlw cara.

js é mais fácil mas a validação asp é mais complexa, além de ser mais segura. A função tem protinha aqui no fórum no link que deixei. Tentei assim:

<%Option Explicit%>
<!--#include file="funcao_chkmail.asp" -->
<%
Dim email
email = "meuemail@dominio.com"
If chkmail(email) = True Then
	Response.Write email & " é um e-mail válido!"
Else
	Response.Write email & " não é um e-mail válido!"
End If
%>

Mas apareceu isso:

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: 'chkmail'
index.asp, line 6

LINK PARA A FUNÇÃO
Alguém sabe como faço?

[siola]

Use RegularExpressions

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

Essa função vai retornar True para e-mails validos, e False para e-mails inválidos.

Pra usar ela é só chamar ela assim:

If EmailValido(Trim(Request.Form("email"))) = True Then
'Aqui o código continua já que o e-mail é valido
Else
'Aqui a mensagem de erro porque o e-mail é inválido
End If

[]s

[luc_hcore]

vlw!