<perl>
if($namerein ne "")
{
  get "Login==!$namerein", "nutzer";
  if($Passwort ne "" && $Passwort eq $pwrein)
  {
    do_all "db=vereine sort=Ort dataface=verdana,arial,helvetica indexfield=Bezirk formfields=-Id,geaendertVon datasize=1 listfields=Ort,Verein,Kontakt,Mail,Homepage keyfield=Verein databack=f0f0f0 spacing=2 padding=2 gridcolor=000000 range^=0,40 ", "namerein", "pwrein";
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }
}