| INTERCOMS |
HEADSETS |
SCANNERS |
| RACE
EQUIPMENT |
TEAM
EQUIPMENT |
RENTALS
and SALES |
| |
RACE
TICKETS |
|
OFFICE HOURS:
Monday
thru Friday 10 AM to 6 PM EST.
*** ATTENTION CUSTOMERS
***
Welcome to the 2010 Race Season!! Due to last years disappointing rental
requests, FanComm will not be providing rental units this year
except by special request. Please email us to see if rentals will be available
for your race!
Click
On the Car to ENTER this site.
If
you notice a problem with a link or this site,
Please call me at 513 520-8773 or email me at richard@fancomm.com
and let me know about it. Thanks for you help.
Welcome to FanComm
Enterprises Website
<%
Set oFs = CreateObject("Scripting.FileSystemObject")
'in case first visit and file doesn't exist
on error resume next
Set oFile= oFs.OpenTextFile(Server.MapPath("HitCount.txt"),1)
'No more errors should occur
on error goto 0
if isObject(oFile) then
lHitCount = oFile.ReadLine
if isNumeric(lHitCount) then
lHitCount = clng(lHitCount)
else
lHitCount = 0
end if
oFile.Close
else
lHitCount = 0
end if
'This is the current hit count
'Write it out anywhere on the page
'Example is given below
lHitCount = cstr(lHitCount + 1)
'Save New Count to File
Set oFile= oFs.CreateTextFile(server.mappath("HitCount.txt"),True)
oFile.writeLine cstr(lHitCount)
oFile.close
set oFs=nothing
%>
You are visitor number
<%=lHitCount %>
.
Customer Counter Restarted on 07/31/08
Copyright
© 1998,thru 2010 by FanComm Enterprises, Inc., All
rights reserved