% Set oFSO = Server.CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.OpenTextFile(server.mappath("counter.txt")) oldNum = CLng(oFile.ReadLine) oFile.Close oldNum = oldNum + 1 Set oFile = oFSO.OpenTextFile(server.mappath("counter.txt"),2,true) oFile.WriteLine(oldNum) oFile.Close strCount = oldNum %>