#!/usr/bin/perl

require 'anneau.pl';

print "Content-type: text/plain\n\n";
print "document.write('<table border=0>');\n";

# récupération et affichage de toutes les bannières
$lis{'total'}++;
for ($parc=1;$parc<=$nb;$parc++)
{
 &lister;

 if ($parc eq '1')
 {
  $lis{$select}++;
 }

 $pla{$select}+=$parc;
 print "document.write(' <tr>');\n";
 print "document.write('   <td>');\n";
 print "document.write('     <center><br>$texte</center>');\n";
 print "document.write('   </td>');\n";
 print "document.write(' </tr>');\n";
 print "document.write(' <tr>');\n";
 print "document.write('   <td>');\n";
 print "document.write('     <a href=\"$lien\" target=\"_blank\"><img src=\"$image\" height=62 border=2 alt=\"$texte\" width=\"468\"></a>');\n";
 print "document.write('     <br>');\n";
 print "document.write('   <td>');\n";
 print "document.write(' </tr>');\n";
}
print "document.write('</table>');\n";

# mise à jour des stats
&majstats;