<%flags>
inherit=>undef
</%flags>
<%INIT>
my $dbh = $m->comp("/_shared/procs/utils/dbi_connect.m", database=>'guianet');
$dbh->do("update tbanners set clicked=clicked+1 where id=$id"); # incrementa contador
$m->comp("/_shared/procs/utils/redirect.m", url=>$link);
</%INIT>
<%ARGS>
$link=>undef
$id=>undef
</%ARGS>