<perl>

{
  get "Name==!$namerein", "/User/Verzeichnis/Verwalter";

  if($Passwort ne "" && $Passwort eq $pwrein)
  {
    do_all "db=DBName", "namerein", "pwrein";
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }

if($namerein eq "")
{

<h4>Anmeldung</h4>

<input type=hidden name="htx=" value="$htx">

<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>

</table>
</form>
EOF
}
</perl>