<do action=all db=deindatenbankname listtype=- selectbrowse=no range^=0,5>
<center>
<table width=90% border=1>
<tr><td><b>Betrag</b></td><td><b>blabla</b></td><td><b>sülz</b></td>
</table>
<loop db=deindatenbankname sort=- range^=0,5 code=perl>
$Betrag = sprintf('%.02f',$Betrag);
$Betrag =~ tr/./,/;
$Betrag = reverse $Betrag;
$Betrag =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
$Betrag = reverse $Betrag;
out <<EOF
<table width=90% border=0>

<td>$Name</td>
<td>$Vorname</td>
</tr></table>
EOF
</loop>