<!--
//ComprobarEmail(cadena) version 5.0
//		Novedades respecto a la version 4.0: 
//			* Re-escrito completamente usando expresiones regulares
//----------------------------------
// Parámetros de entrada:
//	campo: campo del formulario que contiene la dirección a analizar
//      obligatorio: 'true' si el campo no puede estar vacío
// Descripción:
//      Verifica que el campo introducido tiene los caracteres y el formato que se permiten en
//      una dirección de email. Si es correcto, devuelve "true"; si no, genera mensajes de error 
//      hasta que sea correcto

function CompruebaEmail(campo, obligatorio){
	
	var cadena=campo.value;
	var reg = new RegExp("^[\\w_-]+(\\.[\\w_-]+)*@([\\w_-]+\\.)+[\\w_-]{2,4}$","i");

	
	//Comprobar si está vacío y/o es obligatorio rellenarlo
	if (cadena=="") {
		if (obligatorio) {
			alert("Es necesario que indique el campo " + campo.name.toUpperCase());
			campo.focus();
			return false;
		}
		else return true;
	}
	
	//Comprobar que la estructura se ajusta a la de una dirección de email usando
	//expresiones regulares
	
	if (cadena.search(reg)==-1){
		alert("La dirección de email no es correcta. Por favor, revísela.");
		campo.focus();
		campo.select();
		return false;
	}
	
	return true;
		
}
-->