function validaEmail(checkStr)
{var nI, sS, nN, nP;
 // Arroba ...
 sS = "@"; nN = 0; nP = 0;
 for(nI = 0; nI < checkStr.length; nI++)
 { if(checkStr.charAt(nI) == sS) 
  { nN++; nP = nI;
  }
 }
 if(nN == 0) return (false);
 if(nN > 1)  return (false);
 var nPArroba = nP;
 // Punto ...
 sS = "."; nN = 0; nP = 0;
 for(nI = 0; nI < checkStr.length; nI++)
 { if(checkStr.charAt(nI) == sS) 
  { nN++; nP = nI;
  }
 }
 if(nN == 0) return (false);
 var nPPunto = nP;
 // Posicion Arroba/Punto ...
 if(nPArroba > nPPunto) return (false);
 //
 return (true);
}
 //*************************************************************
//* Reemplaza el caracter ' por el `
//*************************************************************
function sReemplazaComillas(cadena)
{
  var iPos;
  var sal = "";
  var car;

  for (iPos = 0; iPos <= cadena.length-1; iPos++)
   {
      car = cadena.charAt(iPos);
      if (car == "'"){
	sal += car.replace("'","`");
	  }else if (car=="\""){
	sal+= car.replace("\"","`");
      }else{
	sal += car;
	}
   }
   return sal;
}


//*************************************************************
//* Mira si el primer carácter de una cadena tiene un +
//*************************************************************
function sBuscaMas(cadena)
{
  var iPos;
  var car;
  var bAux;

  for (iPos = 0; iPos < 1; iPos++)
   {
      car = cadena.charAt(iPos);
      if (car == "+")
          bAux=false;
      else
          bAux=true;
   }return bAux;
}