function validaform_sus(form_in)
{



//
//  Validamos el formato del correo electronico
//


wtexto = form_in.fr_email.value;

if (wtexto.length == 0 )
        {
         alert('Es imprescindible indicar una direccion de correo electronico')
        form_in.fr_email.focus()
        return false
        }


if ( !validar_email(form_in.fr_email.value) )
         {
         alert('El campo EMAIL: formato erroneo.')
          form_in.fr_email.focus()
          return false
         }

//
//   Validamos el número de telefono movil
//


wtexto = form_in.fr_tel.value;

//alert('el tamaño del movil es ' +  wtexto.length )

expreg= /(^[0123456789]+$)/

if ((wtexto.length > 0) && (!expreg.test(wtexto)))
        {
                alert("El número de Telefono móvil no es correcto (escriba 9 digitos, solo números sin puntos ni espacios)");
                in_form.fr_tel.focus();
                return (false);
        }


if ( (wtexto.length > 0 ) && (wtexto.length != 9 ) )
        {
         alert('El número de Telefono móvil no es correcto (escriba 9 digitos)')
        form_in.fr_tel.focus()
        return false
        }


wtexto = form_in.fr_provincia.value;

// alert('el tamaño de prov  ' +  wtexto.length )

if (wtexto.length == 0 )
        {
         alert('Indique su provincia de residencia')
        form_in.fr_provincia.focus()
        return false
        }


return true
}


function validar_email(in_email)
{
  caracNoValidos = " /:,;";
  if(in_email == "") return false; // debe rellenarse
  for(i = 0; i < caracNoValidos.length; i++) {
  // ¿hay algún carácter no válido?
    caracMal = caracNoValidos.charAt(i);
    if(in_email.indexOf(caracMal,0) > -1) return false;
  }
  posArroba = in_email.indexOf("@",1); // debe haber una @
  if(posArroba == -1) return false;
  if(in_email.indexOf("@",posArroba+1) != -1) return false;
  // y sólo una
  posPunto = in_email.indexOf(".",posArroba);
  if(posPunto == -1) return false;
  // y al menos un . después de la @
  if(posPunto+3 > in_email.length)	return false;
  // debe haber al menos 2 caracteres tras el .
return true;
}
//-->