<perl>
if ($cmd eq "owndel") {
 out "L&ouml;schen verboten!<br> Bitte senden Sie die ObjektNr des zu l&ouml;schenden Objektes per E-Mail an uns!<br>
Vielen Dank!";
 $_get{'cmd'}="";
 $cmd="";

if ($cmd eq "ownmod") {
 mod;
 out "Datensatz ge&auml;ndert<br>";
 $_get{'cmd'}="";
 $cmd="";
}
</perl>
<do KundenNr==$KundenNr Benutzer==$Benutzer action=all db=profis_input selectbrowse=no formfields=-ObjektNr,Objekt\ aktiv\ bis,MaxObjekte,Benutzer,KundenNr,next allfields=-Id,next listfields=ObjektNr,Objekt\ aktiv\ bis,Objektname sort=ObjektNr mail_put=db@gastro4sale.de mail_mod=db@gastro4sale.de databack=f0f0f0 datasize=2 headback=#CCCCFF border=0 spacing=1 padding=2 gridcolor=b0b0b0 dataface=arial,helvetica range^=0,20 pagebrowse=no buttonbrowse=top listtype=list input=link>
</body></html>