<% ' Text Hit Counter Example By www.PowerASP.com ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("/data/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 %>

Home Health Benefits References Certifications FAQ Contact Us Financing

Your Spinal Column Nervous System- The Vital Connection From the book "Reverse Aging" by Sang Whang (pg 86-89) References on Acupressure References on Acupuncture References on Back Pain References on Chiropractic References on Detoxification Therapy References on Massage References on Heat Treatments

© Copyright 2003-2004 Products4Health LLC. All Rights Reserved 16430 SW Wright St , Aloha Oregon 97007 <% =CounterHits %>