Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mkboy

Checar @

Recommended Posts

Instr(1, "deleeteweb@hotmail.com", "@")

O numero 1 eh pra indicar onde começa a busca..

 

 

if Instr(1, "deleeteweb@hotmail.com", "@") = 0 thenresponse.write("Email Inválido")elseresponse.write("Email OK")end if

Compartilhar este post


Link para o post
Compartilhar em outros sites

  Function ValidarEmail(EMail)          Dim Busca   ValidarEmail = true                   If Len(EMail) < 6 Then                ValidarEmail = False         Else                Busca = InStr(2, EMail, "@")                If Busca = 0 Then                      ValidarEmail = False               Else                      Busca = InStr(Busca + 2, EMail, ".")                      If Busca = 0 Then                            ValidarEmail = False                     Else                            If CInt(Busca) + 1 > Len(EMail) Then                                  ValidarEmail = False                           End If                      End If                End If          End If    End Function

 

Ai pra utilizar

 

IF ValidarEmail(Request("Email")) = False THEN

Response.Write "Email Invalido"

Else

Response.Write "Invalido"

END IF

 

 

esta função não foi feita por mim bye

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.