// JScript File
// Client callback funktioner
function ReceiveServerData(arg, context)
{                                
//var today = new Date();alert(today.getMinutes()+'m'+today.getSeconds()+'s');
  stopwait();  
  fcaller = arg.slice(0,3);
  //alert('fcaller: '+fcaller);
  switch (fcaller)
  {
  //callback funktioner vedr stofregistrering
  case "019":
  //stofvalg
  {selector = "1";break;}
  case "000":{selector = "0";break;}
  case "001":{selector = "2";break;}
  case "002":{selector = "2";break;}
  case "003":{selector = "2";break;}
  case "004":{selector = "2";break;}
  case "005":{selector = "2";break;}
  case "006":{selector = "2";break;}
  case "007":{selector = "2";break;}
  case "008":{selector = "2";break;}
  case "009":{selector = "2";break;}
  case "010":{selector = "2";break;}
  case "011":{selector = "2";break;}
  case "012":{selector = "2";break;}
  case "013":{selector = "2";break;}
  case "020":{selector = "3";break;}
  case "021":{selector = "4";break;}
  case "022":{selector = "4";break;}
  case "023":{selector = "4";break;}
  case "024":{selector = "5";break;}
  case "025":{selector = "6";break;}
  case "026":{selector = "7";break;}
  case "027":{selector = "8";break;}
  case "033":{selector = "33";break;} //dan metabolittræ
  //callback funktioner vedr vis oplysninger
  case "119":{selector = "101";break;}
  case "101":{selector = "102";break;}
  case "102":{selector = "102";break;}
  case "103":{selector = "102";break;}
  case "104":{selector = "102";break;}
  case "105":{selector = "102";break;}
  case "106":{selector = "102";break;}
  case "107":{selector = "102";break;}
  case "108":{selector = "102";break;}
  case "109":{selector = "102";break;}
  case "110":{selector = "102";break;}
  case "111":{selector = "102";break;}
  case "112":{selector = "102";break;}
  case "113":{selector = "102";break;}
  case "120":{selector = "103";break;}
  case "121":{selector = "104";break;}
  case "122":{selector = "104";break;}
  case "123":{selector = "104";break;}
  case "124":{selector = "105";break;}
  case "125":{selector = "106";break;}
  case "126":{selector = "107";break;}
  case "127":{selector = "108";break;}
  case "130":{selector = "130";break;}  //udskriv stofliste
  case "131":{selector = "131";break;}  //udskriv detaljer for alle stoffer
  case "132":{selector = "132";break;}  //udskriv detaljer for eet stof
  case "133":{selector = "133";break;}  //dan metabolittræ
  case "134":{selector = "134";break;}  //dan metabolittræ
  case "135":{selector = "134";break;}  //stofskifte mellem to stoffer bundet eller brudt 
  //callback funktioner vedr 3_1: opland
  case "201":{selector = "201";break;}
  case "202":{selector = "202";break;}
  case "203":{selector = "203";break;}
  case "204":{selector = "204";break;}
  
  //callback funktioner vedr 2_2: lokalitetsregistrering
  case "301":{selector = "301";break;}   
  case "302":{selector = "302";break;}   
  case "303":{selector = "303";break;}   
  case "304":{selector = "304";break;}  
  case "305":{selector = "305";break;} 
  //lokalitet slettet  
  case "306":{selector = "306";break;}    
  //stof slettet fra forureningshistorie  
  case "307":{selector = "307";break;}   
  //callback funktioner vedr 3_2: vertikal beregning
  case "501":{selector = "501";break;} 
  //gem/opdater kildestyrkeopsætning
  case "502":{selector = "502";break;}  
  // hent kildestyrkeopsætninger til arkivliste
  case "503":{selector = "503";break;}  
  //valgt kildstyrkesæt: test hvor de enkelt stoffer hører hjemme i tabellen og indlæg kildestyrkerne over forureningshistorikken
  case "504":{selector = "504";break;}
 
  //callback funktioner vedr 3_3: horisontal beregning
  //hent stofdata
  case "601":{selector = "601";break;} 
   //hent centerlinjer pr. slutpunkt 
  case "602":{selector = "602";break;} 
  //diagram præsentationer
  case "603":{selector = "603";break;} 
  case "604":{selector = "603";break;} 
  case "605":{selector = "603";break;} 
  case "606":{selector = "603";break;} 
  case "607":{selector = "607";break;} 
  case "608":{selector = "608";break;} 
  case "609":{selector = "609";break;}    
  }
  var splut = new Array();
  splut = arg.split("¤");
  //alert('selector: '+selector);
  switch (selector)
  {
   //callback funktioner vedr login
  case "0":
  {          
   stopwait();
   role = arg.split("¤")
   role = role[1];   
   document.all.hfBrugerniveau.value =  parseInt(role);                  
   switch (parseInt(role))
   {
   case 1:        
   case 2: 
   case 3: 
   case 4:    
   {                      
      document.all.LabelHack.style.display = 'none';
      document.all.LabelMissingPassword.value = "*";
      document.all.LabelMissingUsername.value = "*";
      document.all.LabelForkertLogin.style.display = 'none';
      document.all.hfBruger.value = document.all.TextBoxUsername.value       
      document.all.TextBoxUsername.value = ""
      document.all.TextBoxPassword.value = ""
      Medtag();
      reset();
      clearstofregistrering();
      clearvis_oplysninger();
      open();
      show_mainmenu();
      break;
   }
   case 5: {
   alert("Forkert login. Prøv igen")
   break;}
   case 0: 
       {
       alert("Det lader til at der er tale om et hackerforsøg. Din IP adresse er registreret. Din computer vil eksplodere om 5 sekunder.")
       break;
       }
       break;
   }
  }
  case "1":
  {
    if (document.getElementById('stofregistrering_ddlStofvalg').value != "")
    {
      // stof valgt fra ddlStofvalg               
      document.getElementById('stofregistrering_txtStofnavn').innerText = splut[1];
      document.getElementById('stofregistrering_txtCASkode').innerText = splut[2];
      document.getElementById('stofregistrering_txtStandatkode').innerText = splut[3];
      document.getElementById('stofregistrering_txtSystematisknavn').innerText = splut[4];
      document.getElementById('stofregistrering_txtMolekylformel').innerText = splut[5];
    } else {
      // første, blanke linje valgt fra ddlStofvalg
      document.getElementById('stofregistrering_txtStofnavn').innerText = "";
      document.getElementById('stofregistrering_txtCASkode').innerText = "";
      document.getElementById('stofregistrering_txtStandatkode').innerText = "";
      document.getElementById('stofregistrering_txtSystematisknavn').innerText = "";
      document.getElementById('stofregistrering_txtMolekylformel').innerText = "";
      stofregistrering_parametre_luk();
    }
    // opdatér strukturdiagram
    stofid = document.getElementById('stofregistrering_ddlStofvalg').value;
    temp = new Date();
    temp = "?" + temp.getTime();
    sti = "./pesticiddata/strukturdiagrammer/" + stofid + ".jpg"  + temp;
    document.images.item("stofregistrering_imgStrukturformel").src = sti;
    document.getElementById('stofregistering_lnkBilledereference').innerHTML =  splut[6];
if  (splut.length > 7)
      {
      if (splut[7].length > 3)
      {withRef = "<a href=" + splut[7] + " target='_blank'>" + splut[6] + "</a>";
      document.getElementById('stofregistering_lnkBilledereference').innerHTML =  withRef;}
      }
    setTimeout('stofregistrering_parametre();stofregistrering_detalje1()', 500);
   
   
    break;
  }
  case "2":
  {
    // oversigt valgt for en parameter
    // splut enheden fra
    argrest = arg.split("£");
    document.getElementById('stofregistrering_p_enhed').innerText = argrest[1];

    // sæt valgt parameters navn over i oversigtsoverskrift
    if(fcaller.charAt(0) == "0"){
      fcaller = fcaller.slice(1);
      if(fcaller.charAt(0) == "0"){
        fcaller = fcaller.slice(1);
      }
    }

    p = "stofregistrering_p_" + fcaller;
    //document.write(caller + " " + p)
    document.getElementById('stofregistrering_tdHovedoversigt').innerText = " Oversigt, " + document.getElementById(p).innerText;

    // del i sæt
    saet = argrest[0].split("¤");
    // find antal referencer
    antal = saet.length;

    // tøm listbokse
    document.getElementById('stofregistrering_lstSaet').options.length = 0;
    document.getElementById('stofregistrering_lstVrd').options.length = 0;
    document.getElementById('stofregistrering_lstGen').options.length = 0;
    document.getElementById('stofregistrering_lstRed').options.length = 0;
    document.getElementById('stofregistrering_lstMed').options.length = 0;
    document.getElementById('stofregistrering_lstKul').options.length = 0;
    var y = "";
    // befolk listbokse
    for (x = 1; x < antal; x++)
    {
      elementer = saet[x].split("§");
      opt = new Option(elementer[0],elementer[1]);
      document.getElementById('stofregistrering_lstSaet').add(opt);
      opt = new Option(elementer[2],elementer[1]);
      document.getElementById('stofregistrering_lstVrd').add(opt);
      opt = new Option(elementer[3],elementer[1]);
      document.getElementById('stofregistrering_lstGen').add(opt);
      opt = new Option(elementer[4],elementer[1]);
      document.getElementById('stofregistrering_lstRed').add(opt);
      opt = new Option(elementer[5],elementer[1]);
      document.getElementById('stofregistrering_lstMed').add(opt);
      opt = new Option(elementer[6],elementer[1]);
      document.getElementById('stofregistrering_lstKul').add(opt);
      }
    break;
  }
  case "3":
  {
    //vis/skift referenceoplysninger
    //document.write(arg)
    //back og next reference
    stofregistrering_initier_detaljer();

    // fjern enheden
    if (arg.split("¤").length == 3)
    {
      tsk = arg.split("¤");
      plk = tsk[1].split("£");
      enhed = plk[1];
      arg  = tsk[0] + "¤" + plk[0] + "¤" + tsk[2];

      //hvis stoffet ikke allerede har referenceoplysninger
      ppp = arg.split("¤");
      pp = ppp[2];
      p = "stofregistrering_p_" + pp;

      stofregistrering_add_blanks();
      stofregistrering_add_options();
      document.getElementById('stofregistrering_tdHovedmaalebetingelser').innerText = " Målebetingelser, " + document.getElementById(p).innerText + " (" + enhed + ") , ny reference";
      document.getElementById('stofregistrering_Par_ID').innerText = ppp[2];
      break;
    } else {
      // detaljer kaldt
      // del i sæt
      enhedaf = arg.split("£");
      enhed = enhedaf[1];
      arg = enhedaf[0];
      splut = arg.split("¤");

      //fyld detaljefelter
      document.all.stofregistrering_Ref_ID.innerText=splut[1];
      document.all.stofregistrering_Par_ID.innerText=splut[19];
      opt = new Option(splut[2],splut[2]);
      document.getElementById('stofregistrering_ddlBbgenerelt').add(opt);
      opt = new Option(splut[3],splut[3]);
      document.getElementById('stofregistrering_ddlBbredox').add(opt);
      opt = new Option(splut[4],splut[4]);
      document.getElementById('stofregistrering_ddlBbmedium').add(opt);
      opt = new Option(splut[5],splut[5]);
      document.getElementById('stofregistrering_ddlBbkulstof').add(opt);
      opt = new Option(splut[6],splut[6]);
      document.getElementById('stofregistrering_ddlBeregnet').add(opt);
      document.getElementById('stofregistrering_txtOpdatering').value=splut[7];
      opt = new Option(splut[8],splut[8]);
      document.getElementById('stofregistrering_ddlDatakvalitet').add(opt);
      opt = new Option(splut[9],splut[9]);
      document.getElementById('stofregistrering_ddlForsøgstype').add(opt);
      document.getElementById('stofregistrering_txtTemperatur').value=splut[10];
      document.getElementById('stofregistrering_txtRedox').value=splut[11];
      document.getElementById('stofregistrering_txtKulstofindhold').value=splut[12];
      document.getElementById('stofregistrering_txtMedium').value=splut[13];
      document.getElementById('stofregistrering_txtPh').value=splut[14];
      document.getElementById('stofregistrering_txtLand').value=splut[15];
      document.getElementById('stofregistrering_txtBemaerkninger').value=splut[16];        
      f = splut[17].split("½½");
      document.getElementById('stofregistrering_txtReference').innerText=f[0];

      stofregistrering_add_options();

      // brug parameter id (p_id) til at sætte nuværende sætreference og antal i sættet
      var antal = 'stofregistrering_antal_' + splut[19];
      var nuv = 'stofregistrering_nuv_' + splut[19];
      var vrd = 'stofregistrering_vrd_' + splut[19];

      p = "stofregistrering_p_" + splut[19];

      document.getElementById('stofregistrering_tdHovedmaalebetingelser').innerText = " Målebetingelser, " + document.getElementById(p).innerText + " (" + enhed + ") ";

      document.getElementById(antal).innerText = "af " + splut[21];
      document.getElementById(nuv).innerText = splut[20];
      document.getElementById(vrd).innerText = splut[18];

      document.getElementById('stofregistrering_next_' + splut[19]).className = 'next';
      document.getElementById('stofregistrering_back_' + splut[19]).className = 'back';

      if (splut[21] == splut[20]){
        document.getElementById('stofregistrering_next_' + splut[19]).className = 'next_light';
      }
      if (splut[20] == 1){
        document.getElementById('stofregistrering_back_' + splut[19]).className = 'back_light';
      }
    }
    break;
  }
  case "4":
  {
    document.getElementById('stofregistrering_ddlStofvalg').options.length = 0;
    splutliste = arg.split("¤");
    lengthliste = splutliste.length;
    opt = new Option("",0);
    document.getElementById('stofregistrering_ddlStofvalg').add(opt);
    stofnavn = document.getElementById('stofregistrering_txtStofnavn').value;
    for (x=1;x<lengthliste;x++)
    {
      listitems = splutliste[x].split("§");
      opt = new Option(listitems[1],listitems[0]);
      document.getElementById('stofregistrering_ddlStofvalg').add(opt);
    }
    document.getElementById('stofregistrering_txtStofnavn').innerText = "";
    document.getElementById('stofregistrering_txtCASkode').innerText = "";
    document.getElementById('stofregistrering_txtStandatkode').innerText = "";
    document.getElementById('stofregistrering_txtSystematisknavn').innerText = "";
    document.getElementById('stofregistrering_txtMolekylformel').innerText = "";
    switch (fcaller)
    {
      case "021":
      {
        alert("Stoffet " + stofnavn + " er opdateret.");
        break;
      }
      case "022":
      {
        alert("Stoffet " + stofnavn + " er gemt.");
        break;
      }
      case "023":
      {
        alert("Stoffet " + stofnavn + " er slettet.");
        break;
      }
    }
    break;
  }
  case "5":
  {
    alert("Oplysningerne blev opdateret.");
    refv = arg.split("¤");
    if (refv[1] == "17")
    {
      var w = document.getElementById('stofregistrering_ddlNyreference').selectedIndex;
      ref = document.getElementById('stofregistrering_ddlNyreference').options[w].text;
      document.getElementById('stofregistrering_txtReference').innerText = ref;
    }
    break;
  }
  case "6":
  {
    alert("Referenceoplysningerne blev indlæst.");
    refv = arg.split("¤");
    if (refv[1] == "18")
    {
      var w = document.getElementById('stofregistrering_ddlNyreference').selectedIndex;
      ref = document.getElementById('stofregistrering_ddlNyreference').options[w].text;
      document.getElementById('stofregistrering_txtReference').innerText = ref;
    }
    break;
  }
  case "7":
  {
    alert("Referenceoplysningerne blev slettet.");
    p = document.getElementById('stofregistrering_Par_ID').innerText;
    vrd = 'stofregistrering_vrd_' + p;
    document.getElementById(vrd).innerText = "";
    document.getElementById('stofregistrering_Par_ID').innerText = "";
    stofregistrering_detalje(p);
    stofregistrering_initier_detaljer();
    break;
  }
  case "8":
  //ny reference:indlæs eksisterende maaleoplysninger til ny værdi
  {
    // stofregistrering_clear_ref()
    opt = new Option(splut[1],splut[1]);
    document.getElementById('stofregistrering_ddlBeregnet').options[0] = opt;
    opt = new Option(splut[2],splut[2]);
    document.getElementById('stofregistrering_ddlDatakvalitet').options[0] = opt;
    opt = new Option(splut[3],splut[3]);
    document.getElementById('stofregistrering_ddlForsøgstype').options[0] = opt;
    document.getElementById('stofregistrering_txtTemperatur').innerText=splut[4];
    document.getElementById('stofregistrering_txtRedox').innerText=splut[5];
    document.getElementById('stofregistrering_txtKulstofindhold').innerText=splut[6];
    document.getElementById('stofregistrering_txtMedium').innerText=splut[7];
    document.getElementById('stofregistrering_txtPh').innerText=splut[8];
    document.getElementById('stofregistrering_txtLand').innerText=splut[9];
    document.getElementById('stofregistrering_txtBemaerkninger').innerText=splut[10];
    opt = new Option(splut[11],splut[12]);
    document.getElementById('stofregistrering_ddlNyreference').options[0] = opt;
    //  stofregistrering_add_options()
    break;
  }
  case "33":
  {
   reg_byg_metabolit(arg)
   break;
  }
  case "101":
  {
    if (document.getElementById('vis_oplysninger_ddlStofvalg').value >0)
    {
      // stof valgt fra ddlStofvalg
      document.getElementById('vis_oplysninger_txtStofnavn').innerText = splut[1];
      document.getElementById('vis_oplysninger_txtCASkode').innerText = splut[2];
      document.getElementById('vis_oplysninger_txtStandatkode').innerText = splut[3];
      document.getElementById('vis_oplysninger_txtSystematisknavn').innerText = splut[4];
      subfmt = "";
      for (var a = 0;a<splut[5].length;a++)
      {
        x =  splut[5].charAt(a);
        if (isNumeric(x))
        {
          subfmt+= x.sub();
        } else {
          subfmt+= x;
        }
      }
      document.getElementById('vis_oplysninger_txtMolekylformel').innerHTML = subfmt;
      // opdatér strukturdiagram
      stofid = document.getElementById('vis_oplysninger_ddlStofvalg').value;
      sti = "pesticiddata/strukturdiagrammer/" + stofid + ".jpg";
      document.images.item("vis_oplysninger_imgStrukturformel").src = sti;
     document.getElementById('vis_oplysninger_lnkBilledereference').innerHTML =  splut[6];
       
      if  (splut.length > 7)
      {
      if (splut[7].length > 3)
      {withRef = "<a href=" + splut[7] + " target='_blank'>" + splut[6] + "</a>";
      document.getElementById('vis_oplysninger_lnkBilledereference').innerHTML =  withRef;}
      }
    } else {
      document.getElementById('vis_oplysninger_txtStofnavn').innerText = "";
      document.getElementById('vis_oplysninger_txtCASkode').innerText = "";
      document.getElementById('vis_oplysninger_txtStandatkode').innerText = "";
      document.getElementById('vis_oplysninger_txtSystematisknavn').innerText = "";
      document.getElementById('vis_oplysninger_txtMolekylformel').innerHTML = "";
    }
   setTimeout('vis_oplysninger_parametre();vis_oplysninger_detalje(1)', 500);
    break;
  }
  case "102":
  {
    // oversigt valgt for en parameter
    // splut enheden fra
    argrest = arg.split("£");
    document.getElementById('vis_oplysninger_p_enhed').innerText = argrest[1];

    // sæt valgt parameters navn over i oversigtsoverskrift
    if(fcaller.charAt(0) == "0")
    { 
      fcaller = fcaller.slice(1);
      if(fcaller.charAt(0) == "0")
      {
        fcaller = fcaller.slice(1);
      }
    }
    var pno =  parseInt(fcaller) - 100;
    p = "vis_oplysninger_p_" + pno;
    document.getElementById('vis_oplysninger_tdHovedoversigt').innerText = " Oversigt, " + document.getElementById(p).innerText;

    // del i sæt
    saet = argrest[0].split("¤");
    // find antal referencer
    antal = saet.length;

    // tøm listbokse
    document.getElementById('vis_oplysninger_lstSaet').options.length = 0;
    document.getElementById('vis_oplysninger_lstVrd').options.length = 0;
    document.getElementById('vis_oplysninger_lstGen').options.length = 0;
    document.getElementById('vis_oplysninger_lstRed').options.length = 0;
    document.getElementById('vis_oplysninger_lstMed').options.length = 0;
    document.getElementById('vis_oplysninger_lstKul').options.length = 0;
    var y = "";
    // befolk listbokse
    for (x = 1; x < antal; x++)
    {
      elementer = saet[x].split("§");
      opt = new Option(elementer[0],elementer[1]);
      document.getElementById('vis_oplysninger_lstSaet').add(opt);
      opt = new Option(elementer[2],elementer[1]);
      document.getElementById('vis_oplysninger_lstVrd').add(opt);
      opt = new Option(elementer[3],elementer[1]);
      document.getElementById('vis_oplysninger_lstGen').add(opt);
      opt = new Option(elementer[4],elementer[1]);
      document.getElementById('vis_oplysninger_lstRed').add(opt);
      opt = new Option(elementer[5],elementer[1]);
      document.getElementById('vis_oplysninger_lstMed').add(opt);
      opt = new Option(elementer[6],elementer[1]);
      document.getElementById('vis_oplysninger_lstKul').add(opt);
    }
    break;
  }
  case "103":
  {
    // document.write(arg)
    //back og next reference
    vis_oplysninger_initier_detaljer();

    
    // fjern enheden
    if (arg.split("¤").length == 3)
    {
      tsk = arg.split("¤");
      plk = tsk[1].split("£");
      enhed = plk[1];
      arg  = tsk[0] + "¤" + plk[0] + "¤" + tsk[2];

      //hvis stoffet ikke allerede har referenceoplysninger
      ppp = arg.split("¤");
      pp = ppp[2];
      p = "vis_oplysninger_p_" + pp;
      vrd = 'vis_oplysninger_vrd_' + pp;
      document.getElementById(vrd).innerText = "";  
      
      vis_oplysninger_add_blanks();
      vis_oplysninger_add_options();
      document.getElementById('vis_oplysninger_tdHovedmaalebetingelser').innerText = " Målebetingelser, " + document.getElementById(p).innerText + " (" + enhed + ") , ny reference";
      document.getElementById('vis_oplysninger_Par_ID').innerText = ppp[2];
    } else {
      // detaljer kaldt
      // del i sæt
      
      enhedaf = arg.split("£");
      enhed = enhedaf[1];
      arg = enhedaf[0];
      splut = arg.split("¤");

      //fyld detaljefelter
      document.all.vis_oplysninger_Ref_ID.innerText=splut[1]; 
      opt = new Option(splut[2],splut[2]);
      document.getElementById('vis_oplysninger_ddlBbgenerelt').innerText = splut[2];
      opt = new Option(splut[3],splut[3]);
      document.getElementById('vis_oplysninger_ddlBbredox').innerText = splut[3];
      opt = new Option(splut[4],splut[4]);
      document.getElementById('vis_oplysninger_ddlBbmedium').innerText = splut[4];
      opt = new Option(splut[5],splut[5]);
      document.getElementById('vis_oplysninger_ddlBbkulstof').innerText = splut[5];
      opt = new Option(splut[6],splut[6]);
      document.getElementById('vis_oplysninger_ddlBeregnet').innerText = splut[6];
      document.getElementById('vis_oplysninger_txtOpdatering').innerText = splut[7];
      opt = new Option(splut[8],splut[8]);
      document.getElementById('vis_oplysninger_ddlDatakvalitet').innerText = splut[8];
      opt = new Option(splut[9],splut[9]);
      document.getElementById('vis_oplysninger_ddlForsøgstype').innerText = splut[9];
      document.getElementById('vis_oplysninger_txtTemperatur').innerText=splut[10];
      document.getElementById('vis_oplysninger_txtRedox').innerText=splut[11];
      document.getElementById('vis_oplysninger_txtKulstofindhold').innerText=splut[12];
      document.getElementById('vis_oplysninger_txtMedium').innerText=splut[13];
      document.getElementById('vis_oplysninger_txtPh').innerText=splut[14];
      document.getElementById('vis_oplysninger_txtLand').innerText=splut[15];
      document.getElementById('vis_oplysninger_txtBemaerkninger').innerText=splut[16];
      document.all.vis_oplysninger_Par_ID.innerText=splut[19];
      document.all.vis_oplysninger_Par_ID.style.color = "aliceblue";
      document.all.vis_oplysninger_Ref_ID.style.color = "aliceblue";
      
      
      var f = splut[17].split("½½");                                      
      document.getElementById('vis_oplysninger_txtReference').innerHTML = f[0];       
     // document.getElementById('vis_oplysninger_lnkReference').href = "";
      if (f[1].length > 3)
      {
      withRef = "<a href=" + f[1] + " target='_blank'>" + f[0] + "</a>";
        document.getElementById('vis_oplysninger_txtReference').innerHTML = withRef;
      }
      
      
      
      // vis_oplysninger_add_options()

      // brug parameter id (p_id) til at sætte nuværende sætreference og antal i sættet

      var antal = 'vis_oplysninger_antal_' + splut[19];
      var nuv = 'vis_oplysninger_nuv_' + splut[19];
      var vrd = 'vis_oplysninger_vrd_' + splut[19];
      
      p = "vis_oplysninger_p_" + splut[19];

      document.getElementById('vis_oplysninger_tdHovedmaalebetingelser').innerText = " Målebetingelser, " + document.getElementById(p).innerText + " (" + enhed + ") ";

      document.getElementById(antal).innerText = "af " + splut[21];
      document.getElementById(nuv).innerText = splut[20];
      document.getElementById(vrd).innerText = splut[18];

      document.getElementById('vis_oplysninger_next_' + splut[19]).className = 'next';
      document.getElementById('vis_oplysninger_back_' + splut[19]).className = 'back';
      if (splut[21] == splut[20])
      {
        document.getElementById('vis_oplysninger_next_' + splut[19]).className = 'next_light';
      }
      if (splut[20] == 1)
      {
        document.getElementById('vis_oplysninger_back_' + splut[19]).className = 'back_light';
      }
    }
    break;
  }
  case "104":
  {
    document.getElementById('vis_oplysninger_ddlStofvalg').options.length = 0;
    splutliste = arg.split("¤");
    lengthliste = splutliste.length;
    opt = new Option("",0);
    document.getElementById('vis_oplysninger_ddlStofvalg').add(opt);
    stofnavn = document.getElementById('vis_oplysninger_txtStofnavn').value;
    for (x = 1; x < lengthliste; x++)
    {
      listitems = splutliste[x].split("§");
      opt = new Option(listitems[1],listitems[0]);
      document.getElementById('vis_oplysninger_ddlStofvalg').add(opt);
    }
    document.getElementById('vis_oplysninger_txtStofnavn').innerText = "";
    document.getElementById('vis_oplysninger_txtCASkode').innerText = "";
    document.getElementById('vis_oplysninger_txtStandatkode').innerText = "";
    document.getElementById('vis_oplysninger_txtSystematisknavn').innerText = "";
    document.getElementById('vis_oplysninger_txtMolekylformel').innerText = "";
    switch (fcaller)
    {
      case "021":
      {alert("Stoffet " + stofnavn + " er opdateret.");
      break;}
      case "022":
      {alert("Stoffet " + stofnavn + " er gemt.");
      break;}
      case "023":
      {alert("Stoffet " + stofnavn + " er slettet.");
      break;}
    }
    break;
  }
  case "130":
  //udskriv stofliste
  {
    var oExcel = new ActiveXObject("Excel.Application");
    var oBook = oExcel.Workbooks.Add;
    var oSheet = oBook.Worksheets(1);
    var datatable = splut[1].split("£");
    for (var y=1;y<datatable.length;y++)
    // datatable is the table where the content to be exported is
    {
      var datarow = datatable[y].split("§");
      for (var x=1;x<datarow.length;x++)
      {
        oSheet.Cells(y+2,x) = datarow[x];
        oSheet.Cells(y+2,x).Interior.ColorIndex="20";
      }
    }
    oCell = oSheet.Range("A1:Z200");
    oCell.Font.Size = "8";
    //oHeadrow.WrapText = "True";
    oHeadrow = oSheet.Range("A1:G1");
    oHeadrow.Font.FontStyle = "Bold";
    oHeadrow.Cells.Interior.ColorIndex="24";
    oSheet.Rows("1:1").RowHeight = 25;
    oSheet.Cells(1,1) = "Stofnavn";
    oSheet.Columns("A:A").ColumnWidth = 35;
    oSheet.Cells(1,2) = "CAS kode";
    oSheet.Columns("B:B").ColumnWidth = 10;
    oSheet.Cells(1,3) = "Standat kode";
    oSheet.Columns("C:C").ColumnWidth = 12;
    oSheet.Cells(1,4) = "Systematisk navn";
    oSheet.Columns("D:D").ColumnWidth = 35;
    oSheet.Cells(1,5) = "Molekylformel";
    oSheet.Columns("E:E").ColumnWidth = 12;
    oSheet.Cells(2,1) = "Kilde: Miljøstyrelsen og Regionernes Amternes Videncenter for Jordforurening.2006. Fase 1 Pesticiddatabase, risikovurdering og prioritering af pesticidpunktkilder på oplandsskala.";
    oExcel.Visible = true;
    oExcel.UserControl = true;
    break;
  }
  case "131":
  //udskriv detaljer for et bestemt stof
  {
    var oExcel = new ActiveXObject("Excel.Application");
    var oBook = oExcel.Workbooks.Add;
    var oSheet = oBook.Worksheets(1);
    var afmedgenerelle = splut[1].split("^");
    var datatable = afmedgenerelle[0].split("£");
    for (var y=1;y<datatable.length;y++)
    // datatable is the table where the content to be exported is
    {
      var datarow = datatable[y].split("§");
      for (var x=1;x<datarow.length;x++)
      {
        oSheet.Cells(y+6,x) = datarow[x];
        oSheet.Cells(y+6,x).Interior.ColorIndex="20";
      }
    }
    oCell = oSheet.Range("A1:Z200");
    oCell.Font.Size = "8";
    oHeadrow =  oSheet.Range("A5:T5");
    oHeadrow.WrapText = "True";
    oHeadrow.Font.FontStyle = "Bold";
    oHeadrow.Cells.Interior.ColorIndex="24";
    oSheet.Rows("5:5").RowHeight = 40;
    oSheet.Cells(1,1) = "Stofnavn";
    oSheet.Cells(2,1) = "CAS kode";
    oSheet.Cells(3,1) = "Standat kode";
    oSheet.Cells(4,1) = "Systematisk navn";
    //document.write(afmedgenerelle)
    var generelle = afmedgenerelle[1].split("¨");
    for (var x=0;x<generelle.length;x++)
    {
      oSheet.Cells(x+1,2) = generelle[x];
      //oSheet.Cells(x+1,2).Interior.ColorIndex="20";
      oSheet.Cells(x+1,2).Font.FontStyle = "Bold";
    }
    oSheet.Cells(5,1) = "Parameter";
    oSheet.Columns("A:A").ColumnWidth = 15;
    oSheet.Cells(5,2) = "Enhed";
    oSheet.Columns("B:B").ColumnWidth = 10;
    oSheet.Cells(5,3) = "Værdi";
    oSheet.Columns("C:C").ColumnWidth = 8;
    oSheet.Cells(5,4) = "ID";
    oSheet.Columns("D:D").ColumnWidth = 5;
    oSheet.Cells(5,5) = "Bedste bud, generelt";
    oSheet.Columns("E:E").ColumnWidth = 14;
    oSheet.Cells(5,6) = "Bedste bud, redox";
    oSheet.Columns("F:F").ColumnWidth = 14;
    oSheet.Cells(5,7) = "Bedste bud, medium";
    oSheet.Columns("G:G").ColumnWidth = 14;
    oSheet.Cells(5,8) = "Bedste bud, kulstof";
    oSheet.Columns("H:H").ColumnWidth = 14;
    oSheet.Cells(5,9) = "Beregnet";
    oSheet.Columns("I:I").ColumnWidth = 8;
    oSheet.Cells(5,10) = "Opdateret";
    oSheet.Columns("J:J").ColumnWidth = 8;
    oSheet.Cells(5,11) = "Data-kvalitet";
    oSheet.Columns("K:K").ColumnWidth = 8;
    oSheet.Cells(5,12) = "Forsøgs-type";
    oSheet.Columns("L:L").ColumnWidth = 8;
    oSheet.Cells(5,13) = "Tempe-ratur";
    oSheet.Columns("M:M").ColumnWidth = 8;
    oSheet.Cells(5,14) = "Redox";
    oSheet.Columns("N:N").ColumnWidth = 8;
    oSheet.Cells(5,15) = "Relativt kulstof-indhold";
    oSheet.Columns("O:O").ColumnWidth = 8;
    oSheet.Cells(5,16) = "Medium";
    oSheet.Columns("P:P").ColumnWidth = 8;
    oSheet.Cells(5,17) = "pH";
    oSheet.Columns("Q:Q").ColumnWidth = 8;
    oSheet.Cells(5,18) = "Land";
    oSheet.Columns("R:R").ColumnWidth = 8;
    oSheet.Cells(5,19) = "Bemærkning";
    oSheet.Columns("S:S").ColumnWidth = 20;
    oSheet.Cells(5,20) = "Reference";
    oSheet.Columns("T:T").ColumnWidth = 20;
    oSheet.Cells(6,1) = "Kilde: Miljøstyrelsen og Regionernes Videncenter for Jordforurening.2006. Fase 1 Pesticiddatabase, risikovurdering og prioritering af pesticidpunktkilder på oplandsskala.";
    oExcel.Visible = true;
    oExcel.UserControl = true;
    break;
  }
  case "132":
  //udskriv detaljer for alle stoffer
  {
    var oExcel = new ActiveXObject("Excel.Application");
    var oBook = oExcel.Workbooks.Add;
    var oSheet = oBook.Worksheets(1);
    var datatable = splut[1].split("£");
    for (var y=1;y<datatable.length;y++)
    // datatable is the table where the content to be exported is
    {
      var datarow = datatable[y].split("§");
      for (var x=1;x<datarow.length;x++)
      {
        oSheet.Cells(y+2,x) = datarow[x];
        oSheet.Cells(y+2,x).Interior.ColorIndex="20";
      }
    }
    oCell = oSheet.Range("A1:Z200");
    oCell.Font.Size = "8";
    oHeadrow =  oSheet.Range("A1:T1");
    oHeadrow.WrapText = "True";
    oHeadrow.Font.FontStyle = "Bold";
    oHeadrow.Cells.Interior.ColorIndex="24";
    oSheet.Rows("1:1").RowHeight = 40;

    oSheet.Cells(1,1) = "Stof";
    oSheet.Columns("A:A").ColumnWidth = 15;
    oSheet.Cells(1,2) = "Parameter";
    oSheet.Columns("A:A").ColumnWidth = 15;
    oSheet.Cells(1,3) = "Enhed";
    oSheet.Columns("B:B").ColumnWidth = 10;
    oSheet.Cells(1,4) = "Værdi";
    oSheet.Columns("C:C").ColumnWidth = 8;
    oSheet.Cells(1,5) = "ID";
    oSheet.Columns("D:D").ColumnWidth = 5;
    oSheet.Cells(1,6) = "Bedste bud, generelt";
    oSheet.Columns("E:E").ColumnWidth = 14;
    oSheet.Cells(1,7) = "Bedste bud, redox";
    oSheet.Columns("F:F").ColumnWidth = 14;
    oSheet.Cells(1,8) = "Bedste bud, medium";
    oSheet.Columns("G:G").ColumnWidth = 14;
    oSheet.Cells(1,9) = "Bedste bud, kulstof";
    oSheet.Columns("H:H").ColumnWidth = 14;
    oSheet.Cells(1,10) = "Beregnet";
    oSheet.Columns("I:I").ColumnWidth = 8;
    oSheet.Cells(1,11) = "Opdateret";
    oSheet.Columns("J:J").ColumnWidth = 8;
    oSheet.Cells(1,12) = "Data-kvalitet";
    oSheet.Columns("K:K").ColumnWidth = 8;
    oSheet.Cells(1,13) = "Forsøgs-type";
    oSheet.Columns("L:L").ColumnWidth = 8;
    oSheet.Cells(1,14) = "Tempe-ratur";
    oSheet.Columns("M:M").ColumnWidth = 8;
    oSheet.Cells(1,15) = "Redox";
    oSheet.Columns("N:N").ColumnWidth = 8;
    oSheet.Cells(1,16) = "Relativt kulstof-indhold";
    oSheet.Columns("O:O").ColumnWidth = 8;
    oSheet.Cells(1,17) = "Medium";
    oSheet.Columns("P:P").ColumnWidth = 8;
    oSheet.Cells(1,18) = "pH";
    oSheet.Columns("Q:Q").ColumnWidth = 8;
    oSheet.Cells(1,19) = "Land";
    oSheet.Columns("R:R").ColumnWidth = 8;
    oSheet.Cells(1,20) = "Bemærkning";
    oSheet.Columns("S:S").ColumnWidth = 20;
    oSheet.Cells(1,21) = "Reference";
    oSheet.Columns("T:T").ColumnWidth = 20;
    oSheet.Cells(2,1) = "Kilde: Miljøstyrelsen og Regionernes Videncenter for Jordforurening.2006. Fase 1 Pesticiddatabase, risikovurdering og prioritering af pesticidpunktkilder på oplandsskala.";
    oExcel.Visible = true;
    oExcel.UserControl = true;
    break;
  }
    case "133":
  {
   vis_byg_metabolit(arg);
   break;
  }
  case "134":  
  {
   document.getElementById("stofregistrering_ddlStof").selectedIndex = 0;
   document.getElementById("stofregistrering_ddlMetabolit").selectedIndex = 0; 
   alert("Stofskiftestrukturen er opdateret.")
   metabolit_registrer()
   break;
  }
  
  
  
  
  //SEKTION FOR RISIKOVURDERING
  //Sektion vedr 3_1: Opland
  case "201":
  {                
  //#_# splitter oplandene
    lok_koords = arg.split("#_#");
    var parts2 = lok_koords[0].split("@_@");
    var coords = parts2[1].split("@");           
    adjust_koords(coords[0],coords[1],coords[2],coords[3]);
    
    gisdata = lok_koords[0].split("§§");
    gissaet = gisdata[1].split("¤");  
    document.all.risiko_3_opland_navn.innerHTML = gissaet[15];
    document.all.risiko_3_opland_tval_mean.innerText= gissaet[19];
    document.all.risiko_3_opland_tval_min.innerText= gissaet[20];
    document.all.risiko_3_opland_tval_max.innerText= gissaet[21];
    document.all.risiko_3_opland_bjergart.innerHTML = gissaet[22];
    document.all.risiko_3_opland_massefylde.innerHTML = gissaet[23];
    document.all.risiko_3_opland_poroesitet.innerHTML = gissaet[24];
    document.all.risiko_3_opland_redox.innerHTML = gissaet[25];
    document.all.risiko_3_opland_magasintykkelse.innerHTML = gissaet[26];
    document.all.risiko_3_opland_infiltration.innerHTML = gissaet[27];
    
    //generer imagemap fra lok_koords[1]
    
    var klik_streng = "";        
      skift = "?" + Math.random();
      document.images["risiko_1_imgMap"].src = "./mapserver/tmp/risiko_1.png"  + skift;
      img = document.images["risiko_1_imgMap"];  
      img.onclick=new Function("detectMouseCoordinates('" + lok_koords[1] + "','" + parts2[1] +  "')");
      document.images["risiko_1_imgMap"].useMap = "" // "#map1"; // + skift
      var parts = lok_koords[0].split("¤");
      lok = parts[1].split("§");
       //befolk tabellen for lokaliteter på risiko_1 med navn og den på risiko_2 med id, navn og for sidste kildestyrkesæt id, bruger, navn og dato. 
      byg_valgte_lokaliteter(lok);
      break;
  }  
  case "202":
  {
    //1. tøm kildestyrketabel                      
    var table = document.getElementById('risiko_2_sub_kildestyrker');
    var rows = table.getElementsByTagName("tr");
    for (x = rows.length-3;x>0;x--)
    {
      table.deleteRow(x);
    } 

    knapstil = "  style='margin:0px;padding-left:0px;text-align:left;color: #000099;font-size:10px;cursor:hand; border-style:none; background-color: transparent; text-decoration: none;'";

    //2. del arg i tabellinjer   

    var dele = arg.split("¤");
    for (ff=1;ff<dele.length-1;ff++)
    {
      var nycelle=table.insertRow(ff);
      //del linjen i celler og tilføj
      bidder = dele[ff].split("£"); 
      // stofid
      var a=nycelle.insertCell(0);
      // stof
      var b=nycelle.insertCell(1);
      //  GVmin
      var c=nycelle.insertCell(2);          
      //  GVmid
      var d=nycelle.insertCell(3);
      //  GVmax
      var e=nycelle.insertCell(4);
      //  SPmin
      var f=nycelle.insertCell(5);
      //  SPmid
      var g=nycelle.insertCell(6);
      //  SPmax
      var h=nycelle.insertCell(7);
      //  JOmin
      var i=nycelle.insertCell(8);
      //  JOmid
      var j=nycelle.insertCell(9);
      //  JOmax
      var k=nycelle.insertCell(10);
      //  DEmin
      var l=nycelle.insertCell(11);
      //  DEmid
      var m=nycelle.insertCell(12);
      //  DEmax
      var n=nycelle.insertCell(13);
      //  Kildest værdi
      var o=nycelle.insertCell(14);
      //  Kildest ftype
      var p=nycelle.insertCell(15);
      //  Kildest niveau
      var q=nycelle.insertCell(16);
      //  Kildest areal
      var r=nycelle.insertCell(17);
      //  GV areal
      var s=nycelle.insertCell(18);
      //  SP areal
      var t=nycelle.insertCell(19);
      //  JO areal
      var u=nycelle.insertCell(20);
      //  DE areal
      var v=nycelle.insertCell(21);

      //celler med id for forurening og default
      var id1 = nycelle.insertCell(21);
      var id2 = nycelle.insertCell(22);
      var id3 = nycelle.insertCell(23);
      var id4 = nycelle.insertCell(24);
      var id5 = nycelle.insertCell(25);    
      id1.style.display = 'none';
      id2.style.display = 'none';
      id3.style.display = 'none';
      id4.style.display = 'none';
      id5.style.display = 'none';      

      var grundvand = 1;
      var spild = 2;
      var jord = 3;
      var fdefault = 4;
      var min = 1;
      var middel = 2;
      var max = 3;

      for (ttt = 0;ttt<bidder.length;ttt++)
      {
        if (bidder[ttt].length == 0)
        {
          bidder[ttt] = '_';
        }
      }

      //id og stofnavn
      a.innerHTML  = bidder[0];           
      b.innerHTML  = bidder[1]; 
      b.className = 'tdknap';
      b.style.textDecoration = 'none';
      //fjerner ikke rækken, men fjerner 'fed' og kidestyrkedata
      b.onclick = new Function("fjern_raekke('" + ff + "','" + bidder[1] + "')");       
      b.style.paddingLeft = '5px';
      //min,middel og max for grundvandsforurening
      c.innerHTML = "<a class=info href='#'><input type='button' value='" + bidder[2]  + "' " + knapstil + " onclick='fed(" + ff + ");set_valgt(this.value," + ff + " , " + grundvand + " , " + bidder[6] + " , " + min + ");' /><span>" + bidder[5] + "</span></a>";
      d.innerHTML = "<a class=info href='#'><input type='button' value='" + bidder[3]  + "' " + knapstil + " onclick='fed(" + ff + ");set_valgt(this.value," + ff + " , " + grundvand + " , " + bidder[6] + " , " + middel + ");' /><span>" + bidder[5] + "</span></a>";
      e.innerHTML = "<a class=info href='#'><input type='button' value='" + bidder[4]  + "' " + knapstil + " onclick='fed(" + ff + ");set_valgt(this.value," + ff + " , " + grundvand + " , " + bidder[6] + " , " + max  + ");' /><span>" + bidder[5] + "</span></a>";

      //min,middel og max for spild
      f.innerHTML = "<a class=info href='#'><input type='button' value='" + bidder[7]  + "' " + knapstil + " onclick='set_GF(this.value," + ff + " , " + spild + " , " + bidder[11] + " , " + min + ");' /><span>" + bidder[10] + "</span></a>";
      g.innerHTML = "<a class=info href='#'><input type='button' value='" + bidder[8]  + "' " + knapstil + " onclick='set_GF(this.value," + ff + " , " + spild + " , " + bidder[11] + " , " + middel + ");' /><span>" + bidder[10] + "</span></a>";
      h.innerHTML = "<a class=info href='#'><input type='button' value='" + bidder[9]  + "' " + knapstil + " onclick='set_GF(this.value," + ff + " , " + spild + " , " + bidder[11] + " , " + max + ");' /><span>" + bidder[10] + "</span></a>";

      //min,middel og max for jordforurening
      i.innerHTML = "<a class=info href='#'><input type='button' value='" + bidder[12]  + "' " + knapstil + " onclick='set_GF(this.value," + ff + " , " + jord + " , " + bidder[16] + " , " + min + ");' /><span>" + bidder[15] + "</span></a>";
      j.innerHTML = "<a class=info href='#'><input type='button' value='" + bidder[13]  + "' " + knapstil + " onclick='set_GF(this.value," + ff + " , " + jord + " , " + bidder[16] + " , " + middel + ");' /><span>" + bidder[15] + "</span></a>";
      k.innerHTML = "<a class=info href='#'><input type='button' value='" + bidder[14]  + "' " + knapstil + " onclick='set_GF(this.value," + ff + " , " + jord + " , " + bidder[16] + " , " + max + ");' /><span>" + bidder[15] + "</span></a>";

      //min,middel og max for default
      l.innerHTML = "<input type='button' value='" + bidder[17]  + "' " + knapstil + " onclick='fed(" + ff + ");set_valgt(this.value," + ff + " , " + fdefault + " , " + bidder[20] + " , " + min + ");' />";
      m.innerHTML = "<input type='button' value='" + bidder[18]  + "' " + knapstil + " onclick='fed(" + ff + ");set_valgt(this.value," + ff + " , " + fdefault + " , " + bidder[20] + " , " + middel + ");' />";
      n.innerHTML = "<input type='button' value='" + bidder[19]  + "' " + knapstil + " onclick='fed(" + ff + ");set_valgt(this.value," + ff + " , " + fdefault + " , " + bidder[20] + " , " + max + ");' />";
           
      //valgt kildestyrke
      //værdi
      tal_id="risiko_2_sub_tal" + ff;
      fortype_id="risiko_2_sub_fortype" + ff;
      niveau_id="risiko_2_sub_niveau" + ff;
      areal_id="risiko_2_sub_areal" + ff;             
      o.innerHTML = "<input id= " + tal_id +  " onchange='this.value = testNummer(this.value);fed(" + ff + ");' type='text' class=tekst />";          
      p.innerHTML = "<input id= " + fortype_id +  " enabled='false' type='text'class=tekst />";          
      q.innerHTML = "<input id= " + niveau_id +  " enabled='false' type='text' class=tekst />";          
      r.innerHTML = "<input id= " + areal_id +  " enabled='false'   onchange='this.value = testNummer(this.value);fed(" + ff + ");'  type='text' class=tekst />";    

      //p= forur. type, valgt kildestyrke
      //q= min, middel eller max., valgt kildestyrke
      //r= areal, valgt kildestyrke

      //arealer : bidder[6,11,16,20]
      //gvf
      areal_navn = "risiko_2_GV_areal_" + ff;
      s.innerHTML ="<input id=" + areal_navn + " type='hidden' value = " + bidder[6] + " />";
      areal_navn = "risiko_2_SPILD_areal_" + ff;
      t.innerHTML ="<input id=" + areal_navn + " type='hidden' value = " + bidder[11] + " />";
      areal_navn = "risiko_2_JORD_areal_" + ff;
      u.innerHTML ="<input id=" + areal_navn + " type='hidden' value = " + bidder[16] + " />";
      areal_navn = "risiko_2_DEFAULT_areal_" + ff;
      v.innerHTML ="<input id=" + areal_navn + " type='hidden' value = " + bidder[20] + " />";   
    }   
    // hent stoffernes kildestyrker, ftype, areal og niveau
    if (document.all.risiko_2_fyr_kildesaet_af.innerHTML  != "")
    {
      ppp = document.all.risiko_2_fyr_kildesaet_af.innerHTML ;
      document.all.risiko_2_fyr_kildesaet_af.innerHTML  = "";
      setTimeout('CallServer(ppp);', 500);             
    }
    break;
  }
  case "203":
  {     
    //JID 20061003
    skift = "?" + Math.random();
    document.images["risiko_1_imgMap"].src = "./mapserver/tmp/risiko_1.png" + skift; 
    var parts = arg.split("@_@");
    var coords = parts[1].split("@");
    adjust_koords(coords[0],coords[1],coords[2],coords[3]);
    parts = parts[0].split("¤");
    var map = parts[1].split("<map");
    var usemap = '<map' + map[1];         
    document.getElementById('risiko_1_imagemapholder').innerHTML = usemap;
    document.images["risiko_1_imgMap"].useMap = "#map1" // + skift  
    break; 
    
  }
  case "204":
  {             
    //koc og td50 hentet til vertikal beregning.
    vaerdier = arg.split("¤");
    document.all.risiko_2_koc.innerText = vaerdier[1];
    document.all.risiko_2_dt50.innerText = vaerdier[2];
    break;
  }
  //SEKTION FOR LOKALITETSDATA
  //Sektion vedr 2_2: LOKALITETSREGISTRERING
  case "301":
  {
    var parts = arg.split("¤");
    document.getElementById('lokalitet_2_txtNavn').innerText =  parts[1];
    document.getElementById('lokalitet_2_txtVej').innerText =  parts[2];

    opt = new Option(parts[3],parts[3]);
    hentpostnr = parts[3].substring(0, 4);
    postnrliste =  document.getElementById('lokalitet_2_ddlPostnrOgBy');
    postln = postnrliste.options.length;
    for (ff = 0;ff<postln-1;ff++)
    if(hentpostnr == postnrliste.options[ff].text.substring(0, 4))
    {          
    document.getElementById('lokalitet_2_ddlPostnrOgBy').selectedIndex = ff;
    }        
    document.getElementById('lokalitet_2_txtMatrikel').innerText =  parts[4];
    document.getElementById('lokalitet_2_txtMatrikelnr').innerText =  parts[5];
    document.getElementById('lokalitet_2_txtX').innerText =  parts[6];
    document.getElementById('lokalitet_2_txtY').innerText =  parts[7];
    document.getElementById('lokalitet_2_ddlLokalitetstype').selectedIndex=0;
    switch (parts[8])
    {
    case "Landbrugsbedrift":
      {
        document.getElementById('lokalitet_2_ddlLokalitetstype').selectedIndex=1;  
        break;
      }
    case "Gartneri":
      {
        document.getElementById('lokalitet_2_ddlLokalitetstype').selectedIndex=2;  
        break;
      }
    case "Mergelgrav":
      {
        document.getElementById('lokalitet_2_ddlLokalitetstype').selectedIndex=3;  
        break;
      }
    case "Losseplads/fyldplads":
      {
        document.getElementById('lokalitet_2_ddlLokalitetstype').selectedIndex=4;  
        break;
      }
    }              
    document.getElementById('lokalitet_2_ddlDriftStart').value = parts[9];
    document.getElementById('lokalitet_2_ddlDriftSlut').value = parts[10];
    document.getElementById('lokalitet_2_txtKommentar').innerText = parts[11];
    if (parts[12] == "true")
    {
      document.all.lokalitet_2_chkOplysninger.checked = true ;
    } else {
      document.all.lokalitet_2_chkOplysninger.checked = false;
    }

    if (parts[13] == "true")
    {
      document.all.lokalitet_2_chkGaardsplads.checked = true ;
    } else {
      document.all.lokalitet_2_chkGaardsplads.checked = false;
    }

    if (parts[14] == "true")
    {
      document.all.lokalitet_2_chkVaskeplads.checked = true ;
    } else {
      document.all.lokalitet_2_chkVaskeplads.checked = false;
    }
    
    if (parts[15] == "true")
    {
      document.all.lokalitet_2_chkSkylletank.checked = true ;
    } else {
      document.all.lokalitet_2_chkSkylletank.checked = false;
    }
  
    if (parts[16] == "true")
    {
      document.all.lokalitet_2_chkDraen.checked = true ;
    } else {
      document.all.lokalitet_2_chkDraen.checked = false;
    }

    document.all.lokalitet_2_ddlHektar.selectedIndex = parts[17];
    document.getElementById('lokalitet_2_lblOpdateretAf').innerText = parts[18];
    document.getElementById('lokalitet_2_lblOpdateretDato').innerText = parts[19];
    if (document.getElementById('lokalitet_2_ddlLokalitetstype').value == "Landbrugsbedrift")
    {
      document.all.lokalitet_2_bedriftsbeslutninger.style.display = 'block';
    } else {
      document.all.lokalitet_2_bedriftsbeslutninger.style.display = 'none';
    }              
    break;
  }
  case "302":
  {
    alert("Lokaliteten er opdateret.");
    break;
  }
  case "303":
  {
    // document.getElementById('lokalitet_2_ddlLokaliteter').options.length = 0;     
    var streng =  document.getElementById('lokalitet_2_txtNavn').value + " " + document.getElementById('lokalitet_2_txtVej').value + " " + document.getElementById('lokalitet_2_ddlPostnrOgBy').value;
    var saet = arg.split("¤");        
    opt = new Option(streng,saet[1]);
    document.getElementById('lokalitet_2_ddlLokaliteter').add(opt);
    document.getElementById('lokalitet_2_ddlLokaliteter').selectedIndex = document.getElementById('lokalitet_2_ddlLokaliteter').options.length - 1;
    alert("Lokaliteten er registreret.")
    break;
  }   
  case "304":
  {     
     alert("Forureningen er registreret.") ;  
    byg_forureningstabel(arg);
    break;
  }
  case "305":
  {
    byg_forureningstabel(arg);
    break;
  }
  case "306":
  {
    //lokalitet slettet. Tøm formular med opret_ny_lokalitet.
    w = document.getElementById('lokalitet_2_ddlLokaliteter').selectedIndex;
    document.getElementById('lokalitet_2_ddlLokaliteter').options[w] = null;
    opret_ny_lokalitet();
    alert("Lokaliteten er slettet")
    break;
  }
   case "307":
  {
  //stof slettet fra forureningshistorie
  alert("Stoffet er slettet.")       
  var forureningstype = document.all.lokalitet_2_tdHead.innerText;
        switch (forureningstype)  
        {
            case "Grundvandsforurening" :
            {
            setTimeout('vis_GV();', 500); 
            }         
            case "Overfladespild" :
            {
               setTimeout('vis_overflade();', 500);
            }
            case "Jordforurening" :
            {
               setTimeout('vis_jord();', 500);
            }  
        }  
  }
  //callback funktioner vedr 3_2: vertikal beregning
  case "501":
  {
    stopwait(); 
    var vert = arg.split("¤");
    vert[1] = vert[1].replace(",",".");      
    switch (document.all.risiko_2_ftype.value)
    {
      case "SPILD":
      {
        document.all.risiko_2_resultat.value = roundNumber(vert[1] * 10000 / document.all.risiko_2_areal.value*document.all.risiko_2_vaerdi.value,2);
        break;
      }
      case "JORD":
      {
        document.all.risiko_2_resultat.value = roundNumber(vert[1]*18*document.all.risiko_2_vaerdi.value,2);
        break;
      }
    }
    break;
  }  
  case "502":
  {
    //gem/opdater kildestyrkeopsætning
    alert("Sættet er gemt.");       
    var hist = arg.split("¤");                               
    document.all.risiko_2_historikID.innerHTML =hist[1]; 
    document.all.risiko_2_historikDetaljer.innerHTML =hist[2] + " " + hist[3]; 
    document.all.risiko_2_historikNavn.value = hist[4]; 
     //erstat default kildestyrkeopsætning med den sidst ændrede
    //1.    find opdaterede lokalitet
    opd_lok = document.all.risiko_2_valgt_lokalitet.innerHTML;
    //2.    gennemløb oplandets lokaliteter og sammenlign med den opdaterede
    var table = document.getElementById('risiko_2_valgte_lokaliteter');   
    var rows = table.getElementsByTagName("tr");
    for (x = 0;x<rows.length-1;x++)
    {
        navn = "risiko_2_loknavn" + x;    
        if (document.all(navn).value == opd_lok)
        {   
         rows[x+1].cells[3].innerHTML = risiko_2_historikID.innerText;
        }
    }
 
    
    
    
    break;
  }
  case "503":
  {
    //hent kildestyrkeopsætninger til arkivliste         
    //tøm arkivlliste
    var table = document.getElementById('risiko_2_arkiv_sub');   
    var rows = table.getElementsByTagName("tr");
    for (x = rows.length-1;x>0;x--){table.deleteRow(x);} 

    //knapstil = "  style='margin:0px;padding-left:0px;text-align:left;color: #000099;font-size:10px;cursor:hand; border-style:none; background-color: transparent; text-decoration: none;'  "       

    //2. del arg i tabellinjer          
    var dele = arg.split("£");
    for (ff=1;ff<dele.length-1;ff++)
    {          
      var nycelle=table.insertRow(ff);
      //del linjen i celler og tilføj
      bidder = dele[ff].split("¤"); 
      var a=nycelle.insertCell(0);
      var b=nycelle.insertCell(1);
      var c=nycelle.insertCell(2);  
      var d=nycelle.insertCell(3);
      a.innerHTML = bidder[0]; 
      b.innerHTML = bidder[1]; 
      c.innerHTML = bidder[2]; 
      d.innerHTML = bidder[3]; 
      a.className = "tdknap";
      lok_id = document.all.risiko_2_valgt_arkiv_lokalitet_id.innerHTML; 
      lok = document.all.risiko_2_valgt_arkiv_lokalitet.innerHTML; 
      a.onclick = new Function("vaelg_sidste_kildestyrke('" + bidder[0] + "','" +  lok_id + "','" + lok + "')");
    }
    break;
  }
  case "504":
  //valgt kildestyrkesæt: test hvor de enkelt stoffer hører hjemme i tabellen og indlæg kildestyrkerne over forureningshistorikken
  {
    var table = document.getElementById('risiko_2_sub_kildestyrker');   
    var rows = table.getElementsByTagName("tr");
    led = arg.split("£");
    detaljer = led[0].split("¤");
    document.all.risiko_2_historikID.innerHTML =detaljer[1]; 
    document.all.risiko_2_historikDetaljer.innerHTML =detaljer[2] + " " + detaljer[3]; 
    document.all.risiko_2_historikNavn.value = detaljer[4]; 
    for (z = 1;z<led.length;z++)
    {                  
      delled = led[z].split("¤");
      fundet = false;
      for (x = rows.length-3;x>0;x--)
      {
        if (delled[1] == rows[x].cells[0].innerHTML)
        {
          fundet = true;
          rows[x].style.fontWeight = 'bold';
          tal_id="risiko_2_sub_tal" + x;
          fortype_id="risiko_2_sub_fortype" + x;           
          areal_id="risiko_2_sub_areal" + x;      
          niveau_id="risiko_2_sub_niveau" + x;
          rows[x].cells[14].innerHTML = "<input id= " + tal_id +  " value='" + delled[3] + "'  onchange='this.value = testNummer(this.value);fed(" + ff + ");' type='text' class=tekst />";          
          rows[x].cells[15].innerHTML = "<input id= " + fortype_id +  " enabled='false' value='" + delled[4] + "' type='text'class=tekst />";          
          rows[x].cells[16].innerHTML = "<input id= " + niveau_id +  " enabled='false' value='" + delled[6] + "'  type='text' class=tekst />";          
          rows[x].cells[17].innerHTML = "<input id= " + areal_id +  " enabled='false' value='" + delled[5] + "'   onchange='this.value = testNummer(this.value);fed(" + ff + ");'  type='text' class=tekst />"; 
          
          //indsæt kildestyrkesætid,navn,bruger og dato nederst i tabellen.            
        }    
      }
      if (fundet == false)
      {
      // dan ny raekke for stoffer tilføjet uden forureningshistorie 
      var l = rows.length-2
      var nycelle=table.insertRow(l);
      nycelle.style.fontWeight = 'bold';
      var a=nycelle.insertCell(0);
      var b=nycelle.insertCell(1);
      var c=nycelle.insertCell(2);
      var d=nycelle.insertCell(3);
      var e=nycelle.insertCell(4);
      var f=nycelle.insertCell(5);
      var g=nycelle.insertCell(6);
      a.innerHTML = delled[1];
      b.innerHTML = delled[2];
      b.className = 'tdknap';
      b.style.textDecoration = 'none';
      //fjerner ikke rækken, men fjerner 'fed' og kidestyrkedata
      b.onclick = new Function("fjern_raekke('" + l + "','" + delled[2] + "')");
      b.style.paddingLeft = '5px';
      c.colSpan = "12"; 
      tal_id = "risiko_2_sub_tal" + l;
      fortype_id = "risiko_2_sub_fortype" + l;
      niveau_id = "risiko_2_sub_niveau" + l;
      areal_id = "risiko_2_sub_areal" + l;
      d.innerHTML = "<input id=" + tal_id +  " value='" + delled[3] + "' onchange='this.value = testNummer(this.value);fed(" + l + ");' type='text' class=tekst />";
      e.innerHTML = "<input id=" + fortype_id + " value='" + delled[4] + "' enabled='false' type='text' class=tekst value='BRUG' />";
      f.innerHTML = "<input id=" + niveau_id + " value='" + delled[6] + "' onchange='this.value = testNiveau(this.value);' type='text' class=tekst />";
      g.innerHTML = "<input id=" + areal_id + " value='" + delled[5] + "' onchange='this.value = testNummer(this.value);' type='text' class=tekst />"; 
      }   
    }          
    break;
  }
  //serie 600: horisontal beregning
  case "601":
  {    
    var send_streng = "";
    saet = arg.split("£");
    header = saet[0].split("¤");
    s = header[3];
    //find kildestyrketabellen i den åbnede lokalitetsrække
    kildetabel = document.getElementById("risiko_3_kildetabel" + s);
    var rows = kildetabel.getElementsByTagName("tr");
    //tøm tabellen
    for (x = rows.length-1;x>0;x--)
    {
      kildetabel.deleteRow(x);
    } 
    //sløjfe med stoffer en for en
    for (y=1;y<saet.length;y++)
    {
      nyrow = kildetabel.insertRow(y);
      nyrow.className = "risiko_3_stofdata";
      stumper = saet[y].split("¤");
      //tilføj celler for: stofid, stofnavn, koncentration, td50, koc 
      a = nyrow.insertCell(0);
      a.innerHTML = "<input class='disabledminitekstnoborder' disabled type='text' value=" + stumper[1] + " />"
      b = nyrow.insertCell(1);
      b.innerHTML = "<input class='disabledtekstnoborder' disabled type='text' value='" + stumper[2]  + "' />"
      c = nyrow.insertCell(2);
      c.innerHTML = "<input class='disabledminitekstnoborder' disabled type='text' value=" + stumper[3] + " />"
      d = nyrow.insertCell(3);
      d.innerHTML = "<input class='disabledminitekstnoborder' disabled type='text' value=" + stumper[4] + " />"
      e = nyrow.insertCell(4);
      e.innerHTML = "<input class='disabledlilletekstnoborder' disabled type='text' value=" + stumper[5] + " />"
      f = nyrow.insertCell(5);
      f.innerHTML = "<input class='disabledminitekstnoborder' disabled type='text' value=" + stumper[6] + " />"
      g = nyrow.insertCell(6);
      g.innerHTML = "<input class='disabledlilletekstnoborder' type='text' value=" + stumper[7] + " />"
      h = nyrow.insertCell(7);
      td50 = parseInt(' ' + stumper[8])
      if (isNumber(td50)){}else {td50 = "";}
      h.innerHTML = "<input class='disabledlilletekstnoborder' type='text' value='" + td50 + "' />"
      i = nyrow.insertCell(8);
      start = parseInt(' ' + stumper[9])
      if (start == '-1'){start = "";}
      if (isNumber(start)){}else {start = "";}
      i.innerHTML = "<input class='disabledminitekstnoborder' type='text' value='" + start + "'/>"
      j = nyrow.insertCell(9);
      slut = parseInt(' ' + stumper[10])
      if (slut == '-1'){slut = "";}
      if (isNumber(slut)){}else {slut = "";}
      j.innerHTML = "<input class='disabledminitekstnoborder' type='text' value='" + slut + "' />"
      k = nyrow.insertCell(10);     
      kildest =  roundNumber(document.all.risiko_3_opland_infiltration.innerHTML * stumper[3].replace(",",".") * stumper[6]/1000,2); 
    //kildest = parseFloat(kildest).replace(".",",");
      //JID 20061120:
      kildest = kildest + '';//omdan til String
      kildest = kildest.replace(".",",");
      k.innerHTML = "<input class='disabledlilletekstnoborder' disabled type='text' value=" + kildest + " />"
      }
    break;
  }   
  // gem resultat fra horisontal beregning
  case "602":
  {
    /*   ingen return værdi;*/ 
    break;
  }

  // 603 - 606: præsentationer (alle rettes mod 603):
  case "603":
  {
    diagram_output_xakse_aar(arg);
    break;
  }
  // 607: præsentationer
  case "607":
  {
    diagram_output_xakse_centerlinje(arg);
    break;
  }  
  // 608: horisontal transport kort
  case "608":
  {    
 
    //jid 20061003
    skift = "?" + Math.random();
    document.images["risiko_4_imgMap2"].src = "./mapserver/tmp/risiko_4.png" + skift; 
    var parts = arg.split("¤");
    parts = arg.split("@_@");
    var map = parts[0].split("<map");
    var usemap = '<map' + map[1];
    document.all.risiko_4_imagemapholder.innerHTML = usemap;
    document.images["risiko_4_imgMap2"].useMap = "#map3" // + skift  
    break;
  }   
  // 609: data for centerlinje i horisontalt kort
  case "609":
  {         
      kort_tabel(arg);
      break;
  }
  
  
          
    }            
}

function detectMouseCoordinates(loks,coords)
{    
   var coords = coords.split("@");   
       
    var posx,posy;     
    posx=0;          
    posy=0;        
    e=window.event; 
    if(e.pageX||e.pageY){   
          posx=e.pageX;   
          posy=e.pageY;  
    }                   
    else if(e.clientX||e.clientY){ 
          posx = e.clientX + document.documentElement.scrollLeft - 348; 
          posy = e.clientY + document.documentElement.scrollTop - 127; 
    }                                                
    window.status = 'X='+posx+' Y='+posy; 
    document.all.risiko_1_pos.innerHTML = 'X='+posx+' Y='+posy;
    loks = lok_koords[1].split("§")
    for (ff=0;ff<loks.length;ff++)
    {
    lo = loks[ff].split("¤")     
    x = parseInt(roundNumber(get_x(lo[2],coords[2],coords[0]),0));
    y = parseInt(roundNumber(get_y(lo[3],coords[3],coords[1]),0));
    resx = x-posx;resy = y-posy;
  //  alert(lo[1] + ": " + x + "," + y + " mus: " + posx + "," + posy + " afstand: " + resx + "," + resy);
  //  alert("x,y: " + x + "," + y);
    if (Math.sqrt((x-posx)*(x-posx)) < 10 && Math.sqrt((y-posy)*(y-posy)) < 10)
    {window.status = lo[1];
    document.all.risiko_1_pos.innerHTML = lo[1];    
    }
    }
    
function get_x(x,xmax,xmin)
{
x = parseInt(x);
xmax = parseInt(xmax);
xmin = parseInt(xmin);
x = 400*(x-xmin)/(xmax - xmin);  
return x;
}
function get_y(y,ymax,ymin)
{
y = parseInt(y);
ymax = parseInt(ymax);
ymin = parseInt(ymin);
y = 400 - 400*(y-ymin)/(ymax - ymin);
return y;
}
}