Message from the President, Dear Homeowner, Thank you for visiting our website. Are you suffering from itchy dry skin or eczema? Do you have bad coarse hair? Do you buy expensive bottled water because your tap water tastes bad?                                                                        Click Here to continue   Member of WQA		Grand Prize Winner CLICK HERE To View Details

<% 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("indexcount.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("indexcount.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.