<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/trixiheise/datenseite" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/trixiheise/datenseite">
<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>
<input type=hidden name="Email:=" value="$Email">

<table>
<tr><td><a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/trixiheise/datenseite&cmd=do_search&namerein=$namerein&pwrein=$pwrein"><center>suchen</center></a></td></tr>

<tr><td></td></tr>
</table>

if($namerein ne "")
{
  get "Name==!$namerein", "nutzer";

  if($Passwort ne "" && $Passwort eq $pwrein)

  {
    do_all "db=login databack=f0f0f0 datasize=2 headback=e0e0e0 border=0 spacing=1 padding=2 gridcolor=b0b0b0 dataface=arial,helvetica sort^=Datum range^=0,20 pagebrowse=no buttonbrowse=no selectbrowse=no listtype=list listfields=Datum,Titel,Autor input=link", "namerein", "pwrein";
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
}
  }
</perl>

<input type=text name="Email:=" value="$Email">
</loop>