//--- Prüft, ob der Text für ein Feld zu lang ist.
  function IstZuLang(Feld, AnzZeichen)
  {  // Erstellt von Ralf Pfeifer (www.arstechnica.de)
     var FehlerMeldung = "Fehler beim Ausfüllen des Formulars\n\n"
     var FeldLaenge = Feld.value.length
     var OK = FeldLaenge <= AnzZeichen

     if (!OK) {
        FehlerMeldung += "Dieses Feld darf max. " + AnzZeichen
        FehlerMeldung += " enthalten.\nSie haben " + FeldLaenge + " Zeichen eingegeben"
        alert(FehlerMeldung)
        Feld.focus() }
     return OK
  }



  //--- Prüft, ob nur Ziffern eingegeben wurden
  function NurZiffern(Feld)
  {  PruefeZeichen(Feld, "0123456789", "Bitte prüfen Sie die Zahl") }



  //--- Prüft, ob nur Zeichen eingegeben wurden,
  //--- die für eine Telefonnummer üblich sind
  function NurTelefon(Feld)
  {  PruefeZeichen(Feld, "0123456789 /-+()", "Bitte prüfen Sie die Telefonnummer") }
  
  //--- Prüft, ob nur Zeichen eingegeben wurden,
  //--- die für ein Datum üblich sind
 function NurDatum(Feld)
  {  PruefeZeichen(Feld, "0123456789 /.()", "Bitte prüfen Sie das eingegebene Datum") }


  //--- Prüft, ob eine eMail-Adresse korrekt aufgebaut ist
  function eMailAdresseOK(eMail)
  {  // Erstellt von Ralf Pfeifer (www.arstechnica.de)

     // Falls das Feld leer ist, ohne Prüfung aussteigen
     if (eMail.value.length==0) { return true }


     // Text für die Fehlermeldung
     var FehlerMeldung = new String("Fehler in der eMail-Adresse\n\n")

     // Position des @ herausfinden
     var PosEt = eMail.value.indexOf("@")
     if (PosEt == -1) {
       alert(FehlerMeldung + "Es fehlt ein @")
       return eMail.focus() }
     if (PosEt == 0) {
       alert(FehlerMeldung + "Es fehlt der Empfänger")
       return eMail.focus() }
     if (eMail.value.indexOf("@", PosEt + 1) > PosEt) {
       alert(FehlerMeldung + "Es darf nur ein @ enthalten sein")
       return eMail.focus() }

     // Position des ersten . nach dem @ herausfinden
     var PosPt = eMail.value.indexOf(".", PosEt)

     if ((PosPt == -1) || (PosPt - PosEt < 2) || (eMail.value.length - PosPt < 3)) {
       FehlerMeldung += "Eine eMail-Adresse muß so aufgebaut sein: x@x.xx "
       FehlerMeldung += "Jedes x steht für mindestens ein Zeichen"
       alert(FehlerMeldung)
       return eMail.focus() }

     // Zulässige Zeichen für eMails definieren
     var ZugelasseneZeichen = new String("abcdefghijklmnopqrstuvwxyz")
     ZugelasseneZeichen += ZugelasseneZeichen.toUpperCase() + "0123456789.-_@"

     // eMail-Adresse auf zulässige Zeichen überprüfen
     return PruefeZeichen(eMail, ZugelasseneZeichen, FehlerMeldung)
    }



    //--- Unterprogramm, welches die Zeichen prüft
    function PruefeZeichen(Feld, ZugelasseneZeichen, FehlerMeldung)
    {  // Erstellt von Ralf Pfeifer (www.arstechnica.de)
       for (var Pos = 0; Pos < Feld.value.length; Pos++)
       {
          if (ZugelasseneZeichen.indexOf(Feld.value.charAt(Pos)) == -1)
          { FehlerMeldung += "\n\nIhre Eingabe enthält das Zeichen '"
            FehlerMeldung += Feld.value.charAt(Pos)
            FehlerMeldung += "'. Sie dürfen nur diese Zeichen verwenden:\n"
            FehlerMeldung += ZugelasseneZeichen
            if (ZugelasseneZeichen.indexOf(" ") == -1)
               { FehlerMeldung += "\nLeerzeichen sind nicht erlaubt" }
            else
               { FehlerMeldung += "\nund das Leerzeichen" }
            alert(FehlerMeldung)
            Feld.focus()
            return
          }
       }
    }

  // -->