<perl>
if($cmd eq "del")
{
out "löschen verboten";

}
</perl>

if($namerein ne "")
{
  get "Login==!$namerein", "nutzerdb", "logincheck";

  if($Passwort ne "" && $Passwort eq $pwrein && $Sprache eq "$Sprache")
  {
    do_all "db=x Sprache==$namerein ......" , "namerein", "pwrein";

{

</td></tr>
<tr><td>
EOF
}
                  }else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }
}
</perl>