<perl> ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
$mon += 1;
$year += 1900;
$datumheute = (10000*$year)+(100*$mon)+(1*$mday);

<loop db=meldungen sort=Sortierung code=perl>

{ 
out '<table width="100%">
<tr>
<td bgcolor="#C0C0C0"><b><font face="Arial" size="2">
&nbsp;',$Titel,'
</font></b></td>
</tr>
<tr>
<td>

out '<img src="http://www.ekma.de/0_grafik/meldungen/'.$Bild.'">' if $Bild ne "";

{ 
out '
<p><font size="2" face="Arial">
',$Text,'<br>
&nbsp;<br>
</tr>
</table>'
}
</loop>