<perl>
if(%_put)
{
push @emsg, "Feld XYZ nicht ausgewählt" unless($_put{Feldname1});
push @emsg, "Feld XYZ nicht ausgewählt" unless($_put{Feldname2});
push @emsg, "Feld XYZ nicht ausgewählt" unless($_put{Feldname3});
unless(@emsg)
{
put undef,"Name_der_Datenbank";
}
</perl>
<br>
<perl>
if($namerein ne "")
{
get "Benutzer==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein)
{
do_all "Benutzer==!$namerein action=all db=datenbank mail_put=info\@xxxx.de mail_mod=info\@xxxxx.de mail_del=info\@xxxxx.de databack=FFFFFF headback=D9D9D9 headbold=1 headalign=left border=D9D9D9 spacing=1 padding=2 gridcolor=0C2545 datasize=-2 dataface=arial,helvetica sort^=Hotel range^=0,5 pagebrowse=top buttonbrowse=no listtype=list searchfields=Programm,Zeitraum formfields=-EMail allfields=-EMail listfields=-EMail,Angebot,Anmerkungen,Id input=link" , "namerein", "pwrein";
} else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
}
}