<perl>

{
  get "Name==!$namerein", "nutzer";

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

out "<b><BR></BR><h1>Rubriken: Wissenschaft und Praxisberichte</b></h1>";    

out "<b><BR></BR><h1>Rubrik: Forum</b></h1>"; 

  } else
  {
    out "<b><BR></BR>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }
}

{

<span class="Stil1">Bitte melden Sie sich an:</span> 
<form action="http://XXXXXXXXX.de/baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td><span class="Stil1">Name:</span></td><td><input type="text" name="namerein="></td></tr>
<tr><td><span class="Stil1">Passwort:</span></td><td><input type="password" name="pwrein="></td></tr>
<tr><td></td><td><br></br><input type=submit value="Anmelden"></td></tr>

</form>

}