<a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=...template2&db=datenbankname&Indexfeld==$Indexfeld>

<perl>
if($namerein ne "")
{
  get "Name==!$namerein", "nutzer";
  if($Passwort ne "" && $Passwort eq $pwrein)
  {
    if (%_put && $cmd eq "mod")
    {
      get "Id==!$Id","$db";
      map {$_loop{$_}=$_put{$_}} keys(%_put);
      %_put=%_loop;
    } 
  do_all "db=datenbankname Indexfeld==$Indexfeld listtype=all listfields=... formfields=...", "namerein", "pwrein";
  } else
  {
    out "<b>Fehler bei Anmeldung!</b><br>Eventuell haben Sie kein Zugriffsrecht";
    $namerein="";
  }
}

{
out <<EOF;
<h2>Anmeldung</h2>Bitte anmelden:
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=...template2" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<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>
EOF
}
</perl>