<table border="0" cellpadding="4" cellspacing="1" width=100%>
              <tr bgcolor="#800000"> 
                <td> 
                  <div align="center"><font face="Arial, Helvetica, sans-serif" size="1" color="#FBE3AD">Top 5 Submitter</font></div>
                </td>
              </tr>
<perl>

$"=' ';
get "Absender~=$Absender sort=Absender" , "Users";
while (get_next("Users"))
{
if (index(" @liste "," $Absender ")<0)
{
push (@zahl, $i) if $_loop != 0;
$i=0; 
push (@liste, $Absender);
$i++;
}else
{
$i++;
}
}
push (@zahl, $i);

for (@liste)
{
$ausgabe{$_}=$zahl[$x];
$x++; 
}

for (@felder)
{
$url=convert_url($_);
out <<EOF;
           <tr bgcolor="#FF9933">
             <td onMouseOver="mOver(this);" onMouseOut="mOut(this);" onClick="mClick(this);">
<font size="1" face="Arial, Helvetica, sans-serif">
<a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/Greggi/Usersongs/Liste&Absender~=$url">
EOF
{
out "$_</a> ($ausgabe{$_} ".($ausgabe{$_}==1?"Eintrag":"Einträge").")";
}
out <<EOF;
</font></td></tr>
EOF
}

</table>