<perl>
if($namerein ne "") 
{
  get "Name==!$namerein", "nutzer"; 
  if($Passwort ne "" && $Passwort eq $pwrein)
  {
    do_all "db=einsaetze/main databack=f0f0f0 datasize=2 headback=e0e0e0 border=0 spacing=1 padding=2 gridcolor=b0b0b0 dataface=arial,helvetica sort=-Datum range^=0,200 pagebrowse=no buttonbrowse=no listtype=list listfields=Datum,Stichwort,Einsatzort input=top", "namerein", "pwrein"; 
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }
}
</perl>

<br>Nur für authorisierte Benutzer. Bitte melden Sie sich an.<br><br>
<form action="http://feuerwehr.xyz.de/cgi-bin/baseportal.pl?htx=ffwn/einsatzadmin" method="post" enctype="multipart/form-data" TARGET="_self"> 
<input type=hidden name="htx=" value="/ffwn/einsatzadmin">
<table>
<tr><td>Name:</td><td><input type="text" name="namerein="></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form></font>