<perl>
if ($cmd eq "")
{
get"name==$name", "hier Dein Datenbankname";
}

{
mod "name==!$name", ["text", "$text", "text1", "$text1", "text2", "$text2"], "daten";
}
out <<EOF;
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/thomas_sepp/formular" method=post enctype="multipart/form-data">
<input type="hidden" name="cmd=" value="mod">
<input type="hidden" name="name:=" value="$name">
<input type="hidden" name="db:=" value="daten">
name: <input type="text" name="name:=" value="$name"><br>
text: <textarea name="text:=" cols=40 rows=7>$text</textarea>
text1: <textarea name="text1:=" cols=40 rows=7>$text1</textarea>
text2: <textarea name="text2:=" cols=40 rows=7>$text2</textarea>
<br>
<input type="submit" value="senden" />
</form>
EOF
</perl>
<do action=all  ....... hier Deine weiteren Parameter.....>

if ($cmd eq "mod")
{
$cmd="";
$_header="Location: http://baseportal.de/cgi-bin/baseportal.pl?htx=/thomas_sepp/formular&name=$name\n\n";
}
</perl>