##das mache ich nur, um die ID durchzureichen
<perl>
$Id=$ChangeId;
</perl>

<loop db=BMC_Kopie Id==$Id code=perl>
out "alte Werte:<br><br>$Titel $Vorname $Name,<br>HOG-Nummer: $HOGNummer<br>gültig bis $HOGEnde";
</loop>

<do action=input>
<do action=list listtype=mod db=BMC_Kopie Id==$Id listfields=HOGNummer,LifeMember,HOGEnde border=0 gridcolor=ff8000 headback=ff6000 headalign=middle headbold=1 databack=FE730C pagebrowse=no buttonbrowse=no>