<% 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 FROM Dealers WHERE (((Dealers.BoatBuilder)=Yes) AND ((Dealers.PWCDealer)=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.MastheadRightNeon.gif (3284 bytes)


COMING SOON
PWC Manufacturers
Personal Watercraft
Maverick Marine, Lake Havasu's boating superstore. Outboard Motor
Dealers in California, Arizona, Nevada,

Boat Dealers
California, Arizona, Nevada,  International

 

 Manufacturers
Boats, PWCs, Motors

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

 USAWatercraft Display Ads, ther're sure to make a splash!
<% On Error Resume Next rs.MoveFirst do while Not rs.eof %>
Dealer Description Brands & Services