Bookstore Page Count
| Date |
Visits |
Category |
<%
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/bookstore_counter.mdb") & ";"
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open DataSource
SQL_query = "SELECT * FROM PageCount"
Set RS=MyConn.Execute(SQL_query)
while not rs.eof
IF BGColor = "#F7F7E7" THEN
BGColor = "#E7E7D6"
ELSE
BGColor = "#F7F7E7"
END IF
%>
| <%=RS("OpenDate")%> | <%=RS("counter")%> | <%=RS("category")%> |
<%
RS.movenext
wend
RS.Close
Set RS = nothing
MyConn.Close
Set MyConn = nothing
%>