var arrConcerts = Array(	Array(	'20020921', 
								Array( 'Cantate "Alles was ihr tut"', 'BuxWv 4', 'db' ),
								Array( 'Dorische Tocatta en Fuga', 'BWV 538', 'jsb' ),
								Array( 'Preludium in kleine g terts', '', 'ft' ) ),
						Array(	'20030308',
								Array( 'Allabreve in D-dur', 'BWV 589', 'jsb' ),
								Array( 'Cantate "Ich liege und schlafe"', '', 'nb' ),
								Array( 'Fuge in B-dur über B.A.C.H.', '', 'jlk' ),
								Array( 'Koraal + Praeambulum supra "Erbarme dich mein, o Herre Gott"', '', 'jlk' ),
								Array( 'Recitatief en Aria "Schlummert ein ihr matten Augen" uit Cantate "Ich habe genug"', 'BWV 82 (deels)', 'jsb' ) ),
						Array( '20030621',
								Array( 'Cantate "O Jesu Christ, meins Lebens Licht"', 'BWV 118', 'jsb' ),
								Array( 'Crucifixus a 6', '', 'al' ),
								Array( 'Motet "Der Gerechte kommt um"', '', 'jsb', 'zonder BWV-nr, bewerking door Bach van het motet "Tristis est anima mea" van Johann Kuhnau (1660-1722)' ),
								Array( 'Preludium en fuga in G-groot', 'BWV 541', 'jsb' ),
								Array( 'Preludium, fuga en ciacona in C-groot', 'BuxWV 137', 'db' ) ),
						Array( '20030927',
								Array( 'Cantate "Nach dir, Herr, verlanget mich"', 'BWV 150', 'jsb' ),
								Array( 'Concert voor twee violen', 'BWV 1043', 'jsb' ),
								Array( 'Praeludium en fuga in h', 'BWV 544', 'jsb' ) ),
						Array( '20040313',
								Array( 'Cantate "Ich elender Mensch wer wird mich erlösen', 'BWV 48', 'jsb' ),
								Array( 'Crucifixus a 8', '', 'al' ),
								Array( 'Fantasia in G-Dur', 'BWV 572', 'jsb' ),
								Array( 'Vater unser im Himmelreich', '', 'gb' ) ),
						Array( '20040626',
								Array( 'Cantate "Erhalt uns Herr, bei deinem Wort"', 'BuxWV 27', 'db' ),
								Array( 'Concert naar Vivaldi', 'BWV 596', 'jsb' ),
								Array( 'Koraal "Sei Lob und Preis mit Ehren"', 'BWV 390', 'jsb' ),
								Array( 'Koraalbewerking van Cantate "Erhalt uns Herr, bei deinem Wort"', 'BuxWV 185', 'db' ),
								Array( 'Motet "Sei Lob und Preis mit Ehren"', 'BWV 231', 'jsb' ) ),
						Array( '20040925',
								Array( 'Cantate "Das neugeborne Kindelein"', 'BuxWV 13', 'db' ),
								Array( 'Cantate "Ich bin der Auferstehung"', 'BuxWV 44', 'db' ),
								Array( 'Cantate "Nun komm der Heiden Heiland"', 'BWV 61', 'jsb' ),
								Array( 'Koraalvoorspel "Nun komm der Heiden Heiland"', 'BuxWV 211', 'db' ),
								Array( 'Koraalvoorspel "Nun komm der Heiden Heiland"', 'BWV 599', 'jsb' ) ),
						Array( '20050305',
								Array( 'Koraalvoorspel "Schmücke dich, o liebe Seele"', 'BWV 654', 'jsb' ),
								Array( 'Preludium in c-Moll', 'BWV 546', 'jsb' ),
								Array( '"Kyrie" uit de Missa à 2 Violini, 2 Viole, Bassono 4 Voci, Cont.', '', 'jhw' ),
								Array( 'Koraalvoorspel "Ach Gott, erhör mein Seufzen"', '', 'jlk' ),
								Array( 'Fuga in Bes-Dur', '', 'jlk' ),
								Array( 'Cantate "Der Herr denket an uns"', 'BWV 196', 'jsb' ) ),
						Array( '20050625',
								Array( 'Dubbelmotet "Ich lasse dich nicht, du segnest mich denn"', 'BWV Anhang 159', 'jsb' ),
								Array( 'Fantasia sopra "Jesu meine Freude"', 'BWV 713', 'jsb' ),
								Array( 'Koraal uit cantate BWV 64', 'BWV 64', 'jsb' ),
								Array( 'Dubbelkorig motet "Das ist meine Freude"', '', 'jlb' ),
								Array( 'Preludium in G-groot', '', 'nb' ),
								Array( 'Cantate "Die Zeit meines Abschieds ist vorhanden"', '', 'nb' ) ),
						Array( '20050924',
								Array( 'Dubbelmotet "Singet dem Herrn ein neues Lied"', '', 'jp' ),
								Array( 'Pastorale in F-groot', 'BWV 590', 'jsb' ),
								Array( 'Dubbelkorig motet "Nun danket alle Gott"', '', 'jp' ),
								Array( 'Koraalvoorspel "Allein Gott in de Höh\' sei Ehr"', 'BWV 711', 'jsb' ),
								Array( 'Koraalvoorspel "Allein Gott in de Höh\' sei Ehr"', 'BWV 717', 'jsb' ),
								Array( 'Cantate "Herr, deine Augen sehen nach dem Glauben"', 'BWV 102', 'jsb' ) ),
						Array( '20060304',
								Array( '"Passacaglia" in d-Moll', 'BuxWV 161', 'db' ),
								Array( 'Missa Brevis', 'BuxWV 114', 'db' ),
								Array( 'Koraalbewerking "Was Gott tut das ist wohlgetan"', 'BWV 1116', 'jsb' ),
								Array( 'Cantate "Nimm was dein ist und gehe hin"', 'BWV 144', 'jsb' ) ),
						Array( '20060527',
								Array( '"Ciacona" in e-Moll', 'BuxWV 160', 'db' ),
								Array( 'Cantate "Du aber Daniel, gehe hin"', 'TWV 4-17', 'gpt' ),
								Array( 'Koraalvoorspel "Schmücke dich, o liebe Seele"', 'BWV 654', 'jsb' ),
								Array( 'Cantate "Gottes Zeit ist die allerbeste Zeit" (Actus Tragicus)', 'BWV 106', 'jsb' ) ),
						Array( '20060930',
								Array( '"Miserere" in c-Moll', 'ZWV 577', 'jdz' ),
								Array( 'Koraalvoorspel :O mensch, bewein dein Sü groß"', 'BWV 622', 'jsb' ),
								Array( '"Messe" in g-Moll', 'BWV 235', 'jsb' ) ),
						Array( '20070324',
								Array( '"Missa Brevis"', '', 'al' ),
								Array( 'Cantate "Herr, gehe nicht ins Gericht"', 'BWV 105', 'jsb' ),
								Array( 'Orgelwerken', '', 'db' ) ),
						Array( '20070922',
								Array( 'Preludium en fuga in fis-klein', 'BuxWV 146', 'db' ),
								Array( 'Cantate "Tönet ihr Pauken, erschallet Trompeten"', 'BWV 214', 'jsb' ) ),
						Array( '20080405',
								Array( 'Motet "Tristis est anima mea"', '', 'jk' ),
								Array( 'Koraalbewerking "Erbarm Dich mein, o Herre Gott"', 'BWV 721', 'jsb' ),
								Array( 'Motet "Der gerechte kommt um"', 'BWV deest', 'jsb' ),
								Array( 'Einleitung und Fuge aus Kantate BWV 21 "Ich hatte viel Bekümmernis" (bewerking)', '', 'fl' ),
								Array( 'Cantate "Gott sei mir gnädig"', '', 'jk' ) ),
						Array( '20080621',
								Array( '"Alleluia" uit Cantate BuxWV 43', 'BuxWV 43', 'db' ),
								Array( '"Fuga" in c-Moll', 'BWV 537', 'jsb' ),
								Array( '"Jubilate Deo" à 8', '', 'gg' ),
								Array( '"Canzona dopo l'Epistola"', '', 'gf' ),
								Array( 'Cantate "Also hat Gott die Welt geliebt"', 'BWV 68', 'jsb' ) ) )

var arrComposers = Array(	Array( '', '', '' ), 
							Array( 'jlb', 'Johann Ludwig Bach', '1677-1741' ), 
							Array( 'jsb', 'Johann Sebastian Bach', '1685-1750' ), 
							Array( 'gb', 'Georg Böhm', '1661-1733' ), 
							Array( 'nb', 'Nicolaus Bruhns', '1665-1697' ), 
							Array( 'db', 'Dietrich Buxtehude', '1637-1707' ), 
							Array( 'gf', 'Gerólamo Francescobaldi', '1583-1643' ), 
							Array( 'gg', 'Giovanni Gabrieli', 'ca. 1557-1612' ), 
							Array( 'fl', 'Franz Liszt', '1811-1886' ), 
							Array( 'jlk', 'Johann Ludwig Krebs', '1713-1783' ), 
							Array( 'jk', 'Johann Kuhnau', '1660-1722' ),
							Array( 'al', 'Antonio Lotti', 'ca. 1667-1740' ),
							Array( 'jp', 'Johann Pachelbel', '1653-1706' ), 
							Array( 'gpt', 'Georg Philipp Telemann', '1681-1767' ),
							Array( 'ft', 'Franz Tunder', '1614-1667' ),
							Array( 'jhw', 'Johann Hugo von Wilderer', '1670-1724' ),
							Array( 'jdz', 'Jan Dismas Zelenka', '1679-1745' ) )

var intLastConcert = arrConcerts.length - 1;
var intConcert;
var intLastComposer = arrComposers.length - 1;
var intComposer;

var objContentDiv;

function getAsDate( p_strDate ) {
	return p_strDate.substring( 6, 8 ) + '-' + p_strDate.substring( 4, 6 ) + '-' + p_strDate.substring( 0, 4 )
}

function writeListComposer() {
	var strContent = '<a name="top"></a><h1>Muzikaal overzicht, gerangschikt naar componist</h1>\n';
	//alert( 'writeListComposer' );
	strContent += '<p><a href="JavaScript: writeListConcert()">Klik hier voor een overzicht, gesorteerd op datum van uitvoering</a></p>'
	for ( intComposer = 1; intComposer <= intLastComposer; intComposer++ ) {
		strContent += '<h2>'+ arrComposers[intComposer][1] + ' (' + arrComposers[intComposer][2] + ')</h2>\n'
		strContent += '<ul>'
		for ( intConcert = 0 ; intConcert <= intLastConcert; intConcert++ ) {
			var intLastWork = arrConcerts[intConcert].length;
			for ( var intWork = 1; intWork < intLastWork; intWork++ ) {
				//strContent += ( '<li>' + arrConcerts[intConcert][intWork][2] + ': ' + arrComposers[intComposer][0] )
				if ( arrConcerts[intConcert][intWork][2] == arrComposers[intComposer][0] ) {
					strContent += ( '<li>' + getAsDate( arrConcerts[intConcert][0] ) + ': ' + arrConcerts[intConcert][intWork][0] + ( ( arrConcerts[intConcert][intWork][1] != '' ) ? ' (' + arrConcerts[intConcert][intWork][1] + ')' : '' ) + '</li>' )
				}
			}
		}
		strContent += '</ul><a href="#top">^</a>'
	}
	strContent += ' <a href="JavaScript: writeListConcert()">Klik hier voor een overzicht, gesorteerd op datum van uitvoering</a>'
	//alert( strContent );
	objContentDiv.innerHTML = strContent;
}

function writeListConcert() {
	var strContent = '<a name="top"></a><h1>Muzikaal overzicht, gerangschikt naar uitvoering</h1>\n';
	strContent += '<p><a href="JavaScript: writeListComposer()">Klik hier voor een overzicht, gesorteerd op componist</a></p>'
	for ( intConcert = 0; intConcert <= intLastConcert; intConcert++ ) {
		var intLastWork = arrConcerts[intConcert].length;
		strContent += '<h2>'+ getAsDate( arrConcerts[intConcert][0] ) + '</h2>\n'
		strContent += '<ul>'
		for ( var intWork = 1; intWork < intLastWork; intWork++ ) {
			for ( intComposer = 0; intComposer < intLastComposer; intComposer++ ) {
				if ( arrConcerts[intConcert][intWork][2] == arrComposers[intComposer][0] ) {
					strContent += ( '<li>' + arrConcerts[intConcert][intWork][0] + ( ( arrConcerts[intConcert][intWork][1] != '' ) ? ' (' + arrConcerts[intConcert][intWork][1] + ')' : '' ) + '<br>' + arrComposers[intComposer][1] + ( (arrComposers[intComposer][2]!='') ? ' (' + arrComposers[intComposer][2] + ')' : '' ) + '</li>' )
				}
			}
		}
		strContent += '</ul><a href="#top">^</a>'
	}
	strContent += ' <a href="JavaScript: writeListComposer()">Klik hier voor een overzicht, gesorteerd op componist</a> '
	objContentDiv.innerHTML = strContent;
}

function init() {
	//alert( 'init' );
	objContentDiv = document.getElementById( 'content' );
	writeListConcert();
	this.focus();
}