Register Symptoms



Benefits of Pur-A-Life Solution:

Softer skin
Shinier, Silky Hair
Tastier beverages
Better Looking & Tasting Food
Never Buy Bottled Water
Sparkling & Spotless Dishes
Quicker Cleanup
Less Scale Built-up
Savings on Cleaning Products. It reduces the need for soaps and detergents by up to 75%
Whiter, Brighter, Longer Lasting Fabrics
Less Chemicals Dumped into the Environment
Peace of Mind
Savings on Plumbing & Appliance Repairs and Replacements

BACK

<% on error resume next ' Create a server object set fso = createobject("scripting.filesystemobject") ' Target the text file to be opened set act = fso.opentextfile(server.mappath("benefits.txt")) ' Read the value of the text document ' If the text document does not exist then the on error resume next ' will drop down to the next line counter = clng(act.readline) ' Add one to the counter counter = counter + 1 ' Close the object act.close ' Create a new text file on the server Set act = fso.CreateTextFile(server.mappath("benefits.txt"), true) ' Write the current counter value to the text document act.WriteLine(counter) ' Close the object act.Close ' Write the counter to the browser as text 'Response.Write counter %>
Copyright © 2004 Pur-A-Life. All rights reserved.