<%
Dim strFilePath
Dim strObjFile
Dim strObjStream
Dim strTemp
strFilePath = Server.MapPath("\weblib\counter\hits_resources.txt")
Set strObjFile = CreateObject("Scripting.FileSystemObject")
Set strObjStream = strObjFile.OpenTextFile (strFilePath, 1)
strTemp = strObjStream.ReadLine+1
strObjStream.Close
Set strObjStream = strObjFile.OpenTextFile (strFilePath, 2)
strObjStream.WriteLine(strTemp)
strObjStream.Close
%>
Visitors (started Jun/01/05) : <% = strTemp %>
