<perl>
if($namerein ne "")
{
get "Benutzer==!$namerein", "nutzer";
 
if($Passwort ne "" && $Passwort eq $pwrein){
 
if ($cmd eq "add" || $cmd eq "mod") { 
$t_Region = $Region_x; 
      out "Ihre Region: $t_region<br>";
      if (%_put){ 
        $_put{Region}=$t_region;
        }
    } 
    do_all "Benutzer_ID==!$namerein action=all db=daten ..... , "namerein", "pwrein";
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }
}
</perl>