<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="";
  }

</perl>
<p>