<% 'here we set up a connection to the txt file using a physical path Set oFSO = Server.CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.OpenTextFile("count.txt") 'now we read the number in the file oldNum = CLng(oFile.ReadLine) 'and we close oFile.Close 'we add one to the number oldNum = oldNum + 1 'we open the file to overwrite the new number to it Set oFile = oFSO.OpenTextFile("count.txt",2,true) 'and we overwrite it here oFile.WriteLine(oldNum) 'and we close the file again oFile.Close 'now we use the number for our display strCount = oldNum %>

this is a test -- <%=strCount%> --