<perl>
@liste;
$"=' ';
get "Absender~=$Absender sort=Absender" , "/Greggi/Usersongs/Users";
while (get_next("/Greggi/Usersongs/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++; 
}

$i=0;
for (@felder)
{
unless ($i>=5)
{
$url=convert_url($_);
out "<tr bgcolor=#".($i%2==0?"000000":"FFFFFF").">";
out <<EOF;
<td>
<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;
</td></tr>
EOF
$i++;
}
}
</perl>