<perl>
if($pwrein ne "")
{
get "Passwort==!$pwrein","nutzer";
if($Name ne "" && $Name eq $namerein)
{
$nutzerId=$_id;
get "Id==*","news";
while (get_next("news"))
{
$termin=datum($Termin, "Tag.Monat.Jahr"); 
out <<EOF;

<p> wählen Sie bitte aus, welche Ihrer persönlichen Daten Sie 
        ändern möchten:</p>
      <p> </p>
      <ul>
        <li><a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=??&db=nutzer&nutzerId=$nutzerId> Nutzerdaten (Adressdaten, Passwort)</a></li>
        <li>Weiteres</li>
      </ul>

<table width='100%' border='0' cellspacing='0' cellpadding='0' bgcolor='f0f0f0' class='text'>
<tr>
<td valign='top'> <b>$termin:</b></td><td>$Text</td></tr></table>
    
EOF
}

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

if($namerein eq "")
{
out <<EOF;
 
<p>Bitte melden Sie sich an: </p>
<form action="/cgi-bin/baseportal.pl?htx=??" 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></td></tr></table></td></tr></table>
EOF
}
</perl>