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