var maanden=new Array('Januari','Februari','Maart','April','Mei','Juni','Juli','Augustus','September','Oktober','November','December');
var maanden2=new Array('januari','februari','maart','april','mei','juni','juli','augustus','september','oktober','november','december');
var tekst = "";
var tekst1 = "";

// format: dag,maand,jaar,verloopdatum,predikant,bijzonderheden,aankondiging,dag,verlooptijd
// entry wordt niet meer getoond als de huidige datum later ligt dan de verloopdatum.

var rooster = [
[4,9,2011,20110904,'dr. K.J. Holtzapffel',' ',' ','zondag',12],
[11,9,2011,20110911,'dr. T.R. Barnard, mw. dr. C.M.G. Berkvens-Stevelinck, dr. K.J. Holtzapffel','Openingszondag<br>Gelegenheid tot doop<br>Kinderkring in de kerk aanwezig','Tijdens deze dienst is er gelegenheid tot dopen.','zondag',12],
[18,9,2011,20110918,'dr. T.R. Barnard','Vredeszondag<br>Maaltijdviering','Tijdens deze Vredeszondagdienst zal een avondmaalsviering worden gehouden.','zondag',12],
[25,9,2011,20110925,'dr. K.J. Holtzapffel','Liturgie II',' ','zondag',12],
[2,10,2011,20111002,'dr. T.R. Barnard','<i>Noach komt thuis</i>',' ','zondag',12],
[9,10,2011,20111009,'dr. K.J. Holtzapffel','Bloemenzondag<br>Gezinsdienst<br>Kinderkring in de kerk aanwezig<br><i>Jacob komt thuis</i>',' ','zondag',12],
[16,10,2011,20111016,'mw. dr. C.M.G. Berkvens-Stevelinck','Gelegenheid tot doop<br><i>Naomi komt thuis met Ruth</i>','Tijdens deze dienst is er gelegenheid tot dopen.','zondag',12],
[23,10,2011,20111023,'dr. E.H. Cossee','Liturgie II',' ','zondag',12],
[30,10,2011,20111030,'dr. T.R. Barnard',' ',' ','zondag',12],
[6,11,2011,20111106,'dr. Th.M. van Leeuwen',' ',' ','zondag',12],
[13,11,2011,20111113,'mw. dr. C.M.G. Berkvens-Stevelinck','Caminodienst<br>Kinderkring in de kerk aanwezig',' ','zondag',12],
[20,11,2011,20111120,'dr. K.J. Holtzapffel','Eeuwigheidszondag<br>Maaltijdviering','Tijdens deze dienst zal er een Avondmaalsviering worden gehouden.','zondag',12],
[27,11,2011,20111127,'dr. T.R. Barnard','1e Advent<br>Gelegenheid tot doop<br>Kinderkring in de kerk aanwezig','Tijdens deze eerste Advent is er gelegenheid tot dopen.','zondag',12],
[4,12,2011,20111204,'dr. K.J. Holtzapffel','2e Advent<br>Cantatedienst<br>J.S. Bach: Cantate BWV 61 &quot;Nun Komm, der Heiden Heiland&quot;','Tijdens deze dienst zal cantate BWV 61 (J.S. Bach) ten gehore worden gebracht.','zondag',12],
[11,12,2011,20111211,'ds. D.L.H. Lunenburg-Moret','3e Advent<br>Kinderkring in de kerk aanwezig',' ','zondag',12],
[18,12,2011,20111218,'dr. K.J. Holtzapffel','4e Advent<br>Kerstspel Kinderkring','Tijdens deze vierde Advent zal het kerstspel van de Kinderkring worden opgevoerd.','zondag',12],
[24,12,2011,20111224,'mw. dr. C.M.G. Berkvens-Stevelinck','Kerstnachtdienst (22:00, samenzang vanaf 21:30)','Deze kerstnachtdienst begint om 22:00 (samenzang vanaf 21:30).','zaterdag',23],
[25,12,2011,20111225,'dr. T.R. Barnard','Kerstmis<br>Samenzang vanaf 10:00',' ','zondag',12],
[31,12,2011,20111231,'dr. K.J. Holtzapffel','Oudejaarsdienst (17:00)','Deze oudejaarsdienst begint om 17:00.','zaterdag',18],
[1,1,2012,20120101,'dr. K.J. Holtzapffel','Nieuwjaarsdienst (11:00)','Deze nieuwjaarsdienst begint om 11:00.','zondag',12],
[8,1,2012,20120108,'ds. F. Knoppers',' ',' ','zondag',12],
[15,1,2012,20120115,'prof. dr. P.J.A. Nissen','Oecumenische Zondag<br>Kinderkring in de kerk aanwezig',' ','zondag',12],
[22,1,2012,20120122,'dr. T.R. Barnard','Gelegenheid tot doop','Tijdens deze dienst is er gelegenheid tot dopen.','zondag',12],
[29,1,2012,20120129,'dr. K.J. Holtzapffel','Liturgie II<br>Gelegenheid tot doop','Tijdens deze dienst is er gelegenheid tot dopen.',' ','zondag',12],
[5,2,2012,20120205,'N.J. Cuperus en mw. dr. C.M.G. Berkvens-Stevelinck','Dienst in de Doopsgezinde Kerk<br>Werelddiaconaatszondag<br>Maaltijdviering','Deze dienst wordt gehouden in de Doopsgezinde kerk. Tijdens deze Werelddiaconaatszondag zal er een Avondmaalsviering worden gehouden.','zondag',12],
[12,2,2012,20120212,'dr. J. Magliano-Tromp','Kinderkring in de kerk aanwezig',' ','zondag',12],
[19,2,2012,20120219,'dr. K.J. Holtzapffel','Gelegenheid tot doop<br><i>over Henri Nouwen en de verloren zoon</i>','Tijdens deze dienst is er gelegenheid tot dopen.','zondag',12],
[26,2,2012,20120226,'dr. T.R. Barnard','Liturgie II<br><i>Het Vaderhuis heeft vele woningen</i>',' ','zondag',12],
[4,3,2012,20120304,'mw. dr. C.M.G. Berkvens-Stevelinck','Liturgie II',' ','zondag',12],
[11,3,2012,20120311,'dr. T.R. Barnard','Liturgie II<br>Kinderkring in de kerk aanwezig<br>Cantatedienst<br>J.S. Bach: Cantate BWV 54 &quot;Widerstehe doch der Sunde&quot;','Tijdens deze dienst zal cantate BWV 54 (J.S. Bach) ten gehore worden gebracht.','zondag',12],
[18,3,2012,20120318,'ds. M.F. de Vries','Liturgie II',' ','zondag',12],
[25,3,2012,20120325,'mw. dr. C.M.G. Berkvens-Stevelinck','Liturgie II<br>Gelegenheid tot doop','Tijdens deze dienst is er gelegenheid tot dopen.','zondag',12],
[1,4,2012,20120401,'dr. T.R. Barnard, mw. dr. C.M.G. Berkvens-Stevelinck, dr. K.J. Holtzapffel','Palmzondag<br>Liturgie II<br>Kinderkring in de kerk aanwezig',' ','zondag',12],
[5,4,2012,20120405,'dr. K.J. Holtzapffel','Witte Donderdag (20:00)<br>Liturgie II<br>maaltijdviering','Deze Witte Donderdagdienst begint om 20:00. Tijdens deze dienst zal een Avondmaalsviering worden gehouden.','donderdag',21],
[6,4,2012,20120406,'dr. T.R. Barnard','Goede Vrijdag (20:00)<br>Liturgie II','Deze Goede Vrijdagdienst begint om 20:00.','vrijdag',21],
[8,4,2012,20120408,'mw. dr. C.M.G. Berkvens-Stevelinck','Pasen<br>Liturgie II',' ','zondag',12],
[15,4,2012,20120415,'dr. E.H. Cossee',' ',' ','zondag',12],
[22,4,2012,20120422,'dr. K.J. Holtzapffel',' ',' ','zondag',12],
[29,4,2012,20120429,'mw. dr. C.M.G. Berkvens-Stevelinck','Liturgie II',' ','zondag',12],
[6,5,2012,20120506,'dr. M.D. Koster',' ',' ','zondag',12],
[13,5,2012,20120513,'mw. dr. C.M.G. Berkvens-Stevelinck','Kinderkring in de kerk aanwezig<br>Cantatedienst<br>J.S. Bach: Cantate BWV 86 &quot;Wahrlich, wahrlich, ich sage euch&quot;','Tijdens deze dienst zal cantate BWV 86 (J.S. Bach) ten gehore worden gebracht.','zondag',12],
[20,5,2012,20120520,'dr. K.J. Holtzapffel','Gelegenheid tot doop<br><i>ver van huis en thuis in de poezie</i>','Tijdens deze dienst is er gelegenheid tot dopen.','zondag',12],
[27,5,2012,20120527,'dr. T.R. Barnard','Liturgie II<br><i>waar(om) voelen wij ons thuis</i>',' ','zondag',12],
[3,6,2012,20120603,'mw. dr. C.M.G. Berkvens-Stevelinck','<i>thuiskomen in de muziek</i>',' ','zondag',12],
[10,6,2012,20120610,'dr. T.R. Barnard','Gezinsdienst',' ','zondag',12],
[17,6,2012,20120617,'ds. R.L. Dewandeler',' ',' ','zondag',12],
[24,6,2012,20120624,'dr. K.J. Holtzapffel','Liturgie II<br>Gelegenheid tot doop','Tijdens deze dienst is er gelegenheid tot dopen.','zondag',12],
[1,7,2012,20120701,'mw. dr. C.M.G. Berkvens-Stevelinck','Gelegenheid tot doop','Tijdens deze dienst is er gelegenheid tot dopen.','zondag',12],
[8,7,2012,20120708,'dr. K.J. Holtzapffel','Wisseldiensten - Doopsgezinde Kerk','Deze dienst zal plaatsvinden in de Doopsgezinde Kerk.','zondag',12],
[15,7,2012,20120715,'Doopsgezinde predikant','Wisseldiensten - Remonstrantse Kerk',' ','zondag',12],
[22,7,2012,20120722,'mw. dr. C.M.G. Berkvens-Stevelinck','Wisseldiensten - Doopsgezinde Kerk','Deze dienst zal plaatsvinden in de Doopsgezinde Kerk.','zondag',12],
[29,7,2012,20120729,'Doopsgezinde predikant','Wisseldiensten - Remonstrantse Kerk',' ','zondag',12],
[5,8,2012,20120805,'dr. T.R. Barnard','Wisseldiensten - Doopsgezinde Kerk','Deze dienst zal plaatsvinden in de Doopsgezinde Kerk.','zondag',12],
[12,8,2012,20120812,'ds. H. Cuperus','Wisseldiensten - Remonstrantse Kerk',' ','zondag',12],
[19,8,2012,20120819,'mw. dr. C.M.G. Berkvens-Stevelinck','Gelegenheid tot doop','Tijdens deze dienst is er gelegenheid tot dopen.','zondag',12],
[26,8,2012,20120826,'dr. T.R. Barnard',' ',' ','zondag',12],
[2,9,2012,20120902,'ds. A.G. Ochtman-de Boer',' ',' ','zondag',12],
[9,9,2012,20120909,'dr. T.R. Barnard, mw. dr. C.M.G. Berkvens-Stevelinck, dr. K.J. Holtzapffel','Openingszondag',' ','zondag',12]
];

var vandaag = new Date();
var dag = vandaag.getDate();
var maand = vandaag.getMonth();
var uren = vandaag.getHours();
var maand1 = maand+1;
if (maand1 < 10)
{
  maand1 = "0" + maand1;
}
if (dag < 10)
{
  dag = "0" + dag;
}
var jaar = vandaag.getYear();
if (jaar < 1900)
{
  jaar += 1900;
}
var refdatum = jaar + "" + maand1 + "" + dag;


function maandstart(month,year) {
  tekst1="<tr><th colspan=3 align=left>&nbsp;<br>&nbsp;"+maanden[month-1]+" "+year+"</th></tr>\n";
  return tekst1;
}

function entry(day,pred,bijz) {
  tekst1="<tr valign=top><td>&nbsp;"+day+"</td><td>"+pred+"</td><td>"+bijz+"</td></tr>\n";
  return tekst1;
}


function printdiensten() {

tekst = "";
var firstpass = true;                                                 // de allereerste entry is logischerwijze de eerste entry van de maand
var nextdienst = true;                                                // de eerste entry die moet worden afgedrukt is de eerstkomende dienst
var maxaantal = 20;                                                   // de hoeveelheid agenda-entries uit de lijst die worden afgedrukt ivm. pagina-layout
var aantalafgedrukt = 0;                                              // tellertje om bij te houden hoeveel entries er al zijn afgedrukt

  for(var teller = 0; teller < rooster.length; teller++)              // ga alle agenda-entries af
  {
    if (refdatum<=rooster[teller][3])                                 // kijk of de entry afgedrukt moet worden of al verlopen is
    {
      if (refdatum==rooster[teller][3])
        if (uren>=rooster[teller][8])
           teller++;
      if (nextdienst)
      {
         tekst += "<table border=0 cellspacing=4 cellpadding=0 width=100%>";
         tekst += "<tr><td colspan=3><br></td></tr>";
         tekst += "<tr><td height=37 colspan=3><h3>Preekbeurten komende periode:</h3></td></tr>";

         teller++;
         nextdienst = false;
      }
      if (firstpass)                                                  // als dit de eerste entry deze maand is
      {
        tekst += maandstart(rooster[teller][1],rooster[teller][2]);   // druk dan eerst een maandheader af
        firstpass = false;
      }

      tekst += entry(rooster[teller][0],rooster[teller][4],rooster[teller][5]);
      aantalafgedrukt++;

      if (aantalafgedrukt>=maxaantal)                                 // druk alleen de eerste maxaantal entries uit de lijst af
      {
        teller = rooster.length;
      }

      if (teller+1 < rooster.length)                                  // als deze entry niet de laatste in de lijst is
      {
        if ((rooster[teller][1] != rooster[teller+1][1]) || (rooster[teller][2] != rooster[teller+1][2]))  // kijk of de volgende entry ook in deze maand valt
        {
          firstpass = true;
        }
      }
    }
  }

  tekst += "</table>";
  return tekst;
}

function frontpage() {

tekst = "";
var firstpass = true;                                                 // de allereerste entry is logischerwijze de eerste entry van de maand
var nextdienst = true;                                                // de eerste entry die moet worden afgedrukt is de eerstkomende dienst

  for(var teller = 0; teller < rooster.length; teller++)              // ga alle agenda-entries af
  {
    if (refdatum<=rooster[teller][3])                                 // kijk of de entry afgedrukt moet worden of al verlopen is
    {
      if (nextdienst)
      {
         if (refdatum==rooster[teller][3])
           {
             if (uren<rooster[teller][8])
             tekst = "Vandaag ("+rooster[teller][0]+" "+maanden2[rooster[teller][1]-1]+") zal <b>"+rooster[teller][4]+"</b> voorgaan in de dienst.<br>";
             else
             {
               teller++;
               tekst = "Komende "+rooster[teller][7]+" ("+rooster[teller][0]+" "+maanden2[rooster[teller][1]-1]+") zal <b>"+rooster[teller][4]+"</b> voorgaan in de dienst.<br>";
             }
           }
         else
           tekst = "Komende "+rooster[teller][7]+" ("+rooster[teller][0]+" "+maanden2[rooster[teller][1]-1]+") zal <b>"+rooster[teller][4]+"</b> voorgaan in de dienst.<br>";
         tekst += rooster[teller][6]                                  // eventuele verdere aankondiging/bijzonderheden
         nextdienst = false;
         teller = rooster.length;
      }
    }
  }

  return tekst;
}