<%@ Language=VBScript %> <% 'include adoCon set rs=Server.CreateObject("ADODB.Recordset") dim ip ip=request("IP") SQL = "SELECT * FROM Visitor WHERE IP = '" & ip & "' ORDER BY VisitDate Desc " rs.Open SQL, adoCon if rs.EOF then response.write "IP did not visit any pages" else %> Close this window

History for IP "> <% =rs("IP")%> <% Do while Not rs.EOF Bool = Not Bool If Bool then Response.Write ("") Response.Write ("") Response.Write (" <% rs.MoveNext() Loop end if %>

ID	Date	Time	Page	Referrer
") Else Response.Write ("
") End If %> <% = rs("ID")%>	<% = rs("VisitDate")%>	<% = rs("VisitTime")%>	<% = rs("Page")%>	"> <% = rs("Referer")%>

<% rs.close set rs=nothing adoCon.close set adoCon=nothing %>