<% Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing %>

    Providing:
  • Expert Gunsmithing
  • Restocking and Restorations
  • Fine Vintage Shotguns
  • Antiques and Accessories for the Shooting Sportsman
  • Professional Expert Appraisals

     

Also, if you're in the vicinity, Please visit our new Showroom located at:

672 Shoppers Lane Covina, CA. 91723

Tel. 626-915-4022  Fax 626-915-2771

Welcome to Ivory Beads.com!!! 

Please excuse us while our website is changing!  Watch for updates and modifications on a continuous basis!

ivorybeads

ivorybeads

Ask for Jerry Kitto or Jim Thynne - Lifetime Members N.R.A. - Lifetime Members P.G.C.A.- Board Members of So. Cal. Side by Side Society
<% =CounterHits %>