<perl>
if($namerein ne "")
{
get "Benutzer==!$namerein", "nutzer";

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>