<loop db=/Medienzentrum/buchtipps_erwachsene sort=- code=perl>
++$i;
out "<a name="$dateiname"></a>";
out <<EOF;
<h3>$monat</h3>
<b>$autor:</b>
<br><b><font color="#FF0000">$titel</font>
</b>
<br>$verlag, $erscheinungsjahr
<br>&nbsp;
<table>
<tr valign=top>
<td><img src="http://www.stadtbibliothek.ratingen.de/rati2-1-2/$buchcover_dateiname.jpg"></td>

<td>
<p>$volltext1</p>
</td>
</tr>
</table>
<p>$volltext2</p>

<hr noshade size="5" color="blue">
EOF
</loop>