//--- 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 = "Please check your entries\n\n"
     var FeldLaenge = Feld.value.length
     var OK = FeldLaenge <= AnzZeichen

     if (!OK) {
        FehlerMeldung += "This field shoult not contain more than " + AnzZeichen
        FehlerMeldung += " characters.\nYou entered " + FeldLaenge + " characters"
        alert(FehlerMeldung)
        Feld.focus() }
     return OK
  }



  //--- Prüft, ob nur Ziffern eingegeben wurden
  function NurZiffern(Feld)
  {  PruefeZeichen(Feld, "0123456789", "Please verify that you entered only numerals") }



  //--- Prüft, ob nur Zeichen eingegeben wurden,
  //--- die für eine Telefonnummer üblich sind
  function NurTelefon(Feld)
  {  PruefeZeichen(Feld, "0123456789 /-+()", "Please verify the phone number you entered.") }
  
  //--- Prüft, ob nur Zeichen eingegeben wurden,
  //--- die für ein Datum üblich sind
 function NurDatum(Feld)
  {  PruefeZeichen(Feld, "0123456789 /.()", "Please verify the date you entered.") }


  //--- 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("The email address you entered is not complete\n\n")

     // Position des @ herausfinden
     var PosEt = eMail.value.indexOf("@")
     if (PosEt == -1) {
       alert(FehlerMeldung + "There is no '@' in the email address you entered")
       return eMail.focus() }
     if (PosEt == 0) {
       alert(FehlerMeldung + "The recipient is missing")
       return eMail.focus() }
     if (eMail.value.indexOf("@", PosEt + 1) > PosEt) {
       alert(FehlerMeldung + "The email address should contain only one '@' sign.")
       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 += "The email should look like this: x@x.xx.\n"
       FehlerMeldung += "Every x stands for at least one character"
       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\nYour entry contains the character '"
            FehlerMeldung += Feld.value.charAt(Pos)
            FehlerMeldung += "'. Please use only these characters:\n"
            FehlerMeldung += ZugelasseneZeichen
            if (ZugelasseneZeichen.indexOf(" ") == -1)
               { FehlerMeldung += "\nBlanks are not allowed" }
            else
               { FehlerMeldung += "\nand a blank" }
            alert(FehlerMeldung)
            Feld.focus()
            return
          }
       }
    }

  // -->