| |
This site has been visited
<%
On Error Resume Next
Dim FSO
Dim TS
Dim lngCount
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS = FSO.OpenTextFile(Server.MapPath("Database\counter.txt"),1,True)
lngCount = CLng(TS.ReadAll)
TS.Close
If Err.number = 0 Then
If Session("Visited") = "" Then
lngCount = lngCount + 1
Set TS = FSO.OpenTextFile(Server.MapPath("Database\counter.txt"),2)
TS.Write lngCount
TS.Close
End If
End If
Set FSO = Nothing
Session("Visited") = "1"
%>
<% = lngCount %>
times.
© TANSACS 2006
email us at : info@tansacs.org
Website Concept, Designed & Maintained by Dot Com Infoway |
 |