# <perl>
# get "Id==!$_get{Id}","dates";
# out "
# <IMG SRC=http://www.ae-pool.de/files/$upload HEIGHT=150>
# ";
# </perl>

# <do action=input>
# <loop db=dates sort=Datum,Location Datum\>-10:00 range^=0,100 code=perl>
# if ($Datum ne $Datum_merken)
# {
# out "$Datum";
# }
# out <<EOF;
# $upload
# usw.
# EOF
# $Datum_merken=$Datum;
# </loop>