Marinas

<% Param = Request.QueryString("Param") Data = Request.QueryString("Data") %> <% If IsObject(Session("watercraft_conn")) Then Set conn = Session("watercraft_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "watercraft","","" Set Session("watercraft_conn") = conn End If %> <% sql = "SELECT Dealers.CustomerID, Dealers.CompanyName, Dealers.Address, Dealers.City, Dealers.State, Dealers.Zip, Dealers.Country, Dealers.PhoneNumber, Dealers.FaxNumber, Dealers.TollFree, Dealers.EmailAddress, Dealers.Description, Dealers.Brands, Dealers.WebAddress, Dealers.BoatDealer, Dealers.PWCDealer, Dealers.Accessories, Dealers.BoatBuilder, Dealers.CanoeDealer, Dealers.InflatableDealer, Dealers.OutboardMotor, Dealers.PWCRental, Dealers.HBRental, Dealers.Tour, Dealers.YachtDealer, Dealers.Repair, Dealers.Fishing, Dealers.Marina, Dealers.BoatRental, Dealers.Performance FROM Dealers WHERE (((Dealers.Marina)=Yes)) " If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data) End If sql = sql & " ORDER BY Dealers.City " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %>

USAWatercraft your one stop recource for all your boating and water sport recreation needs.

Marinas

PWC Rental
California, Arizona, Nevada,

PWC Dealers
(personal watercraft)
California, Arizona, Nevada, Classifieds, PWC Quote

Boat Dealers
California, Arizona, Nevada, International

Recreation Rivers, Lakes, Ocean, Camping, Tips, Locations, Adventures, Humor. Up to date information on all the hot spots.

U.S.C.G. Auxiliary, Rules, Regulations and Safety Information for Recreational Boaters.

WaterCAM Live video from around the world. See the water before you get there.

USAWatercraft Display Ads, ther're sure to make a splash!

Check out our newest service. Dealers, get the details and signup now for PWC QuoteŽ, don't miss your next sale!

<% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop%>