<perl>
$DATUM=datum("jetzt", "Tag.Monat.Jahr");
get "ip==$_REMOTE_ADDR Nutzung~=$DATUM","Nutzerstatistik";
$schonda=$_amount;
if($schonda==0)
{put ["ip","$_REMOTE_ADDR","port",$_REMOTE_PORT,"useragent",$_HTTP_USER_AGENT,"Ref","$_HTTP_REFERER","Klick","1","Nutzung","$DATUM"], Nutzerstatistik;}
else {$Zaehler=$Klick;$Zaehler++; mod "ip~=$_REMOTE_ADDR Ref~=$_HTTP_REFERER Nutzung~=$DATUM",["Klick","$Zaehler"],"Nutzerstatistik";}
out "$_amount_all";</perl> Datensätze

$s1+=$Klick;
</loop>
<table>
<tr bgcolor=CCCCCC><td align=right>Counter </td><td align=right><b>$s1</b></td></tr>