<table>
<tr>
<perl>
$anz_tds = 4 if (!$anz_tds);
get "Id==* ","test";
$anz_les = -1;
while (get_next("test")) {
$anz_les++;
$anz_tr = $anz_les % $anz_tds;
out "<tr>\n" if (!$anz_tr);
out
<<EOF;
<td>
<font size="-2" face="arial">
<b><i>$beatname</i></b></font><br>
<font size="-2" face="arial"><b><i><font size="-2" face="arial">von: $von</i></b></font><br>
<font size="-1"><b><font size="-2" face="arial">$mb mb / $min min</b></font><br>
<font size="-1"><font size="-2" face="arial">$beschreibung</font><br>
<a href="http://www.beatbastler.com/inhalt/beat-mp3z/odtrack.php?url=http://www.beatbastler.com/inhalt/beat-mp3z/$preview"><img src="http://www.beatbastler.com/images/realplaya.jpg" width="38" height="34" align="bottom" border="0"></a>
<a href="http://www.beatbastler.com/inhalt/beat-mp3z/odtrack.php?url=http://www.beatbastler.com/inhalt/beat-mp3z/$beatmp3"><img src="http://www.beatbastler.com/images/downlogo.jpg" width="26" height="28" align="bottom" border="1"></a>
<a href="javascript:test()"><img src="http://www.beatbastler.com/images/commentslogo.gif" width="22" height="31" align="bottom" border="0"></a><br><br>
</td>
EOF
out "</tr>\n" if ($anz_tr eq $anz_tds - 1);
}
if (!$anz_tr) {
out "<td> </td>\n";
}
</perl>
</tr>