<%
response.write SixDaysAgo
%>
|
<%
response.write FiveDaysAgo
%>
|
<%
response.write FourDaysAgo
%>
|
<%
response.write ThreeDaysAgo
%>
|
<%
response.write TwoDaysAgo
%>
|
<%
response.write Yesterday
%>
|
<%
response.write Today
%>
|
<% response.write WeekdayName(Weekday(SixDaysAgo)) %>
|
<% response.write WeekdayName(Weekday(FiveDaysAgo)) %>
|
<% response.write WeekdayName(Weekday(FourDaysAgo)) %>
|
<% response.write WeekdayName(Weekday(ThreeDaysAgo)) %>
|
<% response.write WeekdayName(Weekday(TwoDaysAgo)) %>
|
<% response.write WeekdayName(Weekday(Yesterday)) %>
|
<% response.write WeekdayName(Weekday(Today)) %>
|
<%
sql6daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & SixDaysAgo & "# "
sql6daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & SixDaysAgo & "# )"
Dim Show6DayAgo, Show6DayAgo2
Set Show6DaysAgo = adoCon.Execute(sql6daysago)
Set Show6DaysAgo2 = adoCon.Execute(sql6daysago2)
Response.Write Show6DaysAgo(0)
Response.Write " (" & Show6DaysAgo2(0) & ")"
%>
|
<%
sql5daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & FiveDaysAgo & "# "
sql5daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & FiveDaysAgo & "# )"
Dim Show5DayAgo,Show5DayAgo2
Set Show5DaysAgo = adoCon.Execute(sql5daysago)
Set Show5DaysAgo2 = adoCon.Execute(sql5daysago2)
Response.Write Show5DaysAgo(0)
Response.Write " (" & Show5DaysAgo2(0) & ")"
%>
|
<%
sql4daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & FourDaysAgo & "# "
sql4daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & FourDaysAgo & "# )"
Dim Show4DayAgo, Show4DayAgo2
Set Show4DaysAgo = adoCon.Execute(sql4daysago)
Set Show4DaysAgo2 = adoCon.Execute(sql4daysago2)
Response.Write Show4DaysAgo(0)
Response.Write " (" & Show4DaysAgo2(0) & ")"
%>
|
<%
sql3daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & ThreeDaysAgo & "# "
sql3daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & ThreeDaysAgo & "# )"
Dim Show3DayAgo, Show3DayAgo2
Set Show3DaysAgo = adoCon.Execute(sql3daysago)
Set Show3DaysAgo2 = adoCon.Execute(sql3daysago2)
Response.Write Show3DaysAgo(0)
Response.Write " (" & Show3DaysAgo2(0) & ")"
%>
|
<%
sql2daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & TwoDaysAgo & "# "
sql2daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & TwoDaysAgo & "# )"
Dim Show2DaysAgo, Show2DaysAgo2
Set Show2DaysAgo = adoCon.Execute(sql2daysago)
Set Show2DaysAgo2 = adoCon.Execute(sql2daysago2)
Response.Write Show2DaysAgo(0)
Response.Write " (" & Show2DaysAgo2(0) & ")"
%> |
<%
sqlyesterday = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & Yesterday & "# "
sqlyesterday2 = "SELECT COUNT(*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & Yesterday & "# )"
Dim ShowYesterday, ShowYesterday2
Set ShowYesterday = adoCon.Execute(sqlyesterday)
Set ShowYesterday2 = adoCon.Execute(sqlyesterday2)
Response.Write ShowYesterday(0)
Response.Write " (" & ShowYesterday2(0) & ")"
%>
|
<%
sqltoday = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & Today & "# "
sqltoday2 = "SELECT COUNT(*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & Today & "# )"
Dim ShowToday, ShowToday2
Set ShowToday = adoCon.Execute(sqltoday)
Set ShowToday2 = adoCon.Execute(sqltoday2)
Response.Write ShowToday(0)
Response.Write " (" & ShowToday2(0) & ")"
%>
|
<%
response.write ThirteenDaysAgo
%>
|
<%
response.write TwelveDaysAgo
%>
|
<%
response.write ElevenDaysAgo
%>
|
<%
response.write TenDaysAgo
%>
|
<%
response.write NineDaysAgo
%>
|
<%
response.write EightDaysAgo
%>
|
<%
response.write SevenDaysAgo
%>
|
<% response.write WeekdayName(Weekday(ThirteenDaysAgo)) %>
|
<% response.write WeekdayName(Weekday(TwelveDaysAgo)) %>
|
<% response.write WeekdayName(Weekday(ElevenDaysAgo)) %>
|
<% response.write WeekdayName(Weekday(TenDaysAgo)) %>
|
<% response.write WeekdayName(Weekday(NineDaysAgo)) %>
|
<% response.write WeekdayName(Weekday(EightDaysAgo)) %>
|
<% response.write WeekdayName(Weekday(SevenDaysAgo)) %>
|
<%
sql13daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & ThirteenDaysAgo & "# "
sql13daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & ThirteenDaysAgo & "# )"
Dim Show13DayAgo,Show13DayAgo2
Set Show13DaysAgo = adoCon.Execute(sql13daysago)
Set Show13DaysAgo2 = adoCon.Execute(sql13daysago2)
Response.Write Show13DaysAgo(0)
Response.Write " (" & Show13DaysAgo2(0) & ")"
%>
|
<%
sql12daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & TwelveDaysAgo & "# "
sql12daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & TwelveDaysAgo & "# )"
Dim Show12DayAgo, Show12DayAgo2
Set Show12DaysAgo = adoCon.Execute(sql12daysago)
Set Show12DaysAgo2 = adoCon.Execute(sql12daysago2)
Response.Write Show12DaysAgo(0)
Response.Write " (" & Show12DaysAgo2(0) & ")"
%>
|
<%
sql11daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & ElevenDaysAgo & "# "
sql11daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & ElevenDaysAgo & "# )"
Dim Show11DaysAgo, Show11DaysAgo2
Set Show11DaysAgo = adoCon.Execute(sql11daysago)
Set Show11DaysAgo2 = adoCon.Execute(sql11daysago2)
Response.Write Show11DaysAgo(0)
Response.Write " (" & Show11DaysAgo2(0) & ")"
%>
|
<%
sql10daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & TenDaysAgo & "# "
sql10daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & TenDaysAgo & "# )"
Dim Show10DaysAgo, Show10DaysAgo2
Set Show10DaysAgo = adoCon.Execute(sql10daysago)
Set Show10DaysAgo2 = adoCon.Execute(sql10daysago2)
Response.Write Show10DaysAgo(0)
Response.Write " (" & Show10DaysAgo2(0) & ")"
%>
|
<%
sql9daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & NineDaysAgo & "# "
sql9daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & NineDaysAgo & "# )"
Dim Show9DaysAgo, Show9DaysAgo2
Set Show9DaysAgo = adoCon.Execute(sql9daysago)
Set Show9DaysAgo2 = adoCon.Execute(sql9daysago2)
Response.Write Show9DaysAgo(0)
Response.Write " (" & Show9DaysAgo2(0) & ")"
%>
|
<%
sql8daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & EightDaysAgo & "# "
sql8daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & EightDaysAgo & "# )"
Dim Show8DaysAgo, Show8DaysAgo2
Set Show8DaysAgo = adoCon.Execute(sql8daysago)
Set Show8DaysAgo2 = adoCon.Execute(sql8daysago2)
Response.Write Show8DaysAgo(0)
Response.Write " (" & Show8DaysAgo2(0) & ")"
%> |
<%
sql7daysago = "SELECT COUNT (*) FROM Visitor WHERE VisitDate=#" & SevenDaysAgo & "# "
sql7daysago2 = "SELECT COUNT (*) FROM (SELECT DISTINCT IP FROM Visitor WHERE VisitDate=#" & SevenDaysAgo & "# )"
Dim Show7DayAgo, Show7DayAgo2
Set Show7DaysAgo = adoCon.Execute(sql7daysago)
Set Show7DaysAgo2 = adoCon.Execute(sql7daysago2)
Response.Write Show7DaysAgo(0)
Response.Write " (" & Show7DaysAgo2(0) & ")"
%>
|