Vi ste
<%
CounterFile = Server.MapPath ("/asp") & "\promo.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
%>. posjetitelj od 22.11.1997.
