Hi Christoph,
bitte schön:
if ($act eq "kunde")
{
 if ($mod eq "mod")
 {
 mod "Id==$ku_id",  ["kunde","$kunde","ku_vorname","$ku_vorname","ku_nachname","$ku_nachname","ku_strasse","$ku_strasse","ku_plz","$ku_plz","ku_ort","$ku_ort","ku_land","$ku_land","ku_telefon","$ku_telefon","ku_fax","$ku_fax","ku_email","$ku_email","ku_anlage", "$ku_anlage","ku_nebenstellen","$ku_nebenstellen","ku_wunsch","$ku_wunsch","ku_provision","$ku_provision","ku_status","$ku_status","ku_intern","$ku_intern","provision","$provision"],"../auftrag/auftrag";
 out "<font size=5>Auftrag gespeichert";
 }elsif ($del eq "del")
 {
 del "Id==$ku_id","../auftrag/auftrag";
 out "<font size=5>Auftrag gelöscht";
}
 get "Id==$ku_id","../auftrag/auftrag";
 out <<EOF;
 <table bgcolor=d0d0d0 border=1><center><tr><td>
 
 <table><tr><td>
 
 <table border=1 bgcolor=b0b0b0> 
 </b>
 <form action="admin&namerein=$namerein&sid=$sid_aktuell" method="post"  enctype="multipart/form-data">
<input type=hidden name="dev=" value="change">
<input type=hidden name="mod=" value="mod">
<input type=hidden name="act:=" value="kunde">
<input type=hidden name="ku_id=" value="$ku_id">
<input type=hidden name="mod:=" value="mod">
<input type=hidden name="db=" value="../auftrag/auftrag">
<input type=hidden name="userid:=" value="$did">
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Kunde:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="kunde:="
  size=25 value="$kunde"></td></tr>
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Vorname:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_vorname:="
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Nachname:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_nachname:="
  size=25 value="$ku_nachname"></td></tr>
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Telefon:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_tele:="
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Fax:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_fax:="
  size=25 value="$ku_fax"></td></tr>
</table></td><td>
<table border=1 bgcolor=b0b0b0>
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Strasse:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_strasse:="
  size=25 value="$ku_strasse"></td></tr>
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>PLZ:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_plz:="
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Ort:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_ort:="
  size=25 value="$ku_ort"></td></tr>
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Land:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_land:="
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>EMail:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_email:="
  size=25 value="$ku_email"></td></tr>
</table></td></tr></table></td></tr><tr><td><center>
<table border=1 bgcolor=b0b0b0>
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Telefonalage:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_anlage:="
  size=50 value="$ku_anlage"></td></tr>
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Nebenstellen:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_nebenstellen:="
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Anfrage:</td>
  <td><font size=2 face=arial,helvetica><textarea name="ku_wunsch:=" cols=52
  rows=5 wrap=virtual>$ku_wunsch</textarea></td></tr>
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Intern:</td>
  <td><font size=2 face=arial,helvetica><textarea name="ku_intern:=" cols=52
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Provision:</td>
  <td><font size=2 face=arial,helvetica><input type="text" name="ku_provision:="
  size=50 value="$ku_provision"></td></tr>
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>Formular:</td>
  <td><font size=2 face=arial,helvetica color=000000>
<input type=radio name="_filec_provision=" value=0 checked> Datei behalten: 
 <input type=radio name="_filec_provision=" value=1> Keine Datei <input type=radio name="_filec_provision=" value=2> Neue Datei:<br>
<input name="provision:=" type="file" size=30 onfocus="a=this.form.elements; for(i=0; i<a.length; i++) if(a[i].name==this.name) break; a[i-1].checked=1;">
</td></tr>
 <tr>
  <td align=right bgcolor=505050><font size=2 face=arial,helvetica>STATUS:</td>
  <td><font size=2 face=arial,helvetica>
<select name="ku_status:=">
    <option>$ku_status
    <option>Infomaterial zum Kunden unterwegs
    <option>noch unschlüssig
    <option>Auftrag erteilt
    <option>Auftrag abgelehnt
    <option>Auftrag geändert und erteilt
    <option>Auftrag durchgeführt, Provision noch nicht überwiesen
    <option>Auftrag durchgeführt und Provision überwiesen
</select>
</td></tr>
 
  <tr>
  <td></td>
 <td nowrap><input type=submit value="Speichern">
  <input type=reset value="Reset"><a href="admin&namerein=$namerein&sid=$sid_aktuell&act=kunde&del=del&ku_id=$ku_id">Auftrag löschen?</a>
</td></tr></form></table>
</td></tr></table>
EOF