<% Dim fso_load Set fso_load = Server.CreateObject("Scripting.FileSystemObject") Dim oTextStream_load Set oTextStream_load = fso_load.OpenTextFile(Server.MapPath("load.inc"),1) ' 1: ForReading Response.Write oTextStream_load.ReadAll() Set oTextStream_load = Nothing Set fso_load = Nothing %>
 
 
 
 

 


 

Inflatable Boats are Portable, Safe, Easy to Maintain, and Cost-Effective

How portable is your boat?

Tired of having to transport a fishing boat to the cottage in a separate trailer?  A roll-up or foldable inflatable boat is significantly lighter than a fixed vessel, and it can also be carried to the cottage in a package as small as a suitcase.  If you invest in a inflatable boat, you can fit the entire vessel in your car trunk!

How much do they cost? 

A inflatable fishing boat or motor boat can be obtained for a fraction of the cost of a fixed vessel. 

How much do you pay to rent a fishing boat at the cottage for a weekend?  If we assume a rental price of $100/weekend, then you can easily recuperate the cost of an investment in an inflatable vessel in as few as 6 visits to the cottage!

[ Go to our Inflatable Boat Feature ]

Considering Buying a Boat?  

Usually when you get to the stage of buying a boat, you will have had some previous experience of boating. You may be looking for a replacement, new or used, or it could be that after spending many a good time on a friends boat that you feel it time to have your own. Check out the market. There are various ways to find your type of vessel. Boat builders, dealers, brokers, and private sellers who all use the old and new methods of advertising such as magazines, news papers, brochures and of course the biggest medium available is the web. For instance, www.onlineboatfinder.com is fast becoming known to the boating fraternity... [ Read more about buying a boat ]

How To Successfully Choose Bass Fishing Lures

Careful bass fishermen, those who think about what they are doing and why, know that they can use the lures in their tackle boxes to work for them and that each one has an optimum range of service.

Each kind of lure has certain times and places in which it is most effective. Some lures work deep and some stay on the surface; some baits should be retrieved slowly and others should be burned along. So when the fish are deep, don't (in most cases) go with a surface lure. And when the bass are lethargic, don't make them chase a speeding bait.


Kayak Fishing

People have been fishing for centuries. It is one of the most beloved and popular hobbies around today. Fishing is also a sport and can be quite competitive. In fact, fishing is also an important industry and way of life for many people around the world. Many people do not know much about fishing. They believe that it is only done by standing at a pier or along a river or lake with a rod. This simple view of fishing is very outdated.
[Read more about Kayak Fishing]



&title=Watercraft Adventures')">  E-mail this page to a friend!

Comments on This Text

<% set myconn = server.createobject("adodb.connection") connection = "DRIVER={MySQL};SERVER=sqlc2.megasqlservers.com;DATABASE=board_outdoorleisurecompany_com;" & "USER=dbm.outdoorleisurecompany.com;PASSWORD=97145; OPTION=3;" 'connection = "driver={MySQL};server=134.220.4.130;uid=demo;database=mydatabase" myconn.open (connection) set result = server.createobject("adodb.recordset") sql = "SELECT * FROM COMMENT WHERE webpage ='" & "http://www.outdoorleisurecompany.com/watercraft_adventures.asp" & "' ORDER BY datetime ASC" set result = myconn.execute(sql) if not result.EOF then while not result.EOF response.write("" & result("login") & " on " & result("datetime") & " -
" & result("message") & "

") result.movenext() wend else response.write("

No comments to date") end if %>
<% Dim fso_feedback Set fso_feedback = Server.CreateObject("Scripting.FileSystemObject") Dim oTextStream_feedback Set oTextStream_feedback = fso_feedback.OpenTextFile(Server.MapPath("/include/feedback.html"),1) ' 1: ForReading Response.Write oTextStream_feedback.ReadAll() Set oTextStream_feedback = Nothing Set fso_feedback = Nothing %> Post a comment
 

Online Poll

<% Dim fso_poll Set fso_poll = Server.CreateObject("Scripting.FileSystemObject") Dim oTextStream_poll src = Server.MapPath("/ASPPoll/db/poll.mdb") Set adoCon = Server.CreateObject("ADODB.Connection") sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src adoCon.Open sConnStr ID = "3368" strSQL = "SELECT * FROM tblIP WHERE IP = '" & request.servervariables("remote_addr") & "' AND pollID=" & ID SET rsPoll = adoCon.execute(strSQL) IF rsPoll.EOF Then Set oTextStream_poll = fso_poll.OpenTextFile(Server.MapPath("poll.inc"),1) ' 1: ForReading Response.Write oTextStream_poll.ReadAll() Set oTextStream_poll = Nothing Set fso_poll = Nothing ELSE strSQL="SELECT question FROM tblPoll WHERE ID=" & ID SET rsPoll = adoCon.execute(strSQL) strQuestion = rsPoll.fields("question") rsPoll.close strSQL="SELECT * FROM tblAnswers WHERE ID=" & ID SET rsPoll = adoCon.execute(strSQL) strAnswer1 = rsPoll.fields("Answer1") strAnswer2 = rsPoll.fields("Answer2") strAnswer3 = rsPoll.fields("Answer3") strAnswer4 = rsPoll.fields("Answer4") rsPoll.close strSQL="SELECT * FROM tblCount WHERE ID=" & ID SET rsPoll = adoCon.execute(strSQL) numCount1 = rsPoll.fields("Count1") numCount2 = rsPoll.fields("Count2") numCount3 = rsPoll.fields("Count3") numCount4 = rsPoll.fields("Count4") numTotalVotes = numCount1 + numCount2 + numCount3 + numCount4 rsPoll.close SET rsPoll=nothing adoCon.close SET adoCon=nothing Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") if not numCount1=0 then Response.Write("") Response.Write("") Response.Write("") else Response.Write("") Response.Write("") Response.Write("") end if Response.Write("") Response.Write("") Response.Write("") if not numCount2=0 then Response.Write("") Response.Write("") Response.Write("") else Response.Write("") Response.Write("") Response.Write("") end if Response.Write("") Response.Write("") Response.Write("") if not numCount3=0 then Response.Write("") Response.Write("") Response.Write("") else Response.Write("") Response.Write("") Response.Write("") end if Response.Write("") Response.Write("") Response.Write("") if not numCount4=0 then Response.Write("") Response.Write("") Response.Write("") else Response.Write("") Response.Write("") Response.Write("") end if Response.Write("") Response.Write("") Response.Write("") END IF %>
") Response.Write("" & strQuestion & "") Response.Write("
") Response.Write(strAnswer1 & " (" & numCount1 & " votes)") Response.Write("
") Response.Write("") Response.Write("
") Response.Write("") Response.Write("
") Response.Write(strAnswer2 & " (" & numCount2 & " votes)") Response.Write("
") Response.Write("") Response.Write("
") Response.Write("") Response.Write("
") Response.Write(strAnswer3 & " (" & numCount3 & " votes)") Response.Write("
") Response.Write("") Response.Write("
") Response.Write("") Response.Write("
") Response.Write(strAnswer4 & " (" & numCount4 & " votes)") Response.Write("
") Response.Write("") Response.Write("
") Response.Write("") Response.Write("
") Response.Write("Total Votes " & formatnumber(numTotalVotes,0) & "") Response.Write("
Powered By ASP Poll

 
             
             
Email:info@outdoorleisurecompany.com Call Us: 1-866-476-6311
 
© 2005. Copyright. All Rights Reserved. Northbridge Products Inc.

[ Outdoor Fun ] | [ Preformed Ponds ] | [ Liner Ponds ] | [ Wholesale Pond Supplies ] | [ Online Shopping ] | [ Selling Online ] | [ Resources ] | [ Site Map ]