Posjet <% CounterFile = Server.MapPath ("/asp") & "\natjec.cnt" Set fs = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set a = fs.OpenTextFile(CounterFile, 1, 0, 0) c = a.Readline set fs = Nothing If (Request.ServerVariables("REMOTE_ADDR") > "195.29.205") and (Request.ServerVariables("REMOTE_ADDR") < "195.29.206") then else c = c + 1 Set fs = CreateObject("Scripting.FileSystemObject") set b = fs.CreateTextFile (CounterFile, 1, 0) b.WriteLine c Set b = Nothing end if Response.Write c %>. od 03.02.98