<% set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("\\boswinfs03\home\users\web\b1096\whl.cdbethesda\jogjaquakeresponse\data\counter.txt", 1) count = f.ReadAll if not isNumeric(count) then count = 0 count = count + 1 f.Close set f = fso.OpenTextFile("\\boswinfs03\home\users\web\b1096\whl.cdbethesda\jogjaquakeresponse\data\counter.txt", 2) f.Writeline(count) f.Close set fso = nothing response.write "Visitor Number: " & count %>