<% '------------------------------------------------------------- '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.