function rpc_1(waarde)
{
var strPageURL = "http://"+document.location.host+"/rpc/client.asp"
var objXMLHTTP = new ActiveXObject('Microsoft.XMLHTTP'); 
var gegevens = "obj="+escape(waarde)                   
objXMLHTTP.open('POST',strPageURL,false);
objXMLHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")    
objXMLHTTP.send(gegevens)

var result = objXMLHTTP.responseText
var obj_result = result.split(")_(")
var inhoud = document.getElementById("menu")
var main = document.getElementById("tekst")
var plaatje = document.getElementById("plaatje")
plaatje.innerHTML =""
 
	for(x=0; x<obj_result.length; x++)
	{
 		if(x==0)
		{
		inhoud.innerHTML = "<table><thead>"+obj_result[x]+"</thead></table>"
 		}
		if(x==1)
		{
			var obj_inhoud = unescape(obj_result[x])
			var lengte = obj_inhoud.length
			var lijst = new Array(lengte) //dynamisch lengtebepaling array
			var nieuw = ""
			for(z=0; z<lengte; z++)
				{
				lijst[z] = obj_inhoud.substring(z+1,z) //string wordt per letter doorlopen
  					if(lijst[z] == "+")
					{
					lijst[z] = " "//opvullen met nieuwe waarden
 					}
				}
 				main.value = ""
			
			for(q=0; q<lengte; q++)
				{
  				nieuw = nieuw + lijst[q]  
 				}
   			main.innerHTML = nieuw //wegschrijven op de pagina
			laden()
			herstel()
 		}
	}
}

function rpc1_vervolg(id,categorie)
{

var main = document.getElementById("tekst")
var strPageURL = "http://"+document.location.host+"/rpc/client_uitvoer.asp"
var objXMLHTTP = new ActiveXObject('Microsoft.XMLHTTP'); 
var gegevens = "id="+escape(id)+"&categorie="+escape(categorie)                  
objXMLHTTP.open('POST',strPageURL,false);
objXMLHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")    
objXMLHTTP.send(gegevens)

var result = objXMLHTTP.responseText	

var obj_inhoud = unescape(result)
			var lengte = obj_inhoud.length
			var lijst = new Array(lengte) //dynamisch lengtebepaling array
			var nieuw = ""
			for(z=0; z<lengte; z++)
				{
				lijst[z] = obj_inhoud.substring(z+1,z) //string wordt per letter doorlopen
  					if(lijst[z] == "+")
					{
					lijst[z] = " "//opvullen met nieuwe waarden
 					}
				}
 				main.value = ""
			
			for(q=0; q<lengte; q++)
				{
  				nieuw = nieuw + lijst[q]  
 				}
			var patroon = new RegExp("admin/bl.asp","gi")
			var obj_uit = nieuw.replace(patroon,"")
   			main.innerHTML = obj_uit
			laden()
			herstel()
}


var beschrijving = new Array(8)
beschrijving[0] = "Titel"
beschrijving[1] = "Korte beschrijving"
beschrijving[2] = "Uitgebreide beschrijving"
beschrijving[3] = "Locatie"
beschrijving[4] = "Prijs"
beschrijving[5] = "Tijd"
beschrijving[6] = "Van"
beschrijving[7] = "Tot"

teller = 0
 
function afvangen()
{

var obj_tekst = document.getElementById("tekst")
obj_tekst.innerHTML = ""
var tabel = document.createElement("table")
tabel.className = "agendatabel"
tabel.width = "80%"
tabel.border = "0"
tabel.align = "center"
var head = document.createElement("thead")

var obj_tr = document.createElement("tr")
var obj_td = document.createElement("td")
var obj_div = document.createElement("div")
obj_div.align = "center"
var tekst = document.createTextNode("Momenteel zijn er geen agendaberichten beschikbaar...........")

obj_div.appendChild(tekst)
obj_td.appendChild(obj_div)
obj_tr.appendChild(obj_td)
head.appendChild(obj_tr)
tabel.appendChild(head)
obj_tekst.appendChild(tabel)

}

function agenda_uitvoer()
{
	 
var obj_tekst = document.getElementById("tekst")
 
 if(aantal < 0)
 {
 afvangen()
 }
 else
 {
	laden()
datum_sort(weergave)
 }
}
 
function datum_sort(weergave)
{
  
var eerste = 0
var laatste = 3 //bladeren in array: te wijzigen in andere waarde wanneer je meer of minder per pagina wilt laten zien
var hulpwaarde = 0
		  
	weergave.sort(sortering)
 
	my_tbl(weergave,eerste,laatste,hulpwaarde)
 
}


function sortering(a,b) //sortering op datum; aflopend. De datum het dichst bij de systeemdatum wordt het eerst weergegeven, dan de volgende die eer het dichst bij is enz.
{
	 
strA = a.split("|||")
strB = b.split("|||")

datA = strA[9].split("-")
datB = strB[9].split("-")

dat_aa = new Date(datA[2], datA[1], datA[0])
dat_bb = new Date(datB[2], datB[1], datB[0])

return ((dat_aa < dat_bb) ? -1 : ((dat_aa > dat_bb) ? 1 : 0))
}

function my_tbl(weergave,eerste,laatste,hulpwaarde)
{

var obj_tekst = document.getElementById("tekst")
obj_tekst.innerHTML = ""
 		
		if(laatste > weergave.length) 	//Wanneer laatste de lengte van de array overstijgt, wordt er geen 'vorige' gegenereerd.
		{						   		//Met deze conditie wordt dit afgevangen
		laatste = weergave.length
		}
		else
		{
		laatste = laatste
		}
		
		if(weergave.length > 1)//Formattering van getoonde mededeling
		{
		var nummering1 = document.createTextNode("Momenteel zijn er " +weergave.length+ " agendaonderwerpen beschikbaar")
		}
		else
		{
 		var nummering1 = document.createTextNode("Er is " +weergave.length+ " agendaonderwerp beschikbaar")
 		}
		
		var ruim = document.createTextNode("                ")
		
		var vet = document.createElement("b")
		var reeks1 = document.createTextNode("["+(eerste+1)+"--"+laatste+"]")
 		vet.appendChild(reeks1)
		 
		var tag = document.createElement("span")//centreren van de eerste regel
 		tag.setAttribute("align", "left")
		tag.style.width = "800px"
		tag.appendChild(nummering1)
		tag.appendChild(ruim) 
		tag.appendChild(vet)
		tag.style.fontFamily = "Arial"
		var ruimte = document.createElement("br")
		obj_tekst.appendChild(tag)
		obj_tekst.appendChild(ruimte)
		
		for(q=eerste; q<laatste; q++)// Uitvoer van de tabel
		{
			
   		 var obj_tabel = document.createElement("table")
		 obj_tabel.border = "0"
		 obj_tabel.className = "agendatabel"
		 obj_tabel.bordercolor="#000000"
		 obj_tabel.setAttribute("rules","groups") 
		 
		 obj_tabel.width = "100%"
		 
		 obj_tabel.id = "tabel"+teller

		 var obj_head = document.createElement("tbody")
		
		 var splits = weergave[q].split("|||")
			
			
			for(z=0; z<beschrijving.length; z++)
			{
				
				if(z <= 2) //De eerste 3 array items worden uitgevoerd
				{
					if(splits[z] != "")
					{
					var kop = document.createElement("tr")
					
  					var rij1 = document.createElement("td")
					rij1.width = "40%"
					//
					kop.style.verticalAlign= "top"
					var rij1_tekst = document.createTextNode(beschrijving[z])
					rij1.appendChild(rij1_tekst)
					kop.appendChild(rij1)
					
					var rij2 = document.createElement("td")
 					rij2.width = "60%"
					 
					rij2.innerHTML = splits[z]
 					kop.appendChild(rij2)
					}
 
					obj_head.appendChild(kop)
					if(z==0)
					{
					rij1.style.backgroundColor = "#E6E6E6"
					rij2.style.backgroundColor = "#E6E6E6"
					}
					if(z==1)//Wanneer z=1 dan wordt op die plaats iets bijgevoegd
					{
					rij2.setAttribute("width", "55%")
					var ruimte = document.createTextNode('  ')
					rij2.innerHTML = splits[z]+"    <br><a href=# onClick=\"aan(this.id,"+(teller+1)+"); return false;\" id="+-teller+">meer informatie</a>"
					rij2.appendChild(ruimte)
					}
					
					if(z==2)//plaatsing van attribuutwaarden bij het item Uitgebreide Beschrijving
					{
					kop.setAttribute("id", teller)
 					kop.style.display = "none"
					}
  				}
					
					 
 					if(z==5 && splits[z] != "--")
					{
					var kop = document.createElement("tr")
  					var rij1 = document.createElement("td")
					rij1.width = "40%"
					kop.style.verticalAlign= "top"
					var rij1_tekst = document.createTextNode(beschrijving[3])
					rij1.appendChild(rij1_tekst)
					kop.appendChild(rij1)
					
					var rij2 = document.createElement("td")
					rij2.width = "60%"
					 
					rij2.innerHTML = splits[z]
 					kop.appendChild(rij2)
					obj_head.appendChild(kop)
					}
 
					
					if(z==6 && splits[z] != "--")
					{
					var kop = document.createElement("tr")
  					var rij1 = document.createElement("td")
					rij1.width = "40%"
					kop.style.verticalAlign= "top"
					var rij1_tekst = document.createTextNode(beschrijving[4])
					rij1.appendChild(rij1_tekst)
					kop.appendChild(rij1)
					
					var rij2 = document.createElement("td")
					rij2.width = "60%"
					 
					rij2.innerHTML = splits[z]
 					kop.appendChild(rij2)
					obj_head.appendChild(kop)
					}
					
					if(z==7 && splits[z] != "--")
					{
					var kop = document.createElement("tr")
  					var rij1 = document.createElement("td")
					rij1.width = "40%"
					kop.style.verticalAlign= "top"
					var rij1_tekst = document.createTextNode(beschrijving[5])
					rij1.appendChild(rij1_tekst)
					kop.appendChild(rij1)
					
					var rij2 = document.createElement("td")
					rij2.width = "60%"
					 
					rij2.innerHTML = splits[z]
 					kop.appendChild(rij2)
					obj_head.appendChild(kop)
					}
					
					if( z==7 && splits[8] != splits[9]) //Wanneer begin- en einddatum verschillen
					{
						
					var kop = document.createElement("tr")	
					var rij1 = document.createElement("td")//begindatum
					rij1.width = "40%"
					var rij1_begindatum = document.createTextNode(beschrijving[6])
					rij1.appendChild(rij1_begindatum)
 					var rij2 = document.createElement("td")
					rij2.width = "60%"
					rij2_datumtekst = document.createTextNode(splits[8])
					
					rij2.appendChild(rij2_datumtekst)
					
						if(rij2_datumtekst.length == 8) //Beetje uitlijnen
						{
						var kolom3 = document.createTextNode('             Tot         ')
						}
						else if(rij2_datumtekst.length == 9)
						{
						var kolom3 = document.createTextNode('          Tot         ')
						}
						else if(rij2_datumtekst.length == 10)
						{
						var kolom3 = document.createTextNode('          Tot         ')
						}
						
 					rij2.appendChild(kolom3)
					
					var rij2_datumtekst = document.createTextNode(splits[9]) 
					rij2.appendChild(rij2_datumtekst)
					
					
					kop.appendChild(rij1)
					kop.appendChild(rij2)
					obj_head.appendChild(kop)
					}
					
					if(z==7 && splits[8] == splits[9])
					{
						 
					var kop = document.createElement("tr")	
					var rij1 = document.createElement("td")//begindatum
					rij1.width = "40%"
					var tekst = document.createTextNode("Op")
					rij1.appendChild(tekst)
					
					var rij2 = document.createElement("td")
					rij2.width = "60%"
					var einddatum = document.createTextNode(splits[9])
					rij2.appendChild(einddatum)
					
					kop.appendChild(rij1)
					kop.appendChild(rij2)
					obj_head.appendChild(kop)
					 
					}
 
			teller = teller +1
			
			obj_tabel.appendChild(obj_head)
 			obj_tekst.appendChild(obj_tabel)
   		}
		var obj_ruimte = document.createElement("hr")
		obj_tekst.appendChild(obj_ruimte)	
	}

if(weergave.length > 3 && hulpwaarde == 0) //te wijzigen; volgende/vorige worden pas getoond als lijst.length > laatste. De totaal(1) kan dan ook pas geïnitiliseerd worden
		{
		var label = document.createElement("span")
		label.style.fontFamily = "Arial"
		label.style.horizontalAlign = "center"
	
		var tekst = document.createTextNode("volgende")
		var link_volgende = document.createElement("a")
		link_volgende.style.horizontalAlign="center"
		link_volgende.setAttribute("href", "javascript:totaal(1)")
		link_volgende.appendChild(tekst)
		label.appendChild(link_volgende)
		obj_tekst.appendChild(label)
		}
		
		if(hulpwaarde > 0)//Formattering van vorige/volgende; op dit punt in de functie komen ze gecentreerd onder de getoonde tabel
		{
		var label = document.createElement("span")
 		label.style.fontFamily = "Arial"
			
			if(eerste > 0)
			{
  			var vorige = document.createTextNode("vorige")
 			var link_vorige = document.createElement("a")
			link_vorige.style.horizontalAlign = "center"
			link_vorige.setAttribute("href", "javascript:totaal(-1)")
			link_vorige.appendChild(vorige)
			var ruimte = document.createTextNode('              ')
			label.appendChild(link_vorige)
			label.appendChild(ruimte)
 			}
	
			if(laatste < weergave.length) 
			{
			var volgende = document.createTextNode("volgende")
			var link_volgende = document.createElement("a")
			link_volgende.setAttribute("href", "javascript:totaal(1)")
			link_volgende.appendChild(volgende)
			label.appendChild(link_volgende)
			}
			
			obj_tekst.appendChild(label)

		}//hoort bij: if(hulpwaarde > 0)				 
}
eerste = 0
laatste = 3 //te wijzigen

function totaal(offsetwaarde)
{
	
	if(offsetwaarde==1)
		{		

		eerste += 3 //te wijzigen
		laatste += 3
  //laden()
	//herstel()
		}
	else if (offsetwaarde == -1)
	{
		
	eerste -= 3 //te wijzigen
	laatste -= 3
	//laden()
	//herstel()
	}
	
vervolg(eerste,laatste)	
}

function vervolg(eerste,laatste)
{
 
var obj_tekst = document.getElementById("tekst")

obj_tekst.innerHTML = "" //schoonpoetsen van de pagina
window.scrollTo(0,0)
var hulpwaarde = 1 

my_tbl(weergave,eerste,laatste,hulpwaarde)//terug naar my_tbl; de parameters hebben nu nieuwe waarden gekregen (eerste,laatste,hulpwaarde)
}

function aan(waarde,waarde_1)
{
	 
var obj = document.getElementById(waarde_1)
obj.style.display = "inline"

var el = document.getElementById(waarde)
el.outerHTML= "<className=obj_link font face=Arial, Helvetica, sans-serif><a href=# id="+waarde+" onClick=\"uit("+waarde+","+waarde_1+");return false;\">minder informatie</a></font>"
}
 
function uit(waarde,waarde_1)
{
var obj1 = document.getElementById(waarde)
obj1.outerHTML= "<className=obj_link font face=Arial, Helvetica, sans-serif><a href=# id="+waarde+" onClick=\"aan("+waarde+","+waarde_1+");return false;\">meer informatie</a></font>"
var obj2  = document.getElementById(waarde_1)
obj2.style.display = "none"
}