function validaLogin(pal)
{
  var valid="abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789_-.";
  var temp="";
  var error=false;
  
  for(var i=0; i<pal.length; i++)
  {
    temp=""+pal.substring(i,i+1);
    if(valid.indexOf(temp)==-1) error=true;
  }

  if(error==true){return false;}
  else{return true;}
}

function validaPalabra(pal)
{
  var valid="abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789_-";
  var temp="";
  var error=false;
  
  for(var i=0; i<pal.length; i++)
  {
    temp=""+pal.substring(i,i+1);
    if(valid.indexOf(temp)==-1) error=true;
  }

   if(error==true){return false;}
  else{return true;}
}

function validaEmail(fema) {

if(fema.value=="")
{
  alert("Favor de teclear su correo electrónico");
  //fema.focus();
  return false;
}

var arroba=fema.value.indexOf("@",0);

if(arroba==-1)
{
  alert("El correo electrónico no contiene el simbolo @");
  //fema.focus();
  return false;
}
else
{
  var cad1=fema.value.substring(0, arroba);
  var cad2=fema.value.substring(arroba+1,fema.value.length);

  if(cad1.length!=0){
  	var ban=validaLogin(cad1);
	if(ban==false){
	  alert("Correo electrónico no válido! verifique que su login de correo esté escrito correctamente");
      //fema.focus();
	  return false;
	}
  }
  else
  {
    alert("Correo electrónico no válido! debe escribir su login de correo");
    //fema.focus();
	return false;
  }
  
  var pos=cad2.indexOf(".");
  var piv1;
  var piv2;
  
  if(pos==-1)
  {
    alert("Correo electrónico no válido! Verifique que lleve terminación .com, .org, ...");
    //fema.focus();
	return false;
  }
  else
  {
    piv1=cad2.substring(0,pos);
    if(piv1.length==0)
    {
      alert("Correo electrónico no válido! Verifique que lleve terminación .com, .org, ...");
      //fema.focus();
	  return false;
    }

    piv2=cad2.substring(pos+1,cad2.length);

    while(pos!=-1)
    {
  	  var ban=validaPalabra(piv1);
	  if(ban==false){
	     alert("Correo electrónico no válido! Verifique que lleve terminación .com, .org, ...");
         //fema.focus();
		 return false;
	  }
	  pos=piv2.indexOf(".");
      if(pos!=-1)
	  {
	    piv1=piv2.substring(0,pos);
        piv2=piv2.substring(pos+1,piv2.length);
	  }
    }
	if(piv2.length!=0){
		var ban=validaPalabra(piv2);
		if(ban==false){
	      alert("Correo electrónico no válido! Verifique que lleve terminación .com, .org, ...");
          //fema.focus();
		  return false;
	    }
	}
	else
	{
      alert("Correo electrónico no válido! Verifique que lleve terminación .com, .org, ...");
      //fema.focus();
	  return false;
    }
  }
}
}