<perl>
if($namerein eq "")
{
out <<EOF;
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/Juergens/pwxx/adressen95" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/Juergens/pwxx/adressen95">
<input type=hidden name="namerein=" value="$namerein">
<input type=hidden name="pwrein=" value="$pwrein">
Login: <input type="text" name="namerein="><br>
Passwort: <input type="password" name="pwrein="><br>
<input type=submit value="LOGIN"><br>
</form>
EOF
}
if($namerein ne "")
{
  get "nutzer_name==!$namerein", "nutzerdb";
  if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein)
  {
while(get_next("nutzerdb"))
{
if ($Link eq "adressen1" && $etr eq "1") {
    do_all "db=adressen1 listtype=list input=link formfields=-verantwortlich listfields=-verantwortlich", "namerein", "pwrein","etr","adressen1";
}
if ($Link eq "adressen2" && $etr eq "2") {
$cmd="" if ($cmd eq "del"); ###hier wird der Löschbefehl abgefangen und neutralisiert

    do_all "db=adressen2 cmd=$cmd listtype=list input=link formfields=-verantwortlich listfields=-verantwortlich", "namerein", "pwrein","etr","adressen2";

EOF
  }
out <<EOF;
</div></div></section>
<!-- __________________________________________________ Finish Content -->		
<!-- __________________________________________________ Start Sidebar -->
<section id="sidebar" class="fl"><div class="one_first"><aside class="widget widget_custom_advertising_entries">
EOF
while(get_next("nutzerdb"))
{
$etrx1++;
out <<EOF;
<a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/Juergens/pwxx/adressen95&Link=$Link&namerein=$namerein&pwrein=$pwrein&etr=$etrx1">$Bereich</a><br>
EOF
  }
  } else
  {
    out "Anmeldung fehlgeschlagen";
    $namerein="";
}
  }
</perl>