<loop code=perl db=Zugriff Rechte==$Rechte>
if($namerein ne "")
{
  get "Login==!$namerein Rechte==$Rechte", "Nutzer", "logincheck";
  if($Passwort ne "" && $Passwort eq $pwrein && $Rechte eq "3")
  {

    out "<tr><td>$Projekt</td>";
    out "<td>";
    out "<a href='$Link&cmd=do_list&namerein=$namerein&pwrein=$pwrein'>ZUGRIFF</a>";
    out "</td>";
    out "</tr>";

           }elsif ($Passwort ne "" && $Passwort eq $pwrein && $Recht eq "2")
                   {
    out "<tr><td>$Bereich</td>";
    out "<td>";
    out "<a href='$Link&cmd=do_list&namerein=$namerein&pwrein=$pwrein'>ZUGRIFF</a>";
    out "</td>";
    out "</tr>";

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