function Gallery(titel,map,naam,extensie,van,tot,minint) {
	var url='http://www.sorber.be/gallery/gallery.html?'+titel+'?'+map+'?'+naam+'?'+extensie+'?'+van+'?'+tot+'?'+minint;
	var winLorre = window.open(url,'ImageViewer','toolbar=no,width=600,height=600,top=10,left=10');
}

function OpenMenu(sMenu) {
	if(document.getElementById(sMenu).style.display=='none') {
		document.getElementById(sMenu).style.display='block';
	}
	else { document.getElementById(sMenu).style.display='none'; }
}

function WriteEmail(sText) {
	arrMail=new Array();
	arrMail[0]='%3Ca%20hre';
	arrMail[1]='f%3D%22mailt';
	arrMail[2]='o%3Alauren';
	arrMail[3]='t.sorber';
	arrMail[4]='@gma';
	arrMail[5]='il.c';
	arrMail[6]='om%22%3E';
	arrMail[7]=sText;
	arrMail[8]='%3C';
	arrMail[9]='/a%3E';
	for (var i=0;i<arrMail.length;i++) { document.write(unescape(arrMail[i])); }
}

/*used by VB colour-coding*/
function replaceAll(str,from,to) {
	if (str.indexOf(from)>-1) {
		var arrFrom=str.split(from);
		str='';
		for (var z=0;z<arrFrom.length-1;z++) {
				str+=arrFrom[z]+to;
		}
		str+=arrFrom[arrFrom.length-1];
	}
	return str;
}

/*used by VB colour-coding*/
function replaceWhole(str,from,to) {
	var sAdd='';
	var sDelimiter=' |(|)|,';
	var arrDelimiter=sDelimiter.split('|');
	if (str.indexOf(from)>-1) {
		var arrFrom=str.split(from);
		str='';
		for (var x=0;x<arrFrom.length-1;x++) {
			sAdd=from;
			var sNext=arrFrom[x+1];
			var sThis=arrFrom[x];
			if((sThis.substring(sThis.length,sThis.length-1)==' ')||(sThis=='')) {
				for (var y=0;y<arrDelimiter.length;y++) {
					if((sNext=='')||(sNext.length==1)||(sNext.substring(0,1)==arrDelimiter[y])) {
						sAdd=to;
						break;
					}
				}
			}
			str+=sThis+sAdd;
		}
		str+=arrFrom[arrFrom.length-1];
	}
	return str;
}

function LoadPage() {

	/*load objects*/
	var maxH1Length=30;
	var maxH2Length=27;
	var strInsert=window.frames['hidden'].document.body.innerHTML;

	/*table of contents*/
	var arrChilds=document.getElementById('content_m').childNodes;
	var intHeaders=0;
	var strToc='';
	var strTocLink='';
	for (var i=0;i<arrChilds.length;i++) {
		if(arrChilds[i].tagName=='H1') {
			if (arrChilds[i].innerHTML.length>maxH1Length) {
				strTocLink=arrChilds[i].innerHTML.substring(0,maxH1Length)+'...';
			}
			else {
				strTocLink=arrChilds[i].innerHTML;
			}
			strToc+='<li><a href="#id'+i+'">'+strTocLink+'</a></li>';
			arrChilds[i].innerHTML='<a name="id'+i+'"></a>'+arrChilds[i].innerHTML;
			intHeaders++;
		}
		if(arrChilds[i].tagName=='H2') {
			if (arrChilds[i].innerHTML.length>maxH2Length) {
				strTocLink=arrChilds[i].innerHTML.substring(0,maxH2Length)+'...';
			}
			else {strTocLink=arrChilds[i].innerHTML;}
			strToc+='<li style="text-indent: 50px;"><a href="#id'+i+'">> '+strTocLink+'</a></li>';
			arrChilds[i].innerHTML='<a name="id'+i+'"></a>'+arrChilds[i].innerHTML;
			intHeaders++;
		}
	}
	if(intHeaders>=1) {
		strToc='<ul class="menulist">'+strToc+'</ul>';
		strReplace='<!--TOC-->';
		strInsert=strInsert.replace(strReplace,strToc);
	}
	strInsert=document.body.innerHTML.substring(0,document.body.innerHTML.lastIndexOf('<!--END CODE-->'))+strInsert+'</div>';
	/*write the collected code into the body*/
	document.body.innerHTML=strInsert;

	/*colour-code code samples VB-style*/
	/*IE6 removes the spacing for some reason grr*/
	/*I'm going to temp remove colour coding for IE6*/
	if (navigator.appName.indexOf("Microsoft")==-1) {

		var arrChilds=document.getElementById('content_m').childNodes;
		for(var i=0;i<arrChilds.length;i++) {
			if(arrChilds[i].tagName=='PRE') {
				var strBlue='Dim, For, To, Next, If, Then, Else, End, Private, Public, Function, Sub, With, Call, Set, New, As, Long, Boolean, String, Optional, Not, True, False, And, Or, ByVal, ByRef, Integer, Single, Double, On, Local, Error, Resume, CStr, CLng, Select, Case, Call, IIf, Exit, GoTo, Len, LenB, ReDim, Preserve, Byte, Any';
				var arrBlue=strBlue.split(', ');
				var arrLines=arrChilds[i].innerHTML.split(/\n/);
				var sVB='';
				for (var j=0;j<arrLines.length;j++) {
					for (var k=0;k<arrBlue.length;k++) {
						arrLines[j]=replaceWhole(arrLines[j],arrBlue[k],'<font style="color: #0000ff;">'+arrBlue[k]+'</font>');
					}
					arrLines[j]=arrLines[j].replace("'",'<font style="color: #008000;">'+"'")+'</font>';
					sVB+=arrLines[j];
					/*yep, IE likes to be special*/
					if (navigator.appName.indexOf("Microsoft")!=-1) {
						sVB+='<br>';
					}
				}
				arrChilds[i].innerHTML='';
				arrChilds[i].innerHTML=replaceAll(sVB,'%u','');
			}
		}

	}
}