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 2009 Race Season!! We look forward to providing you with all your race equipment needs. Please remember to get your Equipment Order in early to insure we will have enough equipment to fill your order.

Check out our selection of used equipment for purchase at discount prices

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 2009 by FanComm Enterprises, Inc., All rights reserved