<% 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.Performance)=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)

NEW River Cam Check it out today. Live pictures from the Colorado River!
High Performance Boat Dealers
Specialty Marine Co. is your source for custom windshields, wire harnesses, splash gurads and more. 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 %> <% rs.MoveNext loop%>