<%
Set bwoFSO = Server.CreateObject("Scripting.FileSystemObject")
Set bwoFile = bwoFSO.OpenTextFile("e:\inetpub\countVDR.txt")
oldNum = CLng(bwoFile.ReadLine)
bwoFile.Close
newNum = oldNum + 1
Set bwoFile = bwoFSO.OpenTextFile("e:\inetpub\countVDR.txt",2,true)
bwoFile.WriteLine(newNum)
bwoFile.Close
strCount = newNum
%>
