function numerisch(feld)
  {
     // OK? Dann zurueck!
     if(isNaN(feld))
     {
        return false;
     }
     return true;
  }
  function meldungsAusgabeFehler(feldname, i, fehler)
  {
    alert ("Eingabe in Feld " + feldname + " " + fehler);
    document.forms[0].elements[i].focus();
    return false;
  }  
  function EMail(s)
  {
   var a = false;
   var res = false;
   if(typeof(RegExp) == 'function')
   {
    var b = new RegExp('abc');
    if(b.test('abc') == true){a = true;}
    }

   if(a == true)
   {
    reg = new RegExp('^([a-zA-Z0-9\\-\\.\\_]+)'+
                   '(\\@)([a-zA-Z0-9\\-\\.]+)'+
                   '(\\.)([a-zA-Z]{2,4})$');
    res = (reg.test(s));
   }
   else
   {
    res = (s.search('@') >= 1 &&
           s.lastIndexOf('.') > s.search('@') &&
           s.lastIndexOf('.') >= s.length-5)
   }
   return(res);
  }
  
  function formularOk()
  {
    // document.printDaten.length
    for(var i=0;i<=10;++i)
    {
      feldname =  document.forms[0].elements[i].name;
      feldinhalt = document.forms[0].elements[i].value;
      feldlaenge = feldinhalt.length;
      if (feldname == "Betreff")
      {
      
      	if	(feldinhalt == "bws")
      	{
          alert ("Bitte wählen Sie einen Wert für den \'Betreff'\ aus");
          return false;
        }
      }

      // Felder name, vorname, ort und strasse pruefen
      if (feldlaenge != 0 	&& feldlaenge <	2	&&
         (feldname =="Name"  || 
          feldname == "Vorname" || 
          feldname == "Ort"  ||
          feldname== "Strasse"	||
          feldname=="Nachricht"))
      {
        return meldungsAusgabeFehler(feldname,i, "ungueltig");
      }
      // Feld Postleitzahl pruefen
      if (feldname	==	"PLZ")
      {
        if (feldlaenge != 0 && feldlaenge < 5)
        {
           return meldungsAusgabeFehler(feldname,i, "ungueltig");  
        }else{
          res = numerisch(feldinhalt);
          if (!res)
          {
             return meldungsAusgabeFehler(feldname,i, "ist nicht numerisch");
          }
        }
      }     
      // Feld EMail pruefen
      if (feldname=="Email")
      {
         if (feldinhalt == "")
         {
            return meldungsAusgabeFehler(feldname,i,"fehlt");
         }else{               
            emailInhalt = EMail(feldinhalt);
            if (!emailInhalt)
            {     
               return meldungsAusgabeFehler(feldname,i, "ungueltig");
            }
         }
      }
      // Kontonummer prüfen auf 10 Stellen
      if (feldname == "Kontonummer")
      {
         if (feldlaenge != 0 && feldlaenge >10)
         {
            return meldungsAusgabeFehler(feldname,i, "ungueltig");
         }
         res  = numerisch(feldinhalt);
         if (!res)
         {
            return meldungsAusgabeFehler(feldname,i, "ist nicht numerisch");
         }
      }
    }
  }