<perl>
get "Id==$id", "admin";
$aname=$neme;
$apasswort=$passwort;
$atext=$text;

{
out<<EOF;
Name= $aname,<br>Passwort= $apasswort,<br>Text= $atext
<table border=1>
<p>Eintrag ändern:<table><form action="baseportal.pl?htx=/hempelr/admin/admin_mod$id=$id" method="post" enctype="multipart/form-data">
<tr><td align=right>
<input type="hidden" name="cmd=" value="mod">
<input type="hidden" name="$htx=" value="$htx">
<font size=2 face=arial,helvetica>neme:</td>
<td><font size=2 face=arial,helvetica><input type="text" name="neme:=" size=20 value=$aname>
EOF
out<<EOF;
</td></tr>
<tr><td align=right><font size=2 face=arial,helvetica>passwort:</td><td><font size=2 face=arial,helvetica><input type="text" name="passwort:=" size=20 value=$apasswort>
EOF
out<<EOF;
</td></tr><tr><td align=right><font size=2 face=arial,helvetica>text:</td><td><font size=2 face=arial,helvetica><input type="text" name="text:=" size=20 value=$atext>
EOF
out<<EOF;
</td></tr><tr><td></td>
<td nowrap><input type=submit value="Abschicken">  <input type=reset value="Zur&uuml;cksetzen"> </td></tr></form>
</table>
EOF
$aname="";
$apasswort="";
$atext="";
}