#!/usr/bin/perl


require 'anneau.pl';

# attribution d'une bannière aléatoire
&compteuriser;
&variabliser;

# insertion du HTML correspondant
print "Content-type: text/html\n\n";
print "<a href=\"$lien\" target=\"_blank\"><img src=\"$image\" height=62 border=2 alt=\"$texte\" width=\"468\"></a>";

# mise à jour des stats
$ban{"total"}++;
$ban{"$select"}++;
&majstats;