Page Hit Counter System Page 3

The hit report page is straightforward. We basically loop thru
the hits table and display each  pages results and tally the
grand total for the 3 categories( daily, monthly and total). Since
we dont rotate all totals automatically we must check the hit_date
and todays date to verify if the month and day totals need to be
reported.

Conn.Open(“web_odbc”)
Set RS = Conn.Execute(“SELECT * FROM
hits  ORDER BY total_hits DESC”)

total =
0        ‘
Three variables to running totals
T_MONTH = 0
T_TODAY =
0

Do While NOT RS.EOF %>
td_dt =
now()

if datediff(“d”,RS(“last_dt”), td_dt) 0
then  ‘check to see if the hits are
todays
    todays_hits = 0  
‘hits not today so dont
include
else
   todays_hits =
RS(“today”)  ‘they were today so
include
end if
if datediff(“M”,RS(“last_dt”), td_dt)
0 then ‘ check to see if the hits are
this months
   MONTHS_hits =
0
else
   MONTHS_hits = RS(“MONTH”)
end if

%>

Loop

RS.Close
Conn.Close

set rs =
nothing
set conn = nothing
%>

‘write out grand
totals
TOTAL PAGE HITS:

TOTAL HITS
TODAY:

TOTAL THIS
MONTH:

CURRENT ONLINE USERS :

HIGHEST NUMBER
OF SIMULTANEOUS CONNECTIONS: