function getForm(FO) {
    return document.formulier[FO].options[document.formulier[FO].selectedIndex].value;
  } 
  function SetCookie (name, value) {
    var argv = SetCookie.arguments;
    var argc = SetCookie.arguments.length;
    var expires = (argc > 2) ? argv[2] : null;
    var path = (argc > 3) ? argv[3] : null;
    var domain = (argc > 4) ? argv[4] : null;
    var secure = (argc > 5) ? argv[5] : false;
    document.cookie = name + "=" + escape (value) +
    ((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
    ((path == null) ? "" : ("; path=" + path)) +
    ((domain == null) ? "" : ("; domain=" + domain)) +
    ((secure == true) ? "; secure" : ""); 
  }
  function GetCookie (name) {
    var arg = name + "=";
    var alen = arg.length;
    var clen = document.cookie.length;
    var i = 0;
    while (i < clen) {
      var j = i + alen;
      if (document.cookie.substring(i, j) == arg)
       return getCookieVal (j);
      i = document.cookie.indexOf(" ", i) + 1;
      if (i == 0) break; 
    }
    return null;
  }
  function resetForm() {
    document.formulier.reset();
    for (i=1;i<=31;i++) {
      hlnieuw(i);
    }
    preSet();
  }
  function setForm(FO,FV) {
    for (var i=0;i<document.formulier[FO].length;i++) {
      rval = document.formulier[FO].options[i].value;
      if (rval == FV) {
        document.formulier[FO].options.selectedIndex = i;
      }
    }
  }
  function preSet() {
   var cou= GetCookie("cou");
   if (cou != null) { setForm('cou',cou); }
   else { setForm('country','NL'); }
   var gen= GetCookie("gen");
   if (gen != null) { setForm('gen',gen); }
   var env= GetCookie("env");
   if (env != null) { setForm('env',env); }
   var per= GetCookie("per");
   if (per != null) { setForm('per',per); }
   var fee= GetCookie("fee");
   if (fee != null) { setForm('fee',fee); }
   var cre= GetCookie("cre");
   if (cre != null) { setForm('cre',cre); }
   var cre2= GetCookie("cre2");
   if (cre2 != null) { setForm('cre2',cre2); }
   var bel= GetCookie("bel");
   if (bel != null) { setForm('bel',bel); }
   var email= GetCookie("email");
   if (email != null) { document.formulier.email.value = email; }
  }
  function getCookieVal (offset) {
   var endstr = document.cookie.indexOf (";", offset);
   if (endstr == -1)
    endstr = document.cookie.length;
   return unescape(document.cookie.substring(offset, endstr));
  }
  function setCookies(item) {
    var expDate = new Date ();
    expDate.setTime( expDate.getTime() + (365 * 24 * 60 * 60 * 1000) );
    var itemvalue = getForm(item);
    SetCookie(item, itemvalue, expDate);
  }
  function setCookiesMail() {
    var expDate = new Date ();
    expDate.setTime( expDate.getTime() + (365 * 24 * 60 * 60 * 1000) );
    var itemvalue = document.formulier.email.value;
    SetCookie('email', itemvalue, expDate);
  }
  function checkForm() {
    var err=0;
    for (i=1;i<=31;i++) {
      if ((! document.formulier["d" + i][0].checked) && (! document.formulier["d" + i][1].checked)) { 
        hlred(i);
        err++; 
      }
    }
    if (err>0) { 
      alert("U heeft nog niet alle kenmerken (descriptoren) aangevinkt.\nKlik alle kenmerken aan die nu nog oranje/rood gekleurd zijn.\nIndien u twijfelt over een kenmerk, kies dan [nee]."); 
      return;
    }
    var dchecked=0;
    for (i=1;i<=31;i++) {
      if (document.formulier["d" + i][0].checked) { 
        dchecked++; 
      }
    }
    if (dchecked < 2) { 
      alert("U dient tenminste twee kenmerken aan te vinken."); 
      return;
    }
    var goodEmail = document.formulier.email.value.match(/\b(^(\S+@).+((\.com)|(\.net)|(\.edu)|(\.mil)|(\.gov)|(\.org)|(\..{2,2}))$)\b/gi);
    if (goodEmail) { good = true; }
    else {
      var fee = getForm('fee');
      if (fee == '1') {
        alert("U dient uw e-mail adres op te geven, omdat u uw resultaten per mail toegezonden wilt krijgen.");
        err++;
        document.formulier.email.focus();
        good = false;
        return;
      }
    }
    if (document.formulier.beschrijving.value.length > 2500) {
      alert("Uw beschrijving mag maximaal 2500 karakters bevatten.");
      document.formulier.beschrijving.focus();
      err++;
      return;
    }
    if (err == 0) { document.formulier.submit(); }
  }
  function hlon(mij) {
    document.getElementById(mij).style.backgroundColor  = "#eeffee";
    if (document.formulier.tussentijd.value == 0) { document.formulier.tussentijd.value = document.formulier.counter.value; }
  }
  function hlnieuw(mij) {
    document.getElementById(mij).style.backgroundColor  = "#dce2f2";
  }
  function hloff(mij) {
    document.getElementById(mij).style.backgroundColor  = "#eeeeff";
    if (document.formulier.tussentijd.value == 0) { document.formulier.tussentijd.value = document.formulier.counter.value; }
  }
  function hlred(mij) {
    document.getElementById(mij).style.backgroundColor  = "#ffaaaa";
  }