<input type="checkbox" name="xtodelete" value=1 style="color: #FF0000; border: 2px solid #FF0000">

<perl>

if($Id ne "")
{
  get "Id==$Id";

  if($xvorname && $xnachname)
  {
    if($passwort eq $xpasswort)
    {
      if($xtodelete == 1)
          {
            #out "<h4>Variablen wert (xtodelete)=\"$xtodelete\"<h4>";

            out "<b>empfänger aus liste gelöscht!</b>";
          } else
          {
            mod "Id==$Id", ["vorname",$xvorname,"nachname",$xnachname,"mailadresse",$xmailadresse];
            out "<b>Eintrag geändert (sofern gültige mailadresse angegeben wurde)...</b>";
          }
    } else
    {
      out "<b>passwort falsch!</b>";
    }
  } else
  {

    out <<EOF;

<table>
<form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="Id=" value="$Id">
<tr><td>vorname:</td><td><input type="text" name="xvorname=" value="$vorname"></td></tr>
<tr><td>nachname:</td><td><input type="text" name="xnachname=" value="$nachname"></td></tr>
<tr><td>mailadresse:</td><td><input type="text" size="70" name="xmailadresse=" value="> nicht einsehbar! - muss bei jeder änderung neu gesetzt werden! <"></td></tr>
<tr><td>passwort:</td><td><input type="password" name="xpasswort="></td></tr>
<tr><td>aus liste löschen:</td><td><input type="checkbox" name="xtodelete" value=1 style="color: #FF0000; border: 2px solid #FF0000"></td></tr>
<tr><td></td><td><input type=submit value="abschicken"> <input type=reset value="cancel"></td></td>
</form></table>
<p>
EOF

  }
  out "<p><a href=\"$_link\">sich neu in die mailinglist eintragen</a>";

{
  out "<h4>neuer eintrag</h4>";
  out "mit dem passwort kannst du den eintrag später bearbeiten.";

  init; get;
  list "add";

get;

out "<table><tr><td>vorname</td><td>nachname</td></tr>";
out "<table><tr><td><hr></td><td><hr></td></tr>";
while(get_next)
{
  out "<tr><td><a href=\"$_link&Id=$_id\">$vorname</a></td><td>$nachname</td></tr>";
}
out "</table>";
</perl>