Home Page

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

Financing

Financing 90 days same as cash. Available on stock and special orders. Normal 1/3 down required on special orders. We are pleased to offer our web site guests the convenience of applying online for credit through our finance partner: Products4Health. By clicking the link below, you will go directly to American General's site, and may begin the application process online. After receiving your approved line of credit, just bring a copy of the approval to Products4Health and use that credit line to make in-store purchases. The credit will be store-specific to Products4Health. What you avoid is the in-store application process, which can be time consuming. We at Products4Health and American General appreciate your business and hope this new service adds to your purchasing convenience and pleasure.