if(%_put)
{
  $emsg.="Vereinsname, <br>" if $_put{Verein} eq "";
  $emsg.="Ansprechpartner, <br>" if $_put{Ansprechpartner} eq "";
  $emsg.="Strasse, <br>" if $_put{Strasse} eq "";
  $emsg.="PLZ, <br>" if $_put{PLZ} eq "";
  $emsg.="Ort, <br>" if $_put{Ort} eq "";
  $emsg.="Telefon, <br>" if $_put{Telefon} eq "";
  $emsg.="Email, <br><br>" if $_put{Email} eq "";
  if($emsg eq "")
  { 
    @zahlen = (0 .. 9);
    $Verein_PW = join("", @zahlen[ map { rand @zahlen } ( 1 .. 6) ] );
    $_put{Verein_PW}=$Verein_PW; ## Passwort schreiben
    get "Verein_ID==#", "nutzer"; ## letzte Nummer aus DB holen
    $_put{Verein_ID}=++$count; ## diese Nummer um eins erhöhen
 put;