<%
Dim fsoObject
Dim tsObject
Dim filObject
Dim lngVisitorNumber
Dim intWriteDigitLoopCount
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile(Server.MapPath("pages/counter/hit_count.txt"))
Set tsObject = filObject.OpenAsTextStream
lngVisitorNumber = CLng(tsObject.ReadAll)
If isEmpty(Session("blnCounterSet")) = True Then
lngVisitorNumber = lngVisitorNumber + 1
Session("blnCounterSet") = True
End if
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("pages/counter/hit_count.txt"))
tsObject.Write CStr(lngVisitorNumber)
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
'Display the graphical hit count
Response.Write("![]()
")
Next
%>
| Welcome Gamma Phi Beta, Click here to get an order form. All orders must be turned in to Jennie Geoffroy by Monday Noverber 5th. Enjoy the pictures! |
