<do action=all selectbrowse=no range^=0,20 pagebrowse=no buttonbrowse=bottom listtype=list listfields=ObjektNr,Ort,Region,Land,Objektart,Objektkategorie,Jahresumsatz,Pacht,Kauf/Abloesesumme allfields=-Id,Detailaufrufe input=link databack=f0f0f0 datasize=2 headback=#CCCCFF border=0 spacing=1 padding=2 gridcolor=b0b0b0 dataface=arial,helvetica dataface=arial,helvetica>

if ($cmd eq "all") { 
get "Id==$_id","Objekte";
  $Detailaufrufe++;
  mod "Id==$_id", ["Detailaufrufe",$Detailaufrufe],"Objekte";
 }
</perl> 

<perl>
unless ($_sel{ObjektNr}=~ /^(\d{4,4})$/)
{ 
 
out "Bitte geben Sie die 4-stellige ObjektNr ein"; 
   $inc="";
} else
{
$inc="Expose2";
}
</perl>
<include src=$inc>

<do action=all ObjektNr==$_sel{ObjektNr} listtype=all db=Objekte listfields=-Id,Detailaufrufe showamount=no selectbrowse=no Buttonbrowse=no databack=f0f0f0 datasize=2 headback=#CCCCFF border=0 spacing=1 padding=2 gridcolor=b0b0b0 dataface=arial,helvetica>
<perl>
$Detailaufrufe++; 
mod "Id==$_id",["Detailaufrufe",$Detailaufrufe],"Objekte";
</perl>