valida email

[Alam]

Aí pessoal essa função se parece com algumas que já foram postadas, só que essa é diferente porque valida email

Características da função:

1 - Não deixa o email conter mais de um "@"

2 - Não deixa o email ter menos de um "."

3 - Não deixa o email conter nenhum caractere inválido.

<%
Function ValidaEmail(email)
       totCaracteres = Len(email)
'===== ABRINDO A SEPARAÇÃO DOS CARACTERES @ =======
         For I=1 to totCaracteres
             Caractere = Mid(email,I,1)
         '=== TESTANDO A REPETIÇÃO DO CARACTERE "@" ===
             If Caractere = "@" Then
                restoEmail = Right(email,totCaracteres - I)
                NumRestantes = Len(restoEmail)
                If NumRestantes > 0 Then
                   cont = 1
                   While cont <> NumRestantes
                         comparacao = Mid(restoEmail,cont,1)
                         cont = cont + 1
                         If comparacao = "@" Then
                            validaCaractere = "Falso"
                            cont = NumRestantes
                            exit for
                         Else
                            validaCaractere = "Verdadeiro"
                         End If
                   Wend
                Else
                    validaCaractere = "Falso"
                End If
             End If
         Next
'=== FINALIZANDO A SEPARAÇÃO DE CARACTERES "@" ====

'===== ABRINDO A SEPARAÇÃO DO CARACTERE "." =======
         For I = 1 to totCaracteres
             Caractere = Mid(email,I,1)
             If Caractere = "." Then
                validaCaractere1 = "Verdadeiro"
                exit for
             Else
                 validaCaractere1 = "Falso"
            End if
         Next
'=== FINALIZANDO A SEPARAÇÃO DO CARACTERE "." ====

'===== ABRINDO A SEPARAÇÃO DO RESTANTE DE CARACTERES INVÁLIDOS =======
         For I = 1 to totCaracteres
               Caractere = Mid(email,I,1)
               invalidos = "! "&chr(34)&" # $ % & ' ( ) * + , / :; < = > ? [ \ ] ^ ` { | } ~  €  ‚ ƒ „ … † ‡ ˆ ‰ Š ‹ Œ  Ž   ‘ ’ “ ” • ˜ ™ š › œ  ž Ÿ   ¡ ¢ £ ¤ ¥ ¦ § ¨ © ª « ¬ ­ ® ¯ ° ± ² ³ ´ µ ¶ · ¸ ¹ º » ¼ ½ ¾ ¿ À Á Â Ã Ä Å Æ Ç È É Ê Ë Ì Í Î Ï Ð não Ò Ó Ô Õ Ö × Ø Ù Ú Û Ü Ý Þ ß à á â ã ä å æ ç è é ê ë ì í î ï ð não ò ó ô õ ö ÷ ø ù ú û ü ý þ ÿ"
               cont = 0
               a = split(invalidos," ")
               While cont < Ubound(a)
                     If Caractere = a(cont) Then
                        validaCaractere = "Falso"
                        cont = UBound(a)
                        Exit For
                     End If
                     cont = cont + 1
               Wend
         Next
'=== FINALIZANDO SEPARAÇÃO DO RESTANTE DE CARACTERES INVÁLIDOS ====
         If validaCaractere = "Verdadeiro" AND validaCaractere1 = "Verdadeiro" Then
            ValidaEmail = TRUE
         Else
             ValidaEmail = FALSE
         End If

End Function
%>

se ValidaEmail = TRUE então o email será válido se ValidaEmail = FALSE então o email não será válido para chamar a função basta inserir por exemplo:

ValidaEmail(teste@scriptbrasil.com.br)

Aí pessoal, quem quiser trocar informações de ASP comigo contatar pelo MSN, pois gostaria de ter alguém que saiba de ASP também na minha lista.

email do MSN: alam.vilalves@bol.com.br

VALEU

Alam