function checkTags(max, regel, f, f2, taal, browser){
		var jow
		var strSearch
		var i
		
		//onderzoek naar </T>
		i = 0
		jow = 0
		test = f.value
		strSearch = "</T>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*4) - (Number(jow)*parseInt(regel/3));
		
		//onderzoek naar </I>
		i = 0
		jow = 0
		test = f.value
		strSearch = "</I>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*4) - (Number(jow)*parseInt(regel/3));
	
		//onderzoek naar <BR>
		i = 0
		jow = 0
		test = f.value
		strSearch = "<BR>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*4) - (Number(jow)*parseInt(regel/2));
	
		//onderzoek naar <P>
		i = 0
		jow = 0
		test = f.value
		strSearch = "<P>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*3) - (Number(jow)*parseInt(regel*1.5));
	
		//onderzoek naar <T>
		i = 0
		jow = 0
		test = f.value
		strSearch = "<T>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*3);
		
		//onderzoek naar <I>
		i = 0
		jow = 0
		test = f.value
		strSearch = "<I>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*3);
		
		//onderzoek naar </t>
		i = 0
		jow = 0
		test = f.value
		strSearch = "</t>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*4) - (Number(jow)*parseInt(regel/3));
		
		//onderzoek naar </i>
		i = 0
		jow = 0
		test = f.value
		strSearch = "</i>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*4) - (Number(jow)*parseInt(regel/3));
	
		//onderzoek naar <br>
		i = 0
		jow = 0
		test = f.value
		strSearch = "<br>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*4) - (Number(jow)*parseInt(regel/2));
	
		//onderzoek naar <p>
		i = 0
		jow = 0
		test = f.value
		strSearch = "<p>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*3) - (Number(jow)*parseInt(regel*1.5));
	
		//onderzoek naar <t>
		i = 0
		jow = 0
		test = f.value
		strSearch = "<t>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*3);
		
		//onderzoek naar <i>
		i = 0
		jow = 0
		test = f.value
		strSearch = "<i>"
		while (Number(i) != -1){
			i = test.indexOf(strSearch);
			test = test.substring(i+strSearch.length,test.length);
			jow = jow + 1
			}
		jow = jow - 1
		charleft = charleft + (Number(jow)*3);
	
		f2.value = charleft;
}

function calcChar(max, regel, f, f2, taal, browser) {
		clipped = false
		maxLength = max
		charleft = maxLength - f.value.length;
		checkTags(max, regel, f, f2, taal);
        if (charleft < 0) { 
			if (browser == 'netscape'){
				if (taal = 1) {
					var nogood = "Het tellen van het aantal overgebleven karakters kan bij netscape browsers in sommige gevallen problemen geven! In Internet Explorer daarentegen kunnen wij u een perfecte werking van deze tool verzekeren. Onze excuses daarvoor!";
				}
				window.alert(nogood);
			}
		    clipped = true;
		    var warning;
			if (taal = 1) {
				warning = "U hebt het maximum aantal characters voor dit veld bereikt!";
		    }
		    //window.alert(warning);
			charleft = ""
			//calcCharToMuch(max, regel, f, f2, taal, browser)
        }
        return clipped
}

function calcCharToMuch(max, regel, f, f2, taal, browser) {
		clipped = false
		maxLength = max
		charleft = maxLength - f.value.length;
		checkTags(max, regel, f, f2, taal, browser);
        if (charleft < 0) { 
		    clipped = true;
		    var lol
		    var test
		    var strSearch
		    var jow
		    var begin
		    var einde
		    while (charleft < 0){
				begin = Number(f.value.length)+Number(charleft)
				einde = 0-Number(charleft)
				stukske = f.value.substr(begin,einde);
				test = stukske
				strSearch = ">"
				jow = 0
				i = -2
				while (Number(i) != -1){
					jow = jow + i
					i = test.indexOf(strSearch);
					test = test.substr(i+strSearch.length,test.length);
					}
				if (jow != 0 && jow != -1 && jow != -2){
					stukske = stukske.substr(0,jow);
					f.value = f.value.substr(0,Number(f.value.length)+Number(charleft))+stukske
				} else {
					f.value = f.value.substr(0,Number(f.value.length)+Number(charleft));
				}				
				//calcCharToMuch(max, regel, f, f2, taal, browser);
		    }
        }
        return clipped
}

function textKey(max, regel, f, f2, taal, browser) {
	supportsKeys = true
	calcChar(max, regel, f, f2, taal, browser)
}

function counting(taal) {
	var processwindow = window.open('/processing/process.htm', 'process','width=150,height=50,scrollbars=no,toolbar=no,location=no,status=yes,menubar=no,left=0,top=0')
	for(i=0;i<document.form1.length-6;){
		textKey(document.form1.elements[i+1].value, document.form1.elements[i+2].value, document.form1.elements[i], document.form1.elements[i+1], taal);
		i=i+3;
	}
	if (processwindow != ""){
		var processwindow = window.open('/processing/process.htm', 'process','width=150,height=50,scrollbars=no,toolbar=no,location=no,status=yes,menubar=no,left=0,top=0')
	}
}

function UpperCase(veld) {
	var re=/^[A-Z ,./!?0-9&@#'’(§)*/$%£+=:;<>-–-]*$/ //regular expression wat er wel in mag
    if (veld.value.search(re)==-1){ //if match failed
        alert("Enkel kapitaal letters worden toegelaten.")
        veld.value = veld.value.substring(0,veld.value.length-1); 
    }
}