Validar un e-mail

Validar un e-mail ingresado en un formulario usando InStr() y Len() - [Por CoRSA]

Con este script podemos verificar que una cadena de caracteres, represente a algun mail. En resumen, verificaremos si un usuario ingreso un mail o no. Si no lo hizo, rechazaremos su petición.

<FORM METHOD="post" ACTION="">
Ingresar un email: <INPUT NAME="correo"><INPUT TYPE="Submit" VALUE="Comprobar!">
</FORM>
<%
If request.form("correo") <> "" then 'hago la comprobacion.
correo = Trim(request.Form("correo"))
Response.Write "El email que ingresaste es: <B>"& correo &"</B><BR><BR>"
'nos fijamos que tenga mas de 4 caracteres de longitud (no existen mails de 4)
If Len(correo) < 5 then novalido = "No puede tener menos de <B>5</B> caracteres.<BR>"
'nos fijamos que contenga el caracter "@"
If InStr(correo, "@") = 0 then novalido = novalido + "No contiene <B>""@""</B><BR>"
'nos fijamos que contenga el caracter "."
If InStr(correo, ".") = 0 then novalido = novalido + "No contiene <B>"".""</B><BR>"
'nos fijamos que exista un . despues de la "@"
'cuidado con los mails que son de este estilo algo.algo@hotmail.com
'para eso ponemos como comienzo de busqueda, el caracter de la "@"
ubicacion_arroba = InStr(correo, "@")
'si no hay @ en la cadena, ubicacion_arroba tomará el valor 0, entonces...
If (ubicacion_arroba <> 0) and (InStr(correo, ".") <> 0) then
If InStr(correo, "@") > InStr(ubicacion_arroba, correo, ".") then
novalido = novalido + "No existe un <B>"".""</B> despues del <B>""@""</B>"
End If
End If
If novalido = "" then
novalido = "<B>Email valido</B>"
Response.Write novalido
Else
Response.Write "<B>Email invalido</B>. Los motivos son los siguientes: <BR>"
response.Write novalido
End If
End If
%>