<% @LANGUAGE = VBScript %> <% Option Explicit %> <% Dim objFSO,objcount,objpath,hits,picfrm picfrm = "fashionshows" objpath = "d:\websites\tonypreece\stats\" objpath = objpath & picfrm & ".txt" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objcount = objFSO.OpenTextFile (objpath, 1, True) If Not objcount.AtEndOfStream Then hits = CLng(objcount.ReadAll) Else hits = 0 End If objcount.Close Set objcount = Nothing hits = hits + 1 Set objcount = objFSO.CreateTextFile (objpath, True) objcount.Write hits objcount.Close Set objcount = Nothing Set objFSO = Nothing %>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15