#!/usr/bin/perl

require 'anneau.pl';

print "Content-type: text/html\n\n";
print "<table border=0>";

# 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 <<_fin_;
  <tr>
    <td>
      <center><br>$texte</center>
    </td>
  </tr>
  <tr>
    <td>
      <a href=\"$lien\" target=\"_blank\"><img src=\"$image\" height=62 border=2 alt=\"$texte\" width=\"468\"></a>
      <br>
    <td>
  </tr>
_fin_
}

print "</table>";


# mise à jour des stats
&majstats;