% ' *** 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 = Server.MapPath("FX_DataCounter") Dim FX_fpath FX_fpath = Server.MapPath("FX_DataCounter/webUSAussieFooty.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 %>
| |||
Ph: (403) 650-DENT (3368) Dent
Force Inc in Calgary Alberta is a mobile paint less dent removal process
on vehicles. It is a environmentally friendly process, the vehicle
retains the original paint and panels and your vehicle is repaired in
hours.
Using the Dent Force process is a
environmentally friendly process! |
|