Código fuente de 'Comprueba validez correo 2.asp'

<html>
<head>
<title>Comprueba validez correo 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<body style="font-family: Arial; font-size: 9pt">
<p align="center"><b><font size="3">Comprueba validez correo 2<br>
</font></p></b>
<u>Comprobación simple de correo:
</u>
<br>
-Que contenga al menos 6 caracteres.
<br>
-Que contenga la arroba "@".
<br>
-Que contenga un punto y 3 caracteres finales,
<a href="mailto:ej:%22correo@es.xyz"> ej: correo@es.xyz</a> <br>
-Después de la "@" debe de haber al menos 6 caracteres (para evitar ejemplo: correo@.org)



<form name="Correo" method="Post" action="comprueba validez correo 2.asp">
Email: <input type="text" name="Email" size="50">
<input type="submit" name="Submit" value="Submit">
</form> 


<%
DIM correo, mensaje
correo = Request.Form("Email")
mensaje=""


if correo="" then
	Response.Write "<b>• Entra dirección de correo</b><br>"
else

	if len(correo)<8 then
			mensaje = mensaje & "<b>• Correo demasiado corto.</b><br>"
	else
		if mid(correo,len(correo)-3,1)<>"." then
			mensaje = mensaje & "<b>• El correo debe contener un punto y luego 3 caracteres finales</b><br>"
		elseif instr(right(correo,7),"@")>0 then
			mensaje  =mensaje & "<b>• Después de la '@' debe de haber al menos 6 caracteres</b><br>"
		end if
	end if
		
	if inStr(correo,"@") = 0 then
			mensaje=mensaje & "<b>• Al correo le falta la '@'</b><br>"
	end if


	if mensaje="" then
	mensaje= "<b>• Dirección de correo correcta</b><br>"
	END IF
	
	response.write mensaje
	
end if

%>

</body>
</html>