<perl>
if($pwrein ne "")
{
get "Passwort==!$pwrein","nutzer";
if($Name ne "" && $Name eq $namerein)
{
$nutzerId=$_id;
get "Id==$nutzerId","nutzer";
get "Id==* range=0,3","news";
out <<EOF;

<a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/??/nutzerdaten&db=nutzer&nutzerId=$nutzerId> Nutzerdaten (Adressdaten, Passwort)</a>

while (get_next("nutzer"))
{
$alternativ ="";
if($mehrfach eq "Nein") {
$mehrere="Html_code, der angezeigt werden soll, wenn Checkbox ("mehrfach") nicht aktiviert";
}
out <<EOF;
$alternativ

EOF
while (get_next("news"))
{
$termin=datum($Termin, "Tag.Monat.Jahr"); 
out <<EOF;

$Text

}
}
#Passwort falsch
  } else
  {
    out "<b>Ihre Anmeldung ist fehlgeschlagen!</b><br><br>";
    $namerein="";
  }

if($namerein eq "")
{
out <<EOF;
 
<form action="/cgi-bin/baseportal.pl?htx=/??/editieren_start2" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table width="50%" border="0" cellspacing="0" bgcolor="333333">
<tr><td>
<table width="100%" bgcolor="#C4C4C4" cellspacing="5">
<tr><td>Name:</td>
<td><input type="text" name="namerein="></td></tr>
<tr><td>Passwort:</td>
<td><input type="password" name="pwrein="></td></tr>
<tr><td height="2"></td><td height="2"> 
<input type=submit value="Anmelden" name="submit" class="inputbutton"></td></tr></table>
</td></tr></table></form>

}
</perl>