function jtrim( sTexto )
  {

    sTexto = sTexto.replace(/^\s+/g,'');
    sTexto = sTexto.replace(/\s+$/g,'');
    return sTexto; 

  }


  function caracteres_no_validos( x )
  {

    for( var k=0; k < x.length; k++ )
      if( ( x.substring( k, k+1 ) == "^" ) || ( x.substring( k, k+1 ) == "'" ) || ( x.substring( k, k+1 ) == "," ) || ( x.substring( k, k+1 ) == ";" ) || ( x.substring( k, k+1 ) == " " ) )
      {
        return true;
      }
    return false;

  }


  function busca_arroba( sEMail )
  {

    var iCuenta = 0;

    for( var k=0; k < sEMail.length; k++ )
      if( sEMail.substring( k, k+1 ) == '@' ) ++iCuenta;

    if( iCuenta == 1 )
    { return true; }
    else
    { return false; }

  }


  function valida_email( objEMail )
  {

    objEMail.value = jtrim( objEMail.value );

    if( objEMail.value.length < 5) 
    { alert('El Email ingresado debe tener como mínimo 5 caracteres.'); objEMail.focus(); return false; }
    
    if( caracteres_no_validos( objEMail.value) )
    { alert('El Email ingresado contiene caracteres no válidos.'); objEMail.focus(); return false; }
        
    if( !busca_arroba( objEMail.value ) )
    { alert('El Email ingresado es incorrecto.'); objEMail.focus(); return false; }
    
    return true;

  }