<%@ Language=VBScript %>
Website Statistics
<%
Dim ThreeMonths, DateFrom, DateTo
ThreeMonths = DateAdd("d", -30, Date())
DateFrom = request.form("datefrom")
if DateFrom = "" then
DateFrom = ThreeMonths
else
end if
DateTo = request.form("dateto")
if DateTo = "" then
DateTo = Date()
else
end if
%>
Visits
(
<%
response.write DateFrom
%>
through
<%
response.write DateTo
%>
)
<%
'include adoCon
set rs=Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Visitor WHERE VisitDate >= #" & DateFrom & "# AND VisitDate <= #" & DateTo & "# ORDER BY ID Desc"
rs.Open SQL, adoCon
%>
| ID |
Date |
Time |
IP |
Page |
Referrer |
<%
Do while Not rs.EOF
%>
| <% = rs("ID")%> |
<% = rs("VisitDate")%> |
<% = rs("VisitTime")%> |
<% if rs("IP") < "17" or rs("IP") <> "unknown" then %>
"><% = rs("IP")%>
"> > |
<% else %>
<% = rs("IP")%>
|
<% end if %>
<% = rs("Page")%> |
"><% = rs("Referer")%> |
<%
rs.MoveNext()
Loop
%>
<%
rs.close
set rs=nothing
adoCon.close
set adoCon=nothing
%>