1
2bUseImages = CBool(Request.QueryString("images"))
3strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".dat")
4Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
5' Open the file as a text stream (1 = ForReading, True = Create)
6Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
7If Not objCountFile.AtEndOfStream Then
8iCount = CLng(objCountFile.ReadAll)
9Else
10iCount = 0
11End If
12objCountFile.Close
13Set objCountFile = Nothing
14iCount = iCount + 1
15Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
16objCountFile.Write iCount
17objCountFile.Close
18Set objCountFile = Nothing
19Set objFSO = Nothing
20If bUseImages Then
21For I = 1 to Len(iCount)
22Response.Write "
<img "="" """="" ".gif""="" .="" 1)="" alt="" digit_"="" height="27" i,="" images="" mid(icount,="" response.write="" src="" width="20"/>
1"
2Next
3Else
4Response.Write iCount
5End If