Metal Rubber TM

<%@LANGUAGE="VBSCRIPT"%> <% ' *** Visit Counter *** ' FELIXONE 2002 - SB by Felice Di Stefano - www.felixone.it Dim FX_count Dim MR_digit MR_digit = 8 Dim MR_dpath MR_dpath = Server.MapPath("FX_DataCounter") Dim MR_fpath MR_fpath = Server.MapPath("FX_DataCounter/MRcounter.txt") set MR_fso = Server.CreateObject("Scripting.FileSystemObject") ' Check if directory and file exists, if not create it. If (Not MR_fso.fileExists(MR_fpath)) Then If (Not MR_fso.folderExists(MR_dpath)) Then MR_fso.CreateFolder(MR_dpath) End If Application.Lock() set MR_file = MR_fso.OpenTextFile(MR_fpath, 8, true) MR_file.write(999) MR_file.Close() Application.Unlock() End If ' Read file and update it once per session set MR_fobj = MR_fso.getfile(MR_fpath) set MR_file = MR_fobj.OpenAsTextStream(1,-2) FX_count = MR_file.Read(100) Application.Lock() set MR_file = MR_fso.CreateTextFile(MR_fpath, 8, false) MR_file.write(FX_count+1) MR_file.Close() Application.Unlock() set MR_fso = nothing FX_count = FX_count+1 Session("FX_DataCounter") = FX_count ' Add leadings MR_numlength = Len(cStr(FX_count)) If (MR_numlength < MR_digit) Then MR_lead = cInt(MR_digit - MR_numlength) For i=1 To MR_lead FX_count = "0" & FX_count Next End If %> Metal Rubber TM