<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Visit Counter ***
' FELIXONE 2002 - SB by Felice Di Stefano - www.felixone.it
Dim FX_count
Dim FX_digit
FX_digit = 5
Dim FX_dpath
FX_dpath = ("FX_DataCounter")
Dim FX_fpath
FX_fpath = ("FX_DataCounter/counter.txt")
set FX_fso = Server.CreateObject("Scripting.FileSystemObject")
' Check if directory and file exists, if not create it.
If (Not FX_fso.fileExists(FX_fpath)) Then
If (Not FX_fso.folderExists(FX_dpath)) Then
FX_fso.CreateFolder(FX_dpath)
End If
Application.Lock()
set FX_file = FX_fso.OpenTextFile(FX_fpath, 8, true)
FX_file.write(0)
FX_file.Close()
Application.Unlock()
End If
' Read file and update it any time
set FX_fobj = FX_fso.getfile(FX_fpath)
set FX_file = FX_fobj.OpenAsTextStream(1,-2)
FX_count = FX_file.Read(100)
'If (Session("FX_DataCounter") = "") Then
Application.Lock()
set FX_file = FX_fso.CreateTextFile(FX_fpath, 8, false)
FX_file.write(FX_count+1)
FX_file.Close()
Application.Unlock()
set FX_fso = nothing
FX_count = FX_count+1
' Session("FX_DataCounter") = FX_count
'End If
' Add leadings
FX_numlength = Len(cStr(FX_count))
If (FX_numlength < FX_digit) Then
FX_lead = cInt(FX_digit - FX_numlength)
For i=1 To FX_lead
FX_count = "0" & FX_count
Next
End If
%>
Chuck Tiranno's Thunderhead Kennels
