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
