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

 

Thank you for visiting our Web site. Please fill out the following form to request information about our products and services or to provide feedback about our site. When you are finished, click the 'Submit' button to send us your message. You will see a confrmation below. Or for more information you can write the address shown below

Name:

Organization:

Street Address:

City:

State:

Zipcode:

E-mail Address:

Phone number:

Message:



 

 

Products4Health
16430 S.W. Wright St
Aloha, Or 97007

Showroom
5829 S.E. Powell Blvd
Portland,OR 97206


Phone: (503) 777-8333
Fax: (503) 788-2365


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