<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>&nbsp;</td>\n";
     }
    </perl>
   </tr>