function CtrlPuntArroba(campo)
{
 var correo_e=campo.value;
 var punto=0;
 var arroba=0;
 var caracter=0, i=0;
 var mal = new Array("!","|","º","ª","·","#"," ","$","%","&","¬","/","(",")","=","?",
 "¡","'","¿","[","]","+","*","{","}",",",";",":","<",">");
 for (x=0; x<correo_e.length; x++)
  {
     if (correo_e.substring(x, x+1)==".")//comprueba que existan puntos y arrobas
     {
       punto++;
     }
     if (correo_e.substring(x, x+1)=="@")
     {
       arroba++;
     }
  }
 for (y=0; y<mal.length;y++){
 	for (x=0; x<correo_e.length; x++)
  	{
     	if (correo_e.substring(x, x+1)==(mal[i]))//comprueba que no existan caracteres prohibidos
     	{
       		caracter++;
     	}
  	}
  	i++;
  }
  if ((punto<1)||(arroba<1)||(caracter!=0))
   {
 return false;
   }
   else
   {
  return true;
   }
}

function CompruebaEmail(campo)
{
if (CtrlPuntArroba(campo)==false){
   mensaErrorUnicos(5);
	campo.focus();
	return false;
}
 var correo_e=campo.value;
 var i;
 var tamDominio=0;
 var arroba = new Array();
 arroba = correo_e.split("@");
 var usr = new Array();
 usr = arroba[0].split(".");
 var dom = new Array();
 dom = arroba[1].split("."); 
 
  for (x=0; x<arroba[1].length; x++)
  {
     if (arroba[1].substring(x, x+1)==".")
     {
       tamDominio++;
     }
  }
  if((dom[tamDominio].length<2)||(dom[tamDominio].length>4))//comprueba tamaño del dominio
	{
   mensaErrorUnicos(5);
	campo.focus();
	return false;
  	}
 
  for(i=0; i < usr.length; i++)//controla que exista un caracter por delante de la arroba y controla los puntos
		{
     		if(usr[i].length<1)
			{
   mensaErrorUnicos(5);
			 campo.focus();
			 return false;
			}
		}
   
   for(i=0; i < dom.length; i++)//controla los puntos despues de la arroba
		{
     		if(dom[i].length<1)
			{
   mensaErrorUnicos(5);
 			campo.focus();
 			return false;
			}
		}
}