// Función que comprueba que el mail sea correcto
function emailok(cad)
{
  cad = Trim(cad);
  var car;
  var arroba = 0;
  var punto = 0;
  longitud = cad.length;
  for (var i=0;i<longitud;i++)
  {
    car = cad.charAt(i);
    if (car==' ') return false;
    if (!(IsAlpha(car) || car=='@' || car=='.' || car=='_' || car=='-' || (car>='0' && car<='9'))) return false;
    if (car=='@')
      if (arroba>0)
        return false;
      else
	if (i==0)
	  return false;
	else
	  arroba=i;
    else
      if (car=='.')
        if (i==0)
	  return false;
	else
	  punto=i;
  }
  return (arroba>0 && punto>0 && arroba<punto && punto>arroba+1 && car!='.');
}

function Trim(cad)
{
  var aux="";
  var i,lg = cad.length;
  for (;lg>0 && cad.charAt(lg-1)<=' ';lg--);
  for (i=0;i<lg && cad.charAt(i)<=' ';i++);
  for (;i<lg;i++) aux = aux + cad.charAt(i);
  return aux;
}

function IsAlpha(car)
{
  car = car.toUpperCase();
  esp = " -áéíóúäëïöüÄËÏÖÜÁÉÍÓÚñÑ";
  return  (car>='A' && car<='Z') || esp.indexOf(car)!=-1;
}