Validar un e-mail ingresado en un formulario usando InStr() y Len()
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 Len(correo, "@") = 0 then novalido = novalido + "No contiene <B>""@""</B><BR>"
nos fijamos que contenga el caracter "."
if Len(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 = Len(correo, "@")
si no hay @ en la cadena, ubicacion_arroba tomará el valor 0, entonces...
if (ubicacion_arroba <> 0) and (Len(correo, ".") <> 0) then
if Len(correo, "@") > Len(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
%>