<%
'-----------------------------------------------------
'Funcao: IsEmail(ByVal strEmail)
'Sinopse: Verifica se o valor passado é um Email válido
'Parametro: strEmail
'Retorno: Booleano
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function IsEmail(ByVal strEmail)
	Dim regEx
	Dim ResultadoHum
	Dim ResultadoDois 
	Dim ResultadoTres
    Set regEx = New RegExp            ' Cria o Objeto Expressão
    regEx.IgnoreCase = True         ' Sensitivo ou não
    regEx.Global = True             ' Não sei exatamente o que faz 
    
    ' Caracteres Excluidos
    regEx.Pattern    = "[^@\-\.\w]|^[_@\.\-]|[\._\-]{2}|[@\.]{2}|(@)[^@]*\1"
    ResultadoHum    = RegEx.Test(strEmail)
    ' Caracteres validos
    regEx.Pattern    = "@[\w\-]+\."        
    ResultadoDois    = RegEx.Test(strEmail)
    ' Caracteres de fim
    regEx.Pattern    = "\.[a-zA-Z]{2,3}$"  
    ResultadoTres    = RegEx.Test(strEmail)
    Set regEx = Nothing
    
    If Not (ResultadoHum) And ResultadoDois And ResultadoTres Then
        IsEmail = True
    Else
        IsEmail = False
    End If
End Function

'EXEMPLO DE CHAMADA
Response.Write IsEmail("email@provedor.com.br")
%>