function  validar_email(campo){
var  input_str=campo;
var  input_len1=input_str.length;
var  iserror=0;          
input_len1=input_str.length;
if  (input_len1<=5)  {
                alert("Debe  digitar  una  dirección  de  correo  válida!\n");
                iserror=1;
                return  1;
        }          
        var  lastdot=-1;
        var  lastat=-1;
        var  numberat=0
        for  (var  j  =  0;  j  <  input_len1;  j++)  {
                  var  ch2  =  input_str.substring(j,  j  +  1);
                  if  (((ch2  <  "a")  ||    (ch2  >  "z"))  &&  ((ch2  <  "A")  ||  (ch2  >  "Z"))  &&  ((ch2  <  "0")  ||    (ch2  >  "9"))  &&  (ch2  !=  "@"  )  &&  (ch2  !=  ".")  &&  (ch2  !=  "_")  &&  (ch2  !=  "-")){
                          alert("Por  favor  digite  un  correo  válido!\nLos  caracteres  válidos  incluyen  A-Z,  a-z,  0-9,  -,  _,  .  y  @\n\nVERIFIQUE QUE NO EXISTAN ESPACIOS EN BLANCO, PUNTOS DE MAS ETC");
                          iserror=1;
                          return  1;
                  }
                  if  (ch2==".")  {
                          if  (  j  ==  lastdot  +  1)  {
                                  alert("Por  favor  digite  un  correo  válido!\nno  puede  tener  2  puntos  seguidos'..'.");
                                  iserror=1;
                                  return  1;
                          }
                          lastdot=j;
                  }
                  if  (ch2=="@")  {
                          lastat=j;
                          numberat=numberat+1
                  }
                  if  (ch2=="  ")  {
                          alert("Por  favor  digite  un  correo  válido!\nno  puede  dejar  espacios  en  blanco.");
                          iserror=1;
                          return  1;
                  }
        }
        if  (lastat  ==  -1)  {
                  alert("Por  favor  digite  un  correo  válido!\nno  digitó  '@'.");
                  iserror=1;
                  return  1;
        }
        if  (lastat  ==  0)  {
                  alert("Por  favor  digite  un  correo  válido!\nno  digitó  ningún  nombre  antesde  de  '@'.");
                  iserror=1;
                  return  1;
        }
        if  (numberat  >  1)  {
                  alert("Por  favor  digite  un  correo  válido!\nsolo  debe  digitar  una  '@'.");
                  iserror=1;
                  return  1;
        }
        if  ((lastdot  <=  lastat)  ||  (lastdot  >  input_len1  -  3  )  ||  (input_len1  -  lastdot  >  4))  {
                  alert("Por  favor  digite  un  correo  válido!\ndebe  digitar  un  nombre  de  dominio  válido!\nUse  .com,  .org,  .net,  .cc,  etc");
                  iserror=1;
                  return  1;
        }
        if  (lastdot  ==  lastat  +  1)  {
                  alert("Por  favor  digite  un  correo  válido!\ndebe  organizar  bien  su  dirección  de  correo!\nUse  name@organization.domain");
                  iserror=1;
                  return  1;
        }
	return  2;
}