<%
'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%> --