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