<TITLE></TITLE>
<script language="javascript">
// isMail 2.0 by Luciano Callero GUI - Developer
// Uso: Valida el Mail pasandole como parametro la dir...
// Devuelve falso Si no es Correcto ej.: if (isMail('lnc@luco.com')==false){}
//
//Este script y otros muchos pueden
//descarse on-line de forma gratuita
//en El Código: www.elcodigo.net

function isMail(Cadena) {

Punto = Cadena.substring(Cadena.lastIndexOf('.') + 1, Cadena.length) // Cadena del .com
Dominio = Cadena.substring(Cadena.lastIndexOf('@') + 1, Cadena.lastIndexOf('.')) // Dominio @lala.com
Usuario = Cadena.substring(0, Cadena.lastIndexOf('@')) // Cadena lalala@
Reserv = "@/º"'+*{}\<>?¿[]áéíóú#·¡!^*;,:" // Letras Reservadas

// Añadida por El Codigo para poder emitir un alert en funcion de si email valido o no
valido = true

// verifica qie el Usuario no tenga un caracter especial
for (var Cont=0; Cont<Usuario.length; Cont++) {
X = Usuario.substring(Cont,Cont+1)
if (Reserv.indexOf(X)!=-1)
valido = false
}

// verifica qie el Punto no tenga un caracter especial
for (var Cont=0; Cont<Punto.length; Cont++) {
X=Punto.substring(Cont,Cont+1)
if (Reserv.indexOf(X)!=-1)
valido = false
}

// verifica qie el Dominio no tenga un caracter especial
for (var Cont=0; Cont<Dominio.length; Cont++) {
X=Dominio.substring(Cont,Cont+1)
if (Reserv.indexOf(X)!=-1)
valido = false
}

// Verifica la sintaxis básica.....
if (Punto.length<2 || Dominio <1 || Cadena.lastIndexOf('.')<0 || Cadena.lastIndexOf('@')<0 || Usuario<1) {
valido = false
}

// Añadido por El Código para que emita un alert de aviso indicando si email válido o no
if (valido) {
alert('Email válido.')
return false //cambiar por return true para hacer el submit del formulario en caso de validacion correcta
} else {
alert('Email no válido.')
return false
}
}

</script>

<form name="formulario4" action="mailto:mail@destinatario.com" onSubmit="return isMail(this.email.value)">
<p><small>Correo electrónico:</small><br>
<input type="text" name="email" size="15">
</p>
<p>
<input type="submit" value="Validar" name="validar">
</p>
</form>