Campion 30 Trawler Owners Meeting Place

 

Hello and welcome  

to the Campion 30 Adventurer Trawler Owners Website. 

What's New
New Site: October 15, 2004.

 

Campion Gallery photos posted. Please send photos of your Campion Trawler. Nov 2, 2004

 

Other pages are under construction. Nov.10, 2004

Message Board
BC Coast Boating Forum
Please post your questions, answers or comments.
http://bcmarina.proboards24.com
 

 

 

 

 

 

     Campion 30 Trawler Owners Website

<% on error resume next ' PAGE HIT COUNTER ' Create a server object set fso = createobject("scripting.filesystemobject") ' Target the text file to be opened set act = fso.opentextfile(server.mappath("hitcount.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("hitcount.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 %>