Validar email via ASP

[maurohpg 0]

Olá gostaria de saber se alguém sabe como validar email via asp, gostaria que verificasse @ e . fiz uma busca aqui no forum mais não obtive exito.Não sei se tem algum problema mais já tenho um onsubmit="java script:Valida();"no form.

[explore 3]

Faz em javascript cara. qual a diferença de você querer em ASP

[Davidmg 0]

Aí vai uma funçao em javascript pra verificar o email:

 

<script language="JavaScript"> <!--  function Incluir(varForm){   if (varForm.email.value == ""){    window.alert ("O campo E-mail é obrigatório!");    varForm.email.focus();    return false;   }   else{    if (varForm.email.value.search("@") == -1 || varForm.email.value.search("[.*]") == -1){     window.alert ("O e-mail não é válido!");     varForm.email.focus();     return false;    }   varForm.submit();   } --> </script>

Coloque na pagina do formulario...

 

Abraços.

[maurohpg 0]

Seguinte, na minha página tem um codigo JS que se você num preencher o email ele preenche com um email default qdo clicado em Submit, e eu coloco o cod ai ele num funciona esse de validar em JS e meu submit está assim onsubmit="java script:Valida();" como euchamo mais uma funcção no submit???

[explore 3]

Mesmom assim Respondendo sua pergunta ta ai faça bom proveito http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

ASP

[*]<%

 

[*]

 

[*]'#########################################################################

 

[*]' Para executar a verificação, chame a função, passando como parâmetro o

 

[*]'o e-mail desejado. O valor retornado será True e False para e-mail váli-

 

[*]'dos e inválidos respectivamente.

 

[*]

 

[*]'Exemplo:

 

[*]' If FncBinCheckMail("teste@teste.com") = False Then

 

[*]' ' Insira aqui seu código de falha...

 

[*]' Response.Redirect "asp_error.asp?PrmCodeError=45"

 

[*]' Else

 

[*]' ' Insira seu código de êxito aqui...

 

[*]' End If

 

[*]'#########################################################################

 

[*]

 

[*]' Begin Of Code.

 

[*]

 

[*]Function FncBinCheckMail(StrMail)

 

[*]' Função que verifica validação de preenchimento de E-Mail.

 

[*]

 

[*]' Se há espaço vazio, então...

 

[*]If InStr(1, StrMail, " ") > 0 Then

 

[*]FncBinCheckMail = False

 

[*]Exit Function

 

[*]End If

 

[*]

 

[*]' Verifica tamanho da String, pois o menor endereço válido é x@x.xx.

 

[*]If Len(FncStrSpace(StrMail)) < 6 Then

 

[*]FncBinCheckMail = False

 

[*]Exit Function

 

[*]End If

 

[*]' Verifica se se há um "@" no endereço.

 

[*]If InStr(FncStrSpace(StrMail), "@") = 0 Then

 

[*]FncBinCheckMail = False

 

[*]Exit Function

 

[*]End If

 

[*]' Verifica se há um "." no endereço.

 

[*]If InStr(FncStrSpace(StrMail), ".") = 0 Then

 

[*]FncBinCheckMail = False

 

[*]Exit Function

 

[*]End If

 

[*]' Verifica se há a quantidade mínima de caracteres é igual ou maior que 3.

 

[*]If Len(FncStrSpace(StrMail)) - InStrRev(FncStrSpace(StrMail), ".") > 3 Then

 

[*]FncBinCheckMail = False

 

[*]Exit Function

 

[*]End If

 

[*]

 

[*]' Verifica se há "_" após o "@".

 

[*]If InStr(FncStrSpace(StrMail), "_") <> 0 And InStrRev(StrMail, "_") > InStrRev(FncStrSpace(StrMail), "@") Then

 

[*]FncBinCheckMail = False

 

[*]Exit Function

 

[*]Else

 

[*]Dim IntCounter

 

[*]Dim IntF

 

[*]IntCounter = 0

 

[*]For IntF = 1 To Len(FncStrSpace(StrMail))

 

[*]If Mid(StrMail, IntF, 1) = "@" Then

 

[*]IntCounter = IntCounter + 1

 

[*]End If

 

[*]Next

 

[*]If IntCounter > 1 Then

 

[*]FncBinCheckMail = True

 

[*]End If

 

[*]' Valida cada caracter do endereço.

 

[*]IntF = 0

 

[*]For IntF = 1 To Len(FncStrSpace(StrMail))

 

[*]If IsNumeric(Mid(FncStrSpace(StrMail), IntF, 1)) = False And _

 

[*](LCase(Mid(FncStrSpace(StrMail), IntF, 1)) < "a" Or _

 

[*]LCase(Mid(FncStrSpace(StrMail), IntF, 1)) > "z") And _

 

[*]Mid(FncStrSpace(StrMail), IntF, 1) <> "_" And _

 

[*]Mid(FncStrSpace(StrMail), IntF, 1) <> "." And _

 

[*]Mid(FncStrSpace(StrMail), IntF, 1) <> "-" Then

 

[*]FncBinCheckMail = True

 

[*]End If

 

[*]Next

 

[*]End If

 

[*]End Function

 

[*]Function FncStrSpace(StrAddress)

 

[*]' Reduz os espaços em branco.

 

[*]FncStrSpace = Trim(LTrim(RTrim(StrAddress)))

 

[*]End Function

 

[*]

 

[*]%> 

[maurohpg 0]

Como eu chamo essa função????Pq colei o cod no meu e fiz as alterações de email e pagina de erro e num dá certo!

[explore 3]

Cara você achama a função pelo IF como dito acima!

[Mário Monteiro 179]

ta la em cima o exemplo

 

ASP

[*]'Exemplo:

 

[*]

 

[*]' If FncBinCheckMail("teste@teste.com") = False Then

 

[*]

 

[*]' ' Insira aqui seu código de falha...

 

[*]

 

[*]' Response.Redirect "asp_error.asp?PrmCodeError=45"

 

[*]

 

[*]' Else

 

[*]

 

[*]' ' Insira seu código de êxito aqui...

 

[*]

 

[*]' End If