<%@ LANGUAGE="VBSCRIPT" %>
<%
On Error Resume Next
Dim intCount
Dim strFileName
strFileName = "e:\inetpub\wwwroot\eve\counter.txt"
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
Set objIn = objFile.OpenTextFile(strFileName)
If Err.number > 0 Then
intCount = 0
Else
intCount = objIn.ReadLine
objIn.close
End If
intCount = intCount + 1
Set objOut = objFile.CreateTextFile(strFileName)
objOut.WriteLine intCount
objOut.close
%>
EVE
