<% ' *** 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 %>

Luff Industries Ltd webTV!

luffindustries.com
Click here

luffindustries.com
Click here

luffindustries.com
Click here

"You need Billy's Media Player for webTV to work" Myk Aussie

"Click on the "Play" button below!
It's just before & after the webTV show description. WebTV starts within 3-5 sec's." Myk

                 Luff Industries Ltd webTV
             ITip: If webTV doesn't work Click here

Play Extra High Speed 6 mins. Part 1 - Luff Industries - Drum Pulley Assembly. Includes a) The Paperwork. b) Getting the Parts.
Play This version plays within the Media Player Screen.

              WebTV designed by "MYKwebWORLD"& Sexy site

<%=FX_count%>

luffindustries.com
Click here

luffindustries.com
Click here

luffindustries.com
Click here