function ExisteElemento(cadena,elemento)
{ alert(elemento);
  var strcadena = new String("");
  strcadena=cadena;
  alert(strcadena);
  for (var i = 0; i < strcadena.length; i++) 
  { alert(strcadena[i]);
    if (strcadena[i] == elemento) 
     { return i; }
  }
  return -1;
}

function verifica_mail(cad)
{contarr=0;
 contpun=0;
 posarr=0;
 pospun=0;
 cadextr="áéíóú´ñàèìòù`ÑÁÉÍÓÚÀÈÌÒÙ<>ºª{}¨Ç^'!¡?¿ç{}[]û\/*+#$%&()=;:, \t" + "\"";
 cad = cad.toLowerCase();
 if (cad.length == 0)
  return true;
 for (var i=0; i < cad.length;i++)
 {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;
}