// Shared JavaScript code for the website
//	http://www.rikyvanlint.nl
//
	var internal;
	var local;
	var routine;
	var UpcomeAction;
//
// Display internal information (only for Riky and Marc).
//
	internal = false;
	internal = true;
	

// Defineerd alle verwijzingen naar de datafile
//
// VARIABELEN
//
	if (	location.href.indexOf("www",0) == -1 )	{ local = true; }
		else	{ local = false; };
	www = !local
	if ( www )	{ internal = false; };
	work = false;

//
// INDEX - variabelen
// Variabelen voor Menustructuur.
	Menu = new Array();
	Contfile = new Array();
	Nicklabel = new Array();
	Selmenu = new Array();
//
// BEELD - variabelen
//
	var NrMax = 0 ;
	var NrFMax = 0 ;
	var NrCur = 0 ;
	var nummer = 0 ;

	NRarray = new Array();
	IMGarray = new Array();
	NAMEarray = new Array();
	TKarray = new Array();
	STarray = new Array();
	STYarray = new Array();
	STMarray = new Array();
	STDarray = new Array();
	MATarray = new Array();
	HOOGarray = new Array();
	PRIJSBronsarray = new Array();
	PRIJSKeramiekarray = new Array();

//
// ACTIE - variabelen
//
	EYarray = new Array();
	EMarray = new Array();
	EDarray = new Array();
	EAarray = new Array();
	var NrMax = 0 ; // Nodig voor printen van internetprijzen in Portal
	var NrMaxA = 0 ;

	var UpcomAction = "Geen";
	var UpToday = false;

	now = new Date();
	day = now.getDate() ;
	month = now.getMonth()+1 ;
	year = now.getYear() ;
	// Milenium bugje...
	year=year+0;
	// Netscape only.
	if (year<1900) year=year+1900;

	nextevent = false;


//
// Algemeen - variabelen
//

	var nr;
	var label;
	var url;

//
//
// Initalisatie
//
//
// Init de Menu array
	for (i=0 ; i<1000; i++) { Menu[i] = null };

//
// Load_Beeld is de routine die aangeroepen wordt
//	- Beeldnummer
//	- Pre-view plaatjenummer
//	- Naam beeld
//	- Y=Te koop, N=Privaat bezit
//	- F=Nieuwe foto's, B=Nieuw beeld, O='Oud beeld'
//	- Pub Jaar
//	- Pub Maand
//	- Pub Dag
//	- B=Brons, K=Keramiek
//	- Lengte in cm
//	- Prijs van Brons
//	- Prijs van Keramiek
// 
// Nieuwe fotos blijven 2 maanden staan.	// Nieuwe beelden blijven 3 maanden staan.
	NewPicAge=60;
	NewStatAge=90;
//
// Preview 250 hoog
// Foto's  600 hoog
// Verandering & commentaar

//
//
//
//	Load_Beeld2( 1, 12,	"Courage",			"N","F",2002, 7, 1,"B",74,0,0);
//	Load_Beeld2( 2,  8,	"Eternal Love",		"N","F",2002, 7, 1,"B",55,0,0);
//	Load_Beeld2( 3, 10,	"Wake Up",			"N","F",2002, 7, 1,"B",61,3750,0);
	Load_Beeld2( 4, 17,	"Dreaming",			"N","F",2002, 7, 1,"B",47,0,0);
	Load_Beeld2( 5,  6,	"Jeugd",			"N","O",2001,11, 5,"B",36,950,0); // 1-4 Nieuwe prijs
//	Load_Beeld2( 6,  1,	"Blown by the wind","N","O",2001,1,1,"B",46,0,0);
//	Load_Beeld2( 7,  1,	"Bescherming",		"N","O",2001, 1, 1,"B",35,0,0);
	Load_Beeld2( 8,  9,	"Papillon",			"N","O",2001,11, 5,"B",47,750,0);
	Load_Beeld2( 9, 17,	"Good Morning",		"N","F",2002, 7, 1,"B",32,650,0);
//	Load_Beeld2( 10, 1,	"The Family",		"N","O",2001, 1, 1,"B",48,2250,0);

//	Load_Beeld2( 11,18,	"De baadster",		"N","F",2002, 7, 1,"B",75,3950,0);
//	Load_Beeld2( 12,15,	"Je t'aime",		"N","F",2002, 7, 1,"B",40,650,0);
//	Load_Beeld2( 13, 1,	"Slapend kind",		"N","O",2001, 1, 1,"B",15,950,0);
//	Load_Beeld2( 14,13,	"True love",		"N","F",2002, 7, 1,"B",41,2250,0);
//	Load_Beeld2( 15, 1,	"Watching",			"N","O",2001, 1, 1,"K",61,0,0);
//	Load_Beeld2( 16, 1,	"Urk",				"N","O",2001, 1, 1,"B",25,1550,0);
	Load_Beeld2( 17,10,	"Largo",			"N","F",2002, 7, 1,"B",60,4250,0);
//	Load_Beeld2( 18, 1,	"De danser",		"N","O",2001, 6,21,"B",70,1850,0);
//	Load_Beeld2( 19, 1,	"Opdracht",			"N","O",2001, 1, 1,"B",49,0,0);
//	Load_Beeld2( 20, 1,	"Opdracht",			"N","O",2001, 1, 1,"B",48,0,0);

//	Load_Beeld2( 21, 1,	"Alliance",			"N","O",2001, 1, 1,"B",47,0,0);
//	Load_Beeld2( 22, 1,	"Opdracht",			"N","O",2001, 1, 1,"B",40,0,0);
//	Load_Beeld2( 23, 1,	"Opdracht",			"N","O",2001, 1, 1,"B",40,0,0);
//	Load_Beeld2( 24, 1,	"Brons, heerlijk",	"N","O",2001, 1, 1,"B",30,0,0);
//	Load_Beeld2( 25, 1,	"Walking",			"N","O",2001, 1, 1,"B",40,0,0);
//	Load_Beeld2( 26, 1,	"Vrouw met schouderdoek","N","O",2001, 1, 1,"K",30,0,0);
//	Load_Beeld2( 27, 1,	"Pas de deux",		"N","O",2001, 1, 1,"B",40,0,0);
//	Load_Beeld2( 28, 1,	"Naakt",			"N","O",2001, 1, 1,"B",40,0,0);
	Load_Beeld2( 29, 8,	"Meisje aan de vijver","Y","F",2002, 5, 11,"B",51,4250,0);
//	Load_Beeld2( 30, 1,	"Vrouw met stola",	"N","O",2001, 1, 1,"K",60,0,0);

//	Load_Beeld2( 31, 1,	"Heracles",			"N","O",2001, 1, 1,"K",75,0,0);
//	Load_Beeld2( 32, 1,	"Opdracht",			"N","O",2001, 1, 1,"B",55,0,0);
//	Load_Beeld2( 33, 9,	"Knielende vrouw",	"N","O",2001, 5,14,"K",61,0,884); // 14-5 Nieuwe foto
//	Load_Beeld2( 34, 1,	"Rustende",			"N","O",2001, 1, 1,"K",60,0,0);

//	Load_Beeld2( 35, 1,	"Moonlight",		"N","F",2002, 1,19,"B",70,2450,884);

//	Load_Beeld2( 36, 1,	"Femke",			"N","O",2001, 1, 1,"K",35,0,0);
//	Load_Beeld2( 37, 1,	"Jongen",			"N","O",2001, 1, 1,"K",30,0,0);
//	Load_Beeld2( 38, 1,	"Pjotter",			"N","O",2001, 1, 1,"K",30,0,0);
//	Load_Beeld2( 39, 1,	"De sprong",		"N","O",2001, 2,20,"B",31,406,0);  // 20- 2 Nieuw beeld
	Load_Beeld2( 40, 1,	"Wind",				"N","F",2002, 1,19,"B",35,0,0);

//	Load_Beeld2( 41, 1,	"Carpe Diem",		"N","O",2001, 2,20,"B",52,0,0); // 1-4 Uitverkocht
//	Load_Beeld2( 42, 4,	"Vrouw",			"N","O",2001, 2,20,"K",38,0,134);	// 20- 2 Nieuw beeld
//	Load_Beeld2( 43, 1,	"Danser (Klein)",	"N","O",2001, 2,20,"B",38,451,0);	// 20- 2 Nieuw beeld
//	Load_Beeld2( 44, 1,	"Opdracht",			"N","O",2001, 1, 1,"B",25,0,0);
	Load_Beeld2( 45, 7,	"Geborgenheid",		"N","F",2002, 1,20,"B",39,950,0);	// 21- 6 Nieuw beeld
//	Load_Beeld2( 46, 6,	"Meisje",			"N","O",2001,11, 5,"K",75,0,1150); //  5-11 Nieuwe foto
//	Load_Beeld2( 47, 4,	"De passant",		"N","O",2001,11, 5,"K",85,0,885); //  5-11 Nieuwe foto
//	Load_Beeld2( 48, 2,	"Opdracht",			"N","O",2001, 1, 1,"K",43,0,0);
//	Load_Beeld2( 49, 7,	"Opdracht",			"N","O",2001, 1, 1,"B",35,0,0);
	Load_Beeld2( 50,14,	"Adagio",			"N","O",2001,9,29,"B",34,0,0); // 29- 9 Nieuw beeld

	Load_Beeld2( 51,12,	"Luna",				"N","F",2002, 1,19,"B",48,950,0); // 29- 9 Nieuw beeld
	Load_Beeld2( 52, 7,	"Con Amore",		"N","O",2001,10,7,"B",45,1250,0);	//  7-10 Nieuw beeld
//	Load_Beeld2( 53, 1,	"Vader",			"N","B",2001,11,27,"B",37,0,0);	// 27-11 Nieuw beeld
	Load_Beeld2( 54,13,	"Rondo",			"N","F",2002, 7, 1,"B",68,1950,0);	// 13-12 Nieuw beeld
	Load_Beeld2( 55, 1,	"Vivace",			"N","F",2002, 6,24,"B",39,2250,0);	// 13-12 Nieuw beeld
 	Load_Beeld2( 56,14,	"La Mer",			"N","B",2002, 7, 1,"B",52,2350,0);
	Load_Beeld2( 57, 1,	"CARe Customer Award",	"N","B",2002, 1, 7,"B",0,0,0);
//	Load_Beeld2( 58, 1,	"Privé opdracht",	"N","B",2002, 1,19,"B",0,0,0);
//	Load_Beeld2( 59, 1,	"Les Patineurs",	"N","B",2002, 1,19,"B",37,1585,0);
	Load_Beeld2( 60, 1,	"Side by Side",		"N","B",2002, 7, 1,"B",40,1250,0);
	Load_Beeld2( 61,15,	"Les Deux Amants",	"N","F",2004, 1,4,"BK",50,2350,650);
//	Load_Beeld2( 62, 1,	"Nocturne",			"N","B",2002, 7, 1,"B",70,4450,0);

	Load_Beeld2( 63, 1,	"You'll never walk alone",	"N","B",2002, 4,22,"B",41,1350,0);
	Load_Beeld2( 64, 1,	"Passionato",		"Y","B",2002, 4,22,"B",60,1750,0);
	Load_Beeld2( 65, 1,	"Temptation",		"N","B",2002, 7,1,"B",40,650,0);
//	Load_Beeld2( 66, 1,	"Jongen",			"N","B",2002, 7,1,"K",0,0,1150);
//	Load_Beeld2( 67, 1,	"Opdracht",			"N","B",2002, 7,1,"K",0,0,0);

//	Load_Beeld2( 68, 1,	"Berceuse",			"N","B",2002, 12,10,"B",30,1550,0);	//  10-12 Nieuw beeld
	Load_Beeld2( 69, 1,	"Allez!",			"Y","F",2003, 3,10,"B",25,1750,0);	//  10-12 Nieuw beeld
//	Load_Beeld2( 70, 1,	"Only You",			"N","F",2003, 3,10,"B",41,950,0);	//  10-12 Nieuw beeld
//	Load_Beeld2( 71, 1,	"Diny",				"N","B",2003, 2,31,"K",41,0,0);	//  10-12 Nieuw beeld
	Load_Beeld2( 72, 1,	"Waterman",			"N","B",2003, 5,29,"B",125,9500,0);		//  29-5 Nieuw beeld
	Load_Beeld2( 73, 1,	"Cellist",			"Y","B",2003, 7,2,"B",37,1950,0);	//  2-7 Nieuw beeld
	Load_Beeld2( 74, 1,	"Mon Père",			"N","B",2003, 7,2,"B",43,1250,0);		//  2-7 Nieuw beeld
	Load_Beeld2( 75,14,	"sterrenbeeld Waterman",	"Y","B",2003, 5,29,"B",58,1950,0);		//  29-5 Nieuw beeld
	Load_Beeld2( 76,1,	"Gezin",			"Y","B",2004, 1,1,"B",58,1750,0);		//  29-5 Nieuw beeld
//	Load_Beeld2( 77,1,	"Meditatie",		"N","B",2004, 1,1,"K",64,0,550);
	Load_Beeld2( 78,37,	"Vrije Vogels",		"Y","B",2004, 6,13,"B",163,8500,0);		// Vogel
	Load_Beeld2( 79,5,	"Management Boek Award",	"N","B",2004, 2,1,"B",0,0,0);

//	Load_Beeld2( 80,1,	"Roosje",			"N","F",2004,12,8,"B",55,1950,0);
	Load_Beeld2( 81,1,	"Summertime",		"N","B",2004,9,10,"B",45,1750,0);	
	Load_Beeld2( 82,1,	"La Tentation",		"Y","B",2004,12,1,"B",87,3950,0);	
//	Load_Beeld2( 83,1,	"RubenMennoInge",	"N","B",2004,9,10,"B",0,0,0);
	Load_Beeld2( 84,1,	"Together",			"Y","B",2005,9,27,"B",56,2950,0);
	Load_Beeld2( 85,1,	"Vader",			"Y","B",2005,9,27,"B",40,995,0);	
	Load_Beeld2( 86,1,	"Trots",			"Y","B",2005,9,27,"B",38,950,0);
	Load_Beeld2( 87,1,	"Blue Heaven",		"Y","B",2005,9,27,"B",48,2750,0);
	Load_Beeld2( 88,1,	"Lady",				"N","B",2005,12,1,"B",54,2450,0);	
	Load_Beeld2( 89,1,	"Flying moments",	"N","B",2006,10,28,"B",45,2350,0);	
	Load_Beeld2( 90,1,	"It's me",			"Y","B",2006,10,4,"B",60,2250,0);	
	Load_Beeld2( 91,1,	"Herfst",			"N","B",2006,10,4,"B",50,2550,0);	
	Load_Beeld2( 92,7,	"Sfinx",			"Y","F",2007,5,19,"B",72,2950,0);	
	Load_Beeld2( 93,1,	"Je vous aime",		"Y","B",2007,5,1,"B",41,995,0);
	Load_Beeld2( 94,1,	"Nocturne",			"Y","F",2009,4,1,"B",70,4950,0);

	Load_Beeld2( 95,1,	"Pluk de Dag",		"N","B",2007,5,1,"B",61,1750,0);
	Load_Beeld2( 96,1,	"Vrouwenmantel",	"Y","B",2007,11,1,"B",55,2250,0);
	Load_Beeld2( 97,1,	"Queen of Sheba",	"Y","B",2008,1,15,"B",59,2750,0);
	Load_Beeld2( 98,1,	"Without Words",	"Y","F",2009,4,1,"B",52,2750,0);
	Load_Beeld2( 99,1,	"Future",			"Y","F",2009,4,1,"B",71,4350,0);
	Load_Beeld2( 100,1,	"Lente",			"Y","B",2008,5,19,"B",38,3500,0);
	Load_Beeld2( 101,1,	"Pas de Deux",		"Y","F",2009,4,1,"B",45,2350,0);
	Load_Beeld2( 102,1,	"Springtime",		"Y","B",2008,5,30,"B",88,4250,0);
	Load_Beeld2( 103,1,	"Dageraad",			"Y","B",2008,9,5,"B",89,4450,0);
	Load_Beeld2( 104,1,	"Chapeau",			"Y","B",2009,4,1,"B",61,2750,0);
	// *er worden geen prijzen meer gepubliceerd op internet*
	Load_Beeld2( 105,1,	"Berceuse",			"Y","B",2010,2,22,"B",40,0,0);
	Load_Beeld2( 106,1,	"Moonlight", 		"Y","B",2000,2,22,"B",70,0,0);

	
//	
	by2000Lijst  = "64, 73, 76, 82, 84, 87, 92, 94, 97, 98, 99, 105, 106 ";
	byTonLijst   = "51, 64, 73, 75, 78, 82, 84, 85, 86, 87, 88, 90, 92, 93, 94, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105";
	byLensLijst  = "82, 84, 87, 92, 94, 97, 98, 99, 102, 103, 105, 106";
	byVrouwLijst = "76, 85, 87, 93, 97, 102, 103, 105";
	by2000Lijst  = 	by2000Lijst.replace(/ /g,"");
	byTonLijst   = 	byTonLijst.replace(/ /g,"");
	byLensLijst  = 	byLensLijst.replace(/ /g,"");
	byVrouwLijst = 	byVrouwLijst.replace(/ /g,"");

//
	function dispimage(IndexNr) {
	BeeldNrStr = NRarray[IndexNr]+"";
	switch ( BeeldNrStr ) {
		case "4" : 		showimg(418);	showimg(419); archimg(410); archimg(412); archimg(402); archimg(403);	break;
		case "5" : 		showimg(505);	break;
		case "8" : 		showimg(813); 	showimg(808); showimg(804); showimg(805); showimg(806); showimg(807);	break;
		case "9" : 		showimg(918);	break;
		case "10" : 	showimg(1001);	break;
		case "11" : 	showimg(1117);	showimg(1108);	break;
		case "12" : 	showimg(1213);	showimg(1214);archimg(1202); archimg(1203); archimg(1204); archimg(1205); archimg(1206);	break;
		case "13" : 	showimg(1302);	break;
		case "14" :		showimg(1421);	showimg(1412);	showimg(1410);	break;
		case "15" : 	showimg(1501);	break;
		case "16" : 	showimg(1602); document.write("<BR>Andere opdrachten uit Urk zijn:"); showimg(1603); showimg(1604);	break;
		case "17" : 	showimg(1711);	showimg(1712);	break;
		case "29" : 	showimg(2902);	showimg(2909);	break;
		case "40" : 	showimg(4001);	break;
		case "45" :		showimg(4507);	break;
		case "50" : 	showimg(5014);	break;
		case "51" : 	showimg(5111);	showimg(5114);	showimg(5117);	showimg(5118);	break;
		case "52" : 	showimg(5207);	break;
		case "53" : 	showimg(5301);	break;
		case "54" : 	showimg(5413);	break;
		case "56" : 	showimg(5614);	break;
		case "57" : 	showimg(5701);	break;
		case "60" : 	showimg(6014);	showimg(6015);	showimg(6002);	break;
		case "61" : 	showimg(6115);	break;
		case "62" : 	showimg(6208);	showimg(6206);	break;
		case "63" : 	showimg(6301);	break;
		case "64" : 	showimg(6405);	showimg(6406);	break;
		case "65" : 	showimg(6508);	showimg(6509);	break;
		case "66" : 	showimg(6601);	showimg(6603);	break;
		case "67" : 	showimg(6701);	break;
		case "68" : 	showimg(6809);	showimg(6813);	break;
		case "69" : 	showimg(6907);	showimg(6909);	break;
		case "70" : 	showimg(7006);	showimg(7007);	break;
		case "71" : 	showimg(7101);	break;
		case "72" : 	showimg(7228);	break;
		case "73" : 	showimg(7312);	break;
		case "74" : 	showimg(7401);	break;
		case "75" : 	showimg(7506);	showimg(7510);	break;
		case "76" : 	showimg(7619);	showimg(7620);	break;
		case "77" : 	showimg(7704);	break;	
		case "78" : 	showimg(7833);	showimg(7834);	break;	
		case "79" : 	showimg(7905);
				document.write("<BR><A HREF=\"http://www.managementboek.nl\" TARGET=\"_blank\">Management Boek</A>");
				document.write("<BR><A HREF=\"http://www.managementboekengala.nl\" TARGET=\"_blank\">Managementboeken Gala</A>");
				break;
		case "80" : 	showimg(8002);	showimg(8003);	showimg(8004);	break;	
		case "81" : 	showimg(8102); 	break;
		case "82" : 	showimg(8203); 	showimg(8204);	break;
		case "84" : 	showimg(8402);	showimg(8403);	showimg(8404);	break;	
		case "85" : 	showimg(8501);	showimg(8502);	break;	
		case "86" : 	showimg(8601);	showimg(8603);	break;	
		case "87" : 	showimg(8701);	showimg(8702);	showimg(8703);	showimg(8704);	break;	
		case "88" : 	showimg(8801);	showimg(8802);	showimg(8803);	break;
		case "89" : 	showimg(8901);	showimg(8903);	showimg(8906);	break;
		case "90" : 	showimg(9001);	showimg(9002);	showimg(9003);	break;
		case "91" : 	showimg(9101);	showimg(9102);	showimg(9103);	break;
		case "92" : 	showimg(9207);	showimg(9203);	showimg(9204);	showimg(9205);	break;
		case "93" : 	showimg(9303);	break;
		case "94" : 	showimg(9403);	showimg(9404);	break;
		case "95" : 	showimg(9502);	break;
		case "96" : 	showimg(9602);	break;
		case "97" : 	showimg(9702);	break;
		case "98" : 	showimg(9802);	showimg(9803);	break;
		case "99" : 	showimg(9903);	break;
		case "100" : 	showimg(10002);	break;
		case "101" : 	showimg(10103);	break;
		case "102" : 	showimg(10202);	break;
		case "103" : 	showimg(10302);	break;
		case "104" : 	showimg(10402);	break;
		case "105" : 	showimg(10502);	break;
		case "106" : 	showimg(10602);	break;

		default: document.write( "Er zijn geen foto's beschikbaar." );
		};
	
		};

function archivebar(  ) {
	document.write ("<TABLE WIDTH=100%>xxxxxxxxxxxxxxxxxxx");
	bar();
	document.write ("</TABLE>");
	};

function showimg( imgname ) {
	// Do not ignore the subnumber!
	imgname = "00" + (( imgname < 10000 ) ? "0" : "" ) + (( imgname < 1000 ) ? "0" : "" ) + imgname + ".jpg";
	document.write ("<P>&nbsp<P><IMG SRC=\"../bdb/"+imgname+"\">");
	if ( internal ) {
		document.write ( "<BR>" );
		document.write ( imgname );
		}
	};
function archimg( imgname ) {
	};
function smalimg( imgname ) {
	};

//
// get the IndexNr where BeeldNr is stored
//
function getIndexNr ( BeeldNr ) {
	for ( IndexNr=1; IndexNr <= NrMax; IndexNr++) {
		if ( NRarray[IndexNr]+"" == BeeldNr ) {
			DummyNr = IndexNr;
			}
		}
	IndexNr = DummyNr+"";
	return IndexNr
	}
//
// get the Image string of the BeeldNr
// Used in load function
function getBeeldImgString( BeeldNr , ImgNr ) {
	strImage="../bdb/00" + (( BeeldNr < 100 ) ? "0": "" ) + (( BeeldNr < 10 ) ? "0": "" ) + BeeldNr + (( ImgNr < 10 ) ? "0": "" ) + ImgNr + ".jpg"
	return strImage
	}
	
function dispimg( BeeldNr ) {
		/// Get index.
		IndexNr = getIndexNr( BeeldNr );
		document.write("<A HREF=\"dispbeeld.html?" + BeeldNr + "\">")
		document.write("<IMG ALT=\"" + NAMEarray[IndexNr] + "\" SRC=\""+ IMGarray[IndexNr] +"\" BORDER=0 HEIGHT=200>");
		document.write("</A>");
		document.write("<BR>" + NAMEarray[IndexNr] );
		document.write("<BR><A HREF=\"dispbeeld.html?" + BeeldNr + "\">Meer foto's van het beeld</A>");
	}
function framedispimg( BeeldNr) {
		document.write("<TABLE BORDER=0>");
		document.write("<TR><TD><CENTER>");
		dispimg( BeeldNr ) ;
		document.write("</TD></TR>");
		document.write("</TABLE>");
	}

function tuinlijst( ) {
		document.write("<TABLE BORDER=0>");
		document.write("<TR><TD>");
	framedispimg(11)
		document.write("</TD>");
		document.write("<TD>");
	framedispimg(78)
		document.write("</TD>");
		document.write("<TD>");
	framedispimg(61)
		document.write("</TD></TR>");

		document.write("<TR><TD>");
	framedispimg(29)
		document.write("</TD>");
		document.write("<TD>");
	framedispimg(14)
		document.write("</TD></TR>");

		document.write("</TABLE>");
	}

//
//
//
//
// INDEX ROUTINES
//
//
//
// Generate the FAME-HTML page
//
//
	function GenFrame(nr) {
		var i;
		nr=nr.substring(1);
		for (i=0 ; i<99; i++) { 
			if ( Nicklabel[i] == nr ) { 
				nr = i;
			 };
		};
		if ( nr == "") nr=0;
		if ( nr == 99 ) { nr=9; };
// Col 1 was 190 - aangepast voor breedbeeld schermen.
		document.write("<FRAMESET COLS=\"200,*\" FRAMEBORDER=\"NO\" BORDER=\"0\" FRAMESPACING=\"0\">");
		document.write("<FRAME NAME=\"menu\" SRC=\"menu" + Lang + ".html?" + nr + "\" MARGINWIDTH=0>");
		document.write("<FRAME NAME=\"content\" SRC=\"" + Contfile[nr] + "\" MARGINWIDTH=0>");
		document.write("</FRAMESET>");
		};


//
//
//
//
	function Load_Menu(nr,label,contentfile,nickname,selmenunr) {
		var nr;
		var label;
		var contentfile;
		var nickname;
		var selmenunr;
		Menu[nr]=label;
		Contfile[nr]=contentfile;
		Nicklabel[nr]=nickname;
		Selmenu[nr]=selmenunr;
		};

//
//
// Routine to generate the menu number <nr>
// It is called in the menu.html
//
//
	function GenMenu(nr) {
		var i;
		var nr;
		var highlightmenu;
		if (nr.charAt(0) == "?" ) nr=nr.substring(1);
		if (nr == "") nr="0";
		if (nr != "0" ) nr="0"+nr;
		nr=nr.toString();
		document.write("<P>");
//		document.write ("<TABLE WIDTH=185  CELLPADDING=0 CELLSPACING=0 BORDER=0 >");
		document.write ("<TABLE WIDTH=185  CELLPADDING=2 CELLSPACING=2 BORDER=0 >");
		for (i=0 ; i<nr.length; i++) {
			highlightmenu=right1(nr.substring(i+1,i+2));
			GenSubMenu(nr.substring(0,i+1),highlightmenu);
			};

		// If not a third level menu, show a random image.

		if (nr.length <= 3 ) {
			ShowRndImg() ;
			 };
		//
		bar();
		if ( Lang=="NL" ) {
			document.write("<TR><TD><A HREF=\"indexEN.html\" CLASS =\"MENU\" >English information</A></TD></TR>");
			};
		if ( Lang=="EN" ) {
			document.write("<TR><TD><A HREF=\"index.html\" CLASS =\"MENU\" >Nederlands</A></TD></TR>");
			};
		bar();
		//
		if ( internal ) {
			document.write("<TR><TD>Internal version</TD></TR>");
			};
		document.write ("</TABLE>");
	};


//
//
// Load top page due to IE7 behaviour
//
//
	function loadTopPage(page) {
		//alert(page);
		top.location.href=page;
		return false;
	};

//
//
// Routine to generate a submenu
//
//
	function GenSubMenu(snr,high) {
		var start;
		var end;
		var i;
		var hit;
		var high;
		var indexfile;
		hit = false;
		if (snr<100) {
			routine="GenSubMenu";
			start=snr*10;
			for (i=1 ; i<=9 ; i++) {
				point=start+i;

				if (Menu[point] != null) {
					hit= true;
					switch ( Lang ) {
						case  "NL" : indexfile="index.html";	break;
						case  "EN" : indexfile="indexEN.html";	break;
						default: indexfile="index.html";	break;
					};
					if (i.toString() == high.toString() )	{ classlabel = " CLASS=\"MENUACTIVE\""; }
						else    { classlabel = " CLASS=\"MENU\"  OnMouseOver=\"MenuOn(this);return false;\"  OnMouseOut=\"MenuOff(this);return false;\" OnClick=\"MenuClick(' " +indexfile+"?"+Selmenu[point]+ " ')\""; };
					document.writeln("<TR><TD " + classlabel + ">");
					//document.writeln("<A HREF=\""+indexfile+"?"+Selmenu[point]+"\" CLASS=\"MENU\" >" + Menu[point] + "</A>");

					document.writeln("<A HREF=\""+indexfile+"?"+Selmenu[point]+"\" onClick=\"loadTopPage('"+ indexfile+"?"+Selmenu[point]+ " ');\" CLASS=\"MENU\"   OnMouseOver=\"MenuOn(this);return false;\"  OnMouseOut=\"MenuOff(this);return false;\" OnClick=\"MenuClick(' " +indexfile+"?"+Selmenu[point]+ " ')\">" + Menu[point] + "</A>");
					// if (i == high)	{ document.writeln(" *"); };
					document.writeln("</TD></TR>");
					};
				};
			if (hit) bar();
			};
		};

//
//
// Routine to show a random image
//
//
 	function ShowRndImg() {
		setRndImg(); // Point a random image
		document.write("<TR><TD CLASS=NOLINE><CENTER>");
		document.write("<A CLASS=\"MENU\" HREF=\"dispbeeld.html?" + NRarray[NrCur] + "\" TARGET=\"content\">" );
		//document.write("<A CLASS=\"MENU\" HREF=\"dispbeeld.html?" + NRarray[NrCur] + "\">" );
		document.write("<IMG SRC=\"" + IMGarray[NrCur] + "\""+ imgcorr(NRarray[NrCur]) );
		document.write("  BORDER=0  ALT=\"" + NAMEarray[NrCur] + strSelectMessage + "\">");
		document.write("</A>");
		document.write("</CENTER></TD></TR>");
		};
//
//
// Routine to show a image
//
//
 	function showImage(Nr) {
		document.write("<A HREF=\"dispbeeld.html?" + Nr + "\" TARGET=\"_blank\"> " );
		document.write("<IMG SRC=\"" + IMGarray[Nr] + "\""+ imgcorr(Nr) );
		document.write(" ALT=\"" + NAMEarray[Nr] + strSelectMessage + "\">");
		document.write("<BR>" + NAMEarray[Nr] );
		document.write("</A>");
		};


//
//
// Routine to show a random image
//
//
 	function setRndImg() {
		do { NrCur = Math.ceil( NrMax*Math.random() ) }
			while ( TKarray[NrCur] != "Y" )
		};
//
//
// Routine to to correct a too large image
//
//
	function imgcorr(nr) {
		var retstring
		switch ( nr ) {
		case 13 : retstring= " width = 140 " ;
			break;
		case 16 : retstring= " width = 140 " ;
			break;
		case 29 : retstring= " width = 140 " ;
			break;
		case 59 : retstring= " width = 140 " ;
			break;
		case 60 : retstring= " width = 140 " ;
			break;
		case 69 : retstring= " width = 140 " ;
			break;
		default: retstring= " height =  150 " ;
		};
		return retstring
		};
//
// Routine to show a bar
// Bar is not shown in Netscape!
//
	function bar_archive() {
		alert("Bar_archive actief");
		if ( internal ) {
			bar_contents();
			document.writeln("<H1>Uit het archief</H1><P>Uit het archief, niet op web beschikbaar, alleen op CD:");
		};
		};
	function bar_contents() {
		document.writeln("<TABLE WIDTH=100% BORDER=0>");
		barcont();
		document.writeln("</TABLE>");
		};
	function bar() {
		space();
		document.writeln("<TR><TD CLASS=NOLINE><DIV CLASS=\"CONTBAR\"></DIV></TD></TR>");
		space();
		};
	function barcont() {
		document.writeln("<TR><TD CLASS=\"CONTBAR\">&nbsp;</TD></TR>");
		};
//
// Routine to generate a space (blank menu)
//
	function space() {
		document.writeln("<TR><TD CLASS=NOLINE><DIV CLASS=\"MENUSPACE\"></DIV></TD></TR>");
		document.writeln("<TR><TD CLASS=NOLINE><DIV CLASS=\"MENUSPACE\"></DIV></TD></TR>");
		document.writeln("<TR><TD CLASS=NOLINE><DIV CLASS=\"MENUSPACE\"></DIV></TD></TR>");
		};
	function space2() {
		document.writeln("<TR><TD CLASS=\"MENU\">&nbsp;</TD></TR>");
		};


//
// BEELD ROUTINES
//
// Routine to load a beeld
//
	function Load_Beeld2(beeldnummer,image,naam,tekoop,status,statyear,statmonth,statday,materiaal,hoogte,prijsbrons,prijskeramiek) {
		NrMax++ ;
		NRarray[NrMax] = 	beeldnummer;
		IMGarray[NrMax]	=	getBeeldImgString( beeldnummer , image );
		// IMGarray[NrMax]	=	"../bdb/000" + (( beeldnummer < 10 ) ? "0": "" ) + beeldnummer + (( image < 10 ) ? "0": "" ) + image + ".jpg"
		NAMEarray[NrMax] =	naam;
		TKarray[NrMax]=		tekoop;
		STarray[NrMax]=		status;
		STYarray[NrMax]=	statyear;
		STMarray[NrMax]=	statmonth;
		STDarray[NrMax]=	statday;
		MATarray[NrMax]=	materiaal;
		HOOGarray[NrMax]=	hoogte;
		PRIJSBronsarray[NrMax]=	prijsbrons;
		PRIJSBronsarray[NrMax]=	0;
		PRIJSKeramiekarray[NrMax]=	prijskeramiek;
		PRIJSKeramiekarray[NrMax]=	0;
		};

//
// ACTION ROUTINES
//
//
// Routine to load actions
//
//
	function Load_Action(Lyear,Lmonth,Lday,Laction) {
		NrMaxA++;
		EYarray[NrMaxA]=Lyear;
		EMarray[NrMaxA]=Lmonth;
		EDarray[NrMaxA]=Lday;
		EAarray[NrMaxA]=Laction;
	};



// YYYY,MM,DD
// M=99 & D=99 -> Hele jaar door.
// M=x & D=99 -> Hele maand door.
	function GenAgenda() {
		CurYear="XX";
		CurMonth="XX";
		CurDay="XX";
		document.write("<TABLE WIDTH=300>");
		for (var i =1; i<=NrMaxA; i++) {
			toekomst = false;

			if  ( EYarray[i] > year ) toekomst = true;
			if (( EYarray[i] >= year ) && ( EMarray[i] > month )) toekomst = true;
			if (( EYarray[i] >= year ) && ( EMarray[i] >= month ) && ( EDarray[i] >= day )) toekomst = true;

			// Skip if far future
			if ( 12*(EYarray[i] - year) + EMarray[i] - month < 8 ) {

			// Hele jaar door...			
			if (  ( EYarray[i] >= year ) &&  ( EMarray[i] == 0 ) && ( EDarray[i] == 0 ) ) {
				// Check for header
				if ( EYarray[i]!=CurYear ) {
					// Hele jaar door..
					document.write("<tr><td colspan=3>&nbsp</td></tr>");
					document.write("<tr><td colspan=3 CLASS=\"MAAND\">")
					document.write("Doorlopend in " );
					document.write(EYarray[i] );
					document.write("</td></tr>");
					};
				document.write("<tr><td>&nbsp</td>");
				document.write("<td>&nbsp</td>");
				document.write("<td CLASS=\"BESCHRIJVING\">" + EAarray[i] + "</td></tr>")
				// Set current...
				CurYear  =EYarray[i];
				CurMonth =EMarray[i];
				CurDay   =EDarray[i];
				}
			else {
				// Hele maand door...
				if (  toekomst  &&  ( EDarray[i] == 0 ) ) {
					// Check for header
					if ( EMarray[i]!=CurMonth ) {
						// Hele maand door..
						document.write("<tr><td colspan=3 CLASS=\"MAAND\">")
						document.write("Doorlopend in " );
						document.write(cvtMonth(EMarray[i]) );
						document.write("</td></tr>");
						};
					document.write("<tr><td>&nbsp</td>");
					document.write("<td>&nbsp</td>");
					document.write("<td CLASS=\"BESCHRIJVING\">" + EAarray[i] + "</td></tr>")
					// Set current...
					CurYear  =EYarray[i];
					CurMonth =EMarray[i];
					CurDay   =EDarray[i];
					}
				else {

					// Niet specifiek...
					if (  toekomst  ) {
					// Check for header
						if ( EMarray[i]!=CurMonth || CurDay==99) {
						// Geef een maand header door...
							document.write("<tr><td colspan=3 CLASS=\"MAAND\">")
							document.write(cvtMonth(EMarray[i]) );
							document.write("</td></tr>");
							};
						document.write("<tr><td CLASS=\"DAG\">" + EDarray[i] + "</td>")
						document.write("<td>&nbsp</td>");
						document.write("<td CLASS=\"BESCHRIJVING\">" + EAarray[i] + "</td></tr>");
						// Set current...
						CurYear  =EYarray[i];
						CurMonth =EMarray[i];
						CurDay   =EDarray[i];

						};			
				};
			};
			}; // Skipping of far future...

		};
		document.write("</TABLE>")
	};


//
//
// Routine to set variabel UpcomAction
//
//


function setupcome() {
		var MsgString;
		for (var ia=1; ia<=NrMaxA; ia++) {

			toekomst = false;

			// Set toekomst.
			if  ( EYarray[ia] > year ) toekomst = true;
			if (( EYarray[ia] >= year ) && ( EMarray[ia] > month )) toekomst = true;
			if (( EYarray[ia] >= year ) && ( EMarray[ia] >= month ) && ( EDarray[ia] >= day )) toekomst = true;
			if (EMarray[ia] == 99 ) toekomst=false; // Geen algemene entries oppakken!
			if (EDarray[ia] == 99 ) toekomst=false; // Geen algemene entries oppakken!

			MsgString="Toekomst: "+toekomst.toString()+" "+EAarray[ia];

			if ( toekomst ) {
				if ( UpcomAction=="Geen" ) {
						// Day=99 means whole month.
						if (EDarray[ia]==99) { UpcomAction = "<B>"+ cvtMonth(EMarray[ia]) + "</B>: " +  EAarray[ia] ; }
								else { UpcomAction = "<B>"+ EDarray[ia] + " " + cvtMonth(EMarray[ia]) + "</B>: " + EAarray[ia] ; }
						MsgString="UpcomAction= " + UpcomAction;
						if ( ( EYarray[ia] == year ) && ( EMarray[ia] == month ) && ( EDarray[ia] == day ) ) { 	UpToday = true; };
						MsgString="UpToday= " + UpToday.toString();
						};
				};
		};
	};


function by2000(IndexNr) {
	Isdaar = false ;
	BeeldNr = NRarray[IndexNr];
	BeeldStr = "," + BeeldNr + ",";
	byOns = "," + by2000Lijst + ",";
	byOns = byOns.replace(/ /,"");
	if ( 	byOns.indexOf(BeeldStr)!= -1 ) {
			Isdaar = true;
			} 
	if ( TKarray[IndexNr] == "N" ) {
			Isdaar = false;
			}
	return Isdaar;
	}


function byTon(IndexNr) {
	Isdaar = false ;
	BeeldNr = NRarray[IndexNr];
	BeeldStr = "," + BeeldNr + ",";
	byOns = "," + byTonLijst + ",";
	if ( 	byOns.indexOf(BeeldStr)!= -1 ) {
			Isdaar = true;
			} 
	if ( TKarray[IndexNr] == "N" ) {
			Isdaar = false;
			}
	return Isdaar;
	}

function byLens(IndexNr) {
	Isdaar = false ;
	BeeldNr = NRarray[IndexNr];
	BeeldStr = "," + BeeldNr + ",";
	byOns = "," + byLensLijst + ",";
	if ( 	byOns.indexOf(BeeldStr)!= -1 ) {
			Isdaar = true;
			} 
	if ( TKarray[IndexNr] == "N" ) {
			Isdaar = false;
			}
	return Isdaar;
	}

function byVrouw(IndexNr) {
	Isdaar = false ;
	BeeldNr = NRarray[IndexNr];
	BeeldStr = "," + BeeldNr + ",";
	byOns = "," + byVrouwLijst + ",";
	if ( 	byOns.indexOf(BeeldStr)!= -1 ) {
			Isdaar = true;
			} 
	if ( TKarray[IndexNr] == "N" ) {
			Isdaar = false;
			}
	return Isdaar;
	}
//
// Return right most character of argument
//
	function right1(pstring) {
		var slength1;
		pstring=pstring.toString();
		slength1=pstring.length-1;
		return pstring.substring(slength1);
		};

//
// Show last modified date
//
	function ShowModifiedDate() {
		var xday,xmonth,xyear;
		var docdat = new Date( document.lastModified );
		xday = docdat.getDate();
		xmonth = cvtMonth( docdat.getMonth() +1 );
		xyear = docdat.getYear();
		if (xyear < 1000 ) xyear+=1900;

		if ( (day==xday) && (month==docdat.getMonth() +1) && (year =xyear)) 
			document.write(  "Vandaag!" );
		else
			document.write(  xday + " " + xmonth + " " + xyear );
		}
//
// Show LMDline
//
	function LMDline() {
		document.write ("<DIV CLASS=CONTBAR></DIV>")
		document.write ("<FONT SIZE=-6>LMD: ")
		ShowModifiedDate();
		document.write (" <A HREF=\"index.html?contact\" TARGET=\"_TOP\">Feedback</A></FONT>")
		}
//
//
// Return month in Dutch
//
	function cvtMonth(month) {
	switch ( month ) {
		case  1 : return "Januari" ;	break;
		case  2 : return "Februari" ;	break;
		case  3 : return "Maart" ;	break;
		case  4 : return "April" ;	break;
		case  5 : return "Mei" ;	break;
		case  6 : return "Juni" ;	break;
		case  7 : return "Juli" ;	break;
		case  8 : return "Augustus" ;	break;
		case  9 : return "September" ;	break;
		case 10 : return "Oktober" ;	break;
		case 11 : return "November" ;	break;
		case 12 : return "December" ;	break;
		default: return "NoMonth";
		}
	return retstring;
	};
//
// Bepaal leeftijd tov referentie
// Niet geheel correct, maar goed genoeg voor indicatie!
//
	function age(birthyear,birthmonth,birthday) {
		Count=372*(year-birthyear)+31*(month-birthmonth)+day-birthday
		return Count;
		};





function MenuOn(obj) {
	obj.className="PRESEL";
 }
function MenuOff(obj) {
	obj.className="MENU";
 }
function MenuClick(url) {
	if ( url != "" ) {
		//parent.frames[1].location.href=url;		
		parent.location.href=url;		
	} else {
		parent.location.href="index.html";		
	}
	
}