% Set objFSO = CreateObject("Scripting.FileSystemObject") ' THIS IS THE HIT COUNTER SECTION bUseImages = false strCountFileName = Server.MapPath("data/recycle.cnt") Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) If Not objCountFile.AtEndOfStream Then iCount = CLng(objCountFile.ReadAll) Else iCount = 0 End If objCountFile.Close Set objCountFile = Nothing blnUpdateCounter = "T" if Request.ServerVariables("REMOTE_HOST") = "192.168.1.1" then blnUpdateCounter = "F" end if if Request.ServerVariables("REMOTE_HOST") = "64.145.126.54" then blnUpdateCounter = "F" end if if blnUpdateCounter = "T" then if Session("Logged") <> "T" then iCount = iCount + 1 Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) objCountFile.Write iCount objCountFile.Close Set objCountFile = Nothing strCounter = "" End If End If strCounter = iCount Session("Logged")="T" %>