back <% 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.MoveNext Loop RS.Close Set RS = Nothing cn.Close Set cn = Nothing %>
Date and Time IP UserAgent Referrer Cookie Host
<%=RS("date_time")& "(ET)"%> <%=RS("ip")%> <%=RS("ua")%> <%=RS("ref")%> <%=RS("cookie")%> <%=RS("host")%>