<%
If request.form("Email") <> "" then 'hago la comprobacion.
correo = Trim(request.Form("Email"))
Response.Write "El email que ingresaste es: "& correo &"
"
'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 5 caracteres. "
'nos fijamos que contenga el caracter "@"
If InStr(correo, "@") = 0 then novalido = novalido + "No contiene ""@"" "
'nos fijamos que contenga el caracter "."
If InStr(correo, ".") = 0 then novalido = novalido + "No contiene ""."" "
'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 ""."" despues del ""@"""
End If
End If
If novalido = "" then
novalido = "Email valido"
Response.Write novalido
Else
Response.Write "Email invalido. Los motivos son los siguientes: "
response.Write novalido
End If
End If
%>