John C. Formant Real Estate, Inc.

<BODY> <% strRA = request.ServerVariables("REMOTE_ADDR") If Left(strRA, 10) <> "207.86.167" Then Set cc = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.RecordSet") cc.Open "LogDB" rs.open "Stat", cc, adOpenDynamic, adLockOptimistic, adCmdTable Dim aryField(4) aryField(0) = "SDate" aryField(1) = "Date" aryField(2) = "RemoteAddr" aryField(3) = "RemoteHost" aryField(4) = "UserAgent" Dim aryValue(4) aryValue(0) = Now aryValue(1) = Now aryValue(2) = strRA aryValue(3) = request.ServerVariables("REMOTE_HOST") aryValue(4) = request.ServerVariables("HTTP_USER_AGENT") rs.AddNew aryField, aryValue rs.Close cc.Close End If %> Viewing this page requires a browser capable of displaying frames. <img src="/cgi-bin/Count.cgi?sh=0|df=page1.dat"> </BODY>