function isEmail(str)
{
  var supported = 0;
  if (window.RegExp) {
    var tempStr = "a";
    var tempReg = new RegExp(tempStr);
    if (tempReg.test(tempStr)) supported = 1;
  }
  if (!supported)
    return (str.indexOf(".") > 2) && (str.indexOf("@") > 0);
  var r1 = new RegExp("(@.*@)|(\\.\\.)|(@\\.)|(^\\.)");
  var r2 = new RegExp("^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$");
  return (!r1.test(str) && r2.test(str));
}
function verifica_mail(cad)
{
	contarr=0;
 contpun=0;
 posarr=0;
 pospun=0;
 cadextr="áéíóú´ñàèìòù`ÑÁÉÍÓÚÀÈÌÒÙ<>ºª{}¨Ç^'!¡?¿ç{}[]û\/*+#$%&()=;:, \t" + "\"";
  window.alert("sdfdsfds"+cad.value);
 //cad = cad.toLowerCase();

 if (cad.length == 0)
  return true;
 for (var i=0; i < cad.length;i++)
 {  window.alert("sdfdsfds"+cad.value);
	var letra=cad.substring(i,i+1);
	if (cadextr.indexOf(letra) > 0)
			return false;
	if ((letra==".")&&(cad.substring(i+1,i+2)=="."))   return false;
	if ((letra=="@")&&(cad.substring(i+1,i+2)=="."))   return false;
	if (letra == "@")
	{
		contarr++; posarr=i; 
		if (posarr == pospun+1) { return false; }
	}
	if (letra == ".")
	{
		contpun++; pospun=i; 
		if (pospun==0) return false;
	}     
 }
 if ((contarr > 1)||(contarr < 1))  return false;
 if (contpun < 1) return false;
 if (posarr > pospun) return false;
 if (posarr == cad.length-1) return false;
 if (pospun == cad.length-1) return false; 
 return true;
}