<perl>
get "seite==!$seite ", "datendb";

$a_foto ="<img src='/files/$foto' class='right' />" if $foto ne "";
$a_foto ="" if $foto eq "";

$a_foto

<perl>

{

  get "Login==!$namerein", "anwendername";
  if($Passwort ne "" && $Passwort eq $pwrein)
  {
   do_all "db=datendb cmd=$cmd Login==$Login action=all headface=tahoma headback=666666 headsize=-1 headcolor=ffffff dataface=tahoma databack=FFFFFF datasize=-1 gridcolor=333333 listfields=-Id allfields=-Id formfields=-Id pagebrowse=no buttonbrowse=no selectbrowse=top listtype=list sort=- input=no search=no keyfield=seite" , "namerein", "pwrein";
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";

  }

if($namerein eq "")
{

<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
Login: <input type="text" name="namerein="><br>
Passwort: <input type="password" name="pwrein="><br>
<input type=submit value="Anmelden">
</form>
EOF

</perl>