/* Alterado: 07/11
		-> "_" nao estava funcionando no IE4. Foi entao, explicitamente colocado na consistencia.
		-> "/" foi incluido a pedido do Rucelmar
   Autor: Luciano M. Ribas
*/
function isEmail(email)
{

   var suportado = 0;

	email = Trim(email);
   //document.Form1.mailformResp.value= email;
   //Testa se o browser suporta expressues regulares
   if (window.RegExp)
   {
      var tempReg = /a/;
      if (tempReg.test("a"))
         suportado = 1;
   }
   //Se o browser nco suporta expressues regulares,
   //verifica apenas a posigco do ponto e da arroba
   if (!suportado)
	{
      if(((email.indexOf(".") > 0) && (email.indexOf("@") > 0)) &&
         ((email.lastIndexOf(".") < (email.length - 1)) &&
         (email.lastIndexOf("@") < (email.length -1))))
      {
         return true;
      }else{
         return false;
      }
   //Se o browser suporta expressues regulares,
   //faz a verificagco completa
   }else{
		/**********************************************************************/
		/* exp1: Expressao p/ pegar erros grosseiros (@...@ , .. , .@ , etc.) */
		/* exp2: Expressao geral, garante caracteres validos e estrutura geral*/
		/*       do email:  <usuario>@<maquina>                               */
		/* exp3: Garante presenca de no minimo um ponto depois do "@"         */
		/**********************************************************************/
      var exp1= /(\@.*\@)|(.*\.\..*)|(.*\@\..*)|(.*\.\@.*)|(^\.)|(\.$)|(\@\/)|(.*\@\-.*)|(.*\.$)/;
      var exp2= /^[\w\d][\w\d\_\/\-\.]*\@[\d\w\-\.\/]+$/;
		var exp3= new RegExp(".*\@.*[\.].*");
		/**********************************************************************/
      if( !exp1.test(email) && exp2.test(email) && exp3.test(email))
         return true;
      else
         return false;
   }
}