back
Date and Time |
IP |
UserAgent |
Referrer |
Cookie |
Host |
<%
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("1C3db/testing_081708.mdb") & ";"
SQLQuery = "SELECT TOP 100 * FROM impressions order by date_time desc"
Set RS = cn.Execute(SQLQuery)
Do While Not RS.EOF
%>
<%=RS("date_time")& "(ET)"%> |
<%=RS("ip")%> |
<%=RS("ua")%> |
<%=RS("ref")%> |
<%=RS("cookie")%> |
<%=RS("host")%> |
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
cn.Close
Set cn = Nothing
%>
|