<perl>
get "Id==* sort=_Monat_Geburtstag", "main", "ergebnis";
while(get_next("ergebnis")){
$geb=datum("$Geburtstag", "Tag0.Monat0.Jahr2");
$mon = datum("$Geburtstag","Monatname");
out<<EOF;
<u><b>Geburtstage im Monat $mon</b></u><br>
$Vorname ($geb)
<br><hr><br>
EOF
}
</perl>

<do db=anmeldung_aupair action=all range^=0,100 listfields=Geburtstag,Vorname showamount=no selectbrowse=no buttonbrowse=top pagebrowse=no listtype=list language=de detail=no search=no input=no>