<script language="JavaScript">
<!--
/* # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#

     'R0'         erforderl. - Zahl (jede bel. 1-stell. Ziffer nach R geht hier)
     'RinRange1:5'          erforderl. - Zahlbereich (hier 1-5)
     'NinRange5:10'         nicht erforderl. - wenn drin, dann Bereich (hier von 5-10)
     'RisEmail'          erforderl. - Email-Check (auf @ und ., Länge mind. 7 Zeichen und TLD mind. 2 Zeichen,
                                               domain mind. 3 Zeichen )
     'NisEmail'          nicht erforderl. - wenn drin, dann eMailCheck
     'N0'          nicht erforderl. - wenn drin, dann Zahl
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -# */
function MM_findObj(n, d) { //v3.0 © Macromedia - Anpassung R. Hempel
  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=MM_findObj(n,d.layers[i].document);
  return x;
}
function MM_validateForm() { //v3.0 © Macromedia - Anpassung R. Hempel
  var i,p,q,nm,test,num,min,max,errors='',nerrs=0,plural,args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) {test=args[i+2]; val=MM_findObj(args[i]);
    if (val) {nm=val.name;if(args[i+1])nm=args[i+1];if ((val=val.value)!="") {
    if (test.indexOf('isEmail')!=-1) {p=val.indexOf('@');l=val.length; d=val.indexOf('.');t=val.substring(d+1).length;
    if (p<1 || p==(val.length-6) || d<1 || l<7 || t<2) {++nerrs;errors+='- '+nm+' scheint keine gültige eMail-Adresse zu sein.\n';}
    } else if (test!='R') {num = parseFloat(val);if (val!=''+num) {++nerrs;errors+='- '+nm+' muss eine Zahl sein.\n';}
    if (test.indexOf('inRange') != -1) {p=test.indexOf(':');min=test.substring(8,p);max=test.substring(p+1);
    if (num<min || max<num) {++nerrs;errors+='- '+nm+' muss eine Zahl zwischen '+min+' und '+max+' sein.\n';}
    }}
    } else if (test.charAt(0) == 'R') {++nerrs;errors += '- Eingabe im Feld '+nm+' erforderlich.\n';}
  }}
  if (errors) {if(nerrs==1)plural='Folgender Fehler';else plural='Folgende '+nerrs+' Fehler';
  alert(plural+' bei der Eingabe:\n'+errors);
  }
  document.MM_returnValue = (errors == '');
}
//-->