<!--
// ****************************************
// (c) 2005 Javier M Criado
// ****************************************


function notvacio(nombre,cad){

	cad+="";//me aseguro de q sea una cad

	//alert("****"+cad);

	if (cad.length==0 || cad.charAt(0)==' ' ){
		alert("Error, el campo "+nombre+" está vacío");
		return false;
	}

	return true;


}//notvacio

function esalfabetica(cad){

	var abecedario="ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz";   //lista de  caracteres. permitidos
	var car='h';
	   

	   if (cad.length == 0) 
		      return false;

	   for (var i=0; i<cad.length; i++) {
		      car=cad.charAt(i);
		      if (abecedario.indexOf(car)<0)
			         return false;
       }//for

	return true;

}//esalfabetica

function tienepunto(email){

	email+="";
	var pos=email.indexOf('@');
	if (pos!=-1){//Tiene @
		despues=email.substring(pos+1,email.length)
		if (despues.length>3)//Min j.es
		{
			var pos_pto=despues.indexOf('.');
			var pto=despues.substring(pos_pto+1,email.length)
			if (pos_pto!=-1 && pto.length>1 && esalfabetica(pto))//Los dominios tienen q tener al menos 2 LETRAS
				return true;
			//else
				//alert(esalfabetica(pto))
		}
	}//if
	return false;

}//tienepunto

function emailcorrecto(email) {

	email+="";//me aseguro de q sea una cad

	if (email.length==0){
		alert("Debe teclear su e-mail para que la operación se lleve a cabo de forma correcta");
		return false;
	}
	
	for (var i=0;i<email.length;i++){
		if (email.charAt(i) ==' ' || email.charAt(i)=='\t' ){
			pos=i+1;
			alert("Debe teclear su e-mail correctamente para que la operación se lleve a cabo de forma correcta\n.Éste no puede llevar espacios en blanco ni tabuladores\nEspacio en blanco en la posición:"+pos);
			return false;
		}//if

		if (email.charAt(i)=='@'){
			if ( tienepunto(email) && email.charAt(i+1) !=' ' && email.charAt(i+1)!='\t' )//email.length>i+1
				return true;
		}//if

	}//for

alert ("Error en el campo e-mail");//Si llega aquí es xq no introdujo la @
return false;

}//emailcorrecto


//-->