<% '------------------------------------------------------------- 'StatCounteX 3.1 'http://www.2enetworx.com/dev/projects/statcountex.asp 'File: admin.asp 'Description: StatCounteX Reports Main Page 'Initiated by Hakan Eskici on Nov 18, 2000 'See credits.txt for the list of contributors 'You may use the code for any purpose 'But re-publishing is discouraged. '------------------------------------------------------------- 'Change Log: '------------------------------------------------------------- %> StatCounteX 3.1
Truly Scrumptious Fabrics Stats

<% sToday = month(date) & "/" & day(date) & "/" & year(date) 'Fixed by Don dtYesterday = DateAdd("d", -1, now) sYesterday = month(dtYesterday) & "/" & day(dtYesterday) & "/" & year(dtYesterday) OpenDB sConnStats 'Total PageViews sSQL = "SELECT COUNT(StatID) AS Total FROM Stats" rs.Open sSQL,,,adCmdTable lPageViewsTotal = rs("Total") rs.close sSQL = "SELECT COUNT(StatID) AS Total FROM Stats WHERE Date = #" & sToday & "#" rs.Open sSQL,,,adCmdTable lPageViewsToday = rs("Total") rs.close sSQL = "SELECT COUNT(StatID) AS Total FROM Stats WHERE Date = #" & sYesterday & "#" rs.Open sSQL,,,adCmdTable lPageViewsYesterday = rs("Total") rs.close sSQL = "SELECT IP FROM Stats GROUP BY IP" rs.Open sSQL,,,adCmdTable lVisitorsTotal = rs.recordcount rs.close sSQL = "SELECT IP FROM Stats WHERE Date = #" & sToday & "# GROUP BY IP" rs.Open sSQL,,,adCmdTable lVisitorsToday = rs.recordcount rs.close sSQL = "SELECT IP FROM Stats WHERE Date = #" & sYesterday & "# GROUP BY IP" rs.Open sSQL,,,adCmdTable lVisitorsYesterday = rs.recordcount rs.close sSQL = "SELECT TOP 1 * FROM TopPageViewsPerDay" rs.Open sSQL,,,adCmdTable If Not Rs.eof Then rs.MoveFirst lTopViews = rs( "Total" ) sTopViewsDay = rs("Date") End If rs.close sSQL = "SELECT TOP 1 * FROM TopIpsPerDay" rs.Open sSQL,,,adCmdTable If Not Rs.Eof Then rs.MoveFirst lTopVisitors = rs( "Total" ) sTopVisitorsDay = rs("Date") End If rs.close sPageViewsToday = formatnumber(lPageViewsToday, 0) sPageViewsYesterday = formatnumber(lPageViewsYesterday, 0) sPageViewsTotal = formatnumber(lPageViewsTotal, 0) sVisitorsToday = formatnumber(lVisitorsToday, 0) sVisitorsYesterday = formatnumber(lVisitorsYesterday, 0) sVisitorsTotal = formatnumber(lVisitorsTotal, 0) sTopViews = formatnumber( lTopViews, 0 ) sTopVisitors = formatnumber( lTopVisitors, 0 ) %>

Summary

<% 'Fixed by Don %>
PageViews Visitors
Today <%=sPageViewsToday%> <%=sVisitorsToday%>
Yesterday <%=sPageViewsYesterday%> <%=sVisitorsYesterday%>
Top Day <%=sTopViews%>
(<%=sTopViewsDay%>)
<%=sTopVisitors%>
(<%=sTopVisitorsDay%>)
Total <%=sPageViewsTotal%> <%=sVisitorsTotal%>

Detailed Statistics (all data)

View detailed reports to see the statistics about Browsers, Resolutions, Colors, Operating Systems Pages and Referers.
View page views for all pages.
View all referers.
View time specific page views.
View click paths (IP addresses).

Graphs (all data)

View Page Views and Visitors by Hour.
View Page Views and Visitors by Day of Week.
View Page Views and Visitors by Day of Month.
View Page Views and Visitors by Week of Year.
View Page Views and Visitors by Month.
View Page Views and Visitors by Year.

Administration

View Administration Page.