Visitors since 2005-10-01 - <% Const ForReading = 1, ForWriting = 2, ForAppending = 8 set fso = server.createobject("Scripting.FileSystemObject") pth = server.mappath("\") Set f = fso.OpenTextFile(pth & "\counter.txt", ForReading, True) tmp = f.readline f.close response.write tmp %>