<%
response.write FiveMonthsAgo
%>
|
<%
response.write FourMonthsAgo
%>
|
<%
response.write ThreeMonthsAgo
%>
|
<%
response.write TwoMonthsAgo
%>
|
<%
response.write LastMonth
%>
|
<%
response.write ThisMonth
%>
|
<%
sql5months = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 5)"
Dim Show5Months
Set Show5Months = adoCon.Execute(sql5months)
Response.Write Show5Months(0)
%>
|
<%
sql4months = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 4)"
Dim Show4Months
Set Show4Months = adoCon.Execute(sql4months)
Response.Write Show4Months(0)
%>
|
<%
sql3months = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 3)"
Dim Show3Months
Set Show3Months = adoCon.Execute(sql3months)
Response.Write Show3Months(0)
%>
|
<%
sql2months = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 2)"
Dim Show2Months
Set Show2Months = adoCon.Execute(sql2months)
Response.Write Show2Months(0)
%>
|
<%
sqllastmonth = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 1)"
Dim ShowLastMonth
Set ShowLastMonth = adoCon.Execute(sqllastmonth)
Response.Write ShowLastMonth(0)
%>
|
<%
sqlthismonth = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 0)"
Dim ShowThisMonth
Set ShowThisMonth = adoCon.Execute(sqlthismonth)
Response.Write ShowThisMonth(0)
%>
|
<%
response.write ElevenMonthsAgo
%>
|
<%
response.write TenMonthsAgo
%>
|
<%
response.write NineMonthsAgo
%>
|
<%
response.write EightMonthsAgo
%>
|
<%
response.write SevenMonthsAgo
%>
|
<%
response.write SixMonthsAgo
%>
|
<%
'<<< NOTE: SQL SERVER CODE IS ..WHERE (DATEDIFF(m, LogTime, GETDATE()) = 10) >>>'
sql11months = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 11)"
Dim Show11Months
Set Show11Months = adoCon.Execute(sql11months)
Response.Write Show11Months(0)
%>
|
<%
sql10months = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 10)"
Dim Show10Months
Set Show10Months = adoCon.Execute(sql10months)
Response.Write Show10Months(0)
%>
|
<%
sql9months = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 9)"
Dim Show9Months
Set Show9Months = adoCon.Execute(sql9months)
Response.Write Show9Months(0)
%>
|
<%
sql8months = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 8)"
Dim Show8Months
Set Show8Months = adoCon.Execute(sql8months)
Response.Write Show8Months(0)
%>
|
<%
sql7months = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 7)"
Dim Show7Months
Set Show7Months = adoCon.Execute(sql7months)
Response.Write Show7Months(0)
%>
|
<%
sql6months = "SELECT COUNT (*) FROM Visitor WHERE (DateDiff('m', VisitDate, now()) = 6)"
Dim Show6Months
Set Show6Months = adoCon.Execute(sql6months)
Response.Write Show6Months(0)
%>
|