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