<% 'Code and (C) Jan P Glensnov 'Tlf: 51607435 Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("../counter.txt") on error resume next Set count = fs.OpenTextFile(Wfile) hits = Clng(count.ReadLine) hits = hits + 1 count.close if error then hits = 1 end if Set count = fs.CreateTextFile(Wfile,True) count.WriteLine(hits) count.Close %>