<B><perl>
get "Id==$beat", "test";
out "$_amount_all";
</perl></B>
 

<perl>
get "Id==$note", "beatzfeed";
  while(get_next("beatzfeed"))
  { 
   out "";
   $gesamt = $gesamt+$note; 
  }
 $schnitt = $gesamt/$_amount_query; 
$schnitt=substr($schnitt,0,3); 
 out "eure durchschnittsnote für unsere beatz:
  <u><b>$schnitt</b></u>&nbsp;&nbsp;(bei $_amount_query erhaltenen feedbacks) <br>"; 

<table BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=100%><tr><td>
<perl>  
get "sort=-Id","test"; 
while (get_next("test"))
{
out <<EOF;
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="forumline">
<tr>
<td>
 <table BORDER="0" CELLSPACING=0 CELLPADDING=0 WIDTH="100%">
<tr> <TD WIDTH="100%" background="http://truplaya.net/layout/cellpic3.gif"><font class="block-title">
 <FONT SIZE=-2 color="red"><b>$beat</b> </font> <font size="-2" face="arial">[&copy; $upload]  von $von  ;$mb mb; $min min </FONT></TD>
</TR>
<TR><TD VALIGN="TOP" COLSPAN=2 HEIGHT=21>
<FONT SIZE=-2>$beschreibung</FONT>
<br>
<a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/beatbastler/content_beatz_preview&beatId=$Id"><font size="-2">preview($beatpre)</a> 
<a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/beatbastler/content_beatz_download&beatId=$Id">download($beatdown)</font></a><a
href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/beatbastler/content_beatzfeedausw&beatId=$Id><font size="-2"><br><i>-&#62feedback</i></font></a></tr>
</TD>
</TR>
</TABLE>

</TR>
</TABLE>
<br>
EOF
}
out "";
</perl>
</td></tr></table>