function findObj(n, d) { //v4.01
	var p,i,x; if(!d) d = document; 
	if((p = n.indexOf("?"))>0&&parent.frames.length) {
		d = parent.frames[n.substring(p+1)].document; n = n.substring(0,p);
	}
	if(!(x = d[n])&&d.all) x = d.all[n]; 
	for (i = 0;!x&&i<d.forms.length;i++) x = d.forms[i][n];
	for(i = 0;!x&&d.layers&&i<d.layers.length;i++) x = findObj(n,d.layers[i].document);
	if(!x && d.getElementById) x = d.getElementById(n); 
	return x;
}

function validateform() { //v4.0
	var i,p,q,nm,test,num,min,max,errors = '',args = validateform.arguments;

	for (i = 0; i<(args.length-2); i+= 3) { // each arg has three values
		test = args[i+2];
		val = findObj(args[i]);
  	if (val) { 
  		nm = val.name.toUpperCase() ; 
  		if ((val = val.value) != "") {
				if (test.indexOf('isemail') != -1) { 
					p = val.indexOf('@');
					if (p<1 || p == (val.length-1)) {
						errors += 'Das Feld '+nm+' muss eine gueltige E-Mail-Adresse enthalten.\n';
					}
				} else if (test != 'R') { 
					num = parseFloat(val);
    				if (isNaN(val)) {
    					errors += 'Im Feld '+nm+' bitte nur Zahlen verwenden.\n';
    				}
    				if (test.indexOf('inrange') != -1) { 
    					p = test.indexOf(':');
     					min = test.substring(8,p); 
     					max = test.substring(p+1);
     					if (num<min || max<num) {
     						errors+= 'Das Feld '+nm+' sollte eine Zahl zwischen '+min+' und '+max+' enthalten.\n';
     					}
  					} 
  				} 
  			} else if (test.charAt(0) == 'R') {
  				errors += 'Bitte fuellen Sie das Feld '+nm+' aus.\n';
  			}
  		}
	} 
	if (errors) {
		alert(errors);
	}
	document.returnvalue = (errors == '');
}