<% 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.State)='mx') AND ((Dealers.Repair)=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!
International Service & Repair

Maverick Marine, Lake Havasu's boating superstore. Service & Repair
California, Arizona, Nevada, New Mexico, Texas, International

Boat Dealers
California, Arizona, Nevada, New Mexico, Texas, International

 

Manufacturers
Boats, PWCs, Motors

PWC Dealers
(personal watercraft)
California, Arizona, Nevada, New Mexico, TexasClassifieds, 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%>
Dealer Description Brands & Services
"><%=Server.HTMLEncode(rs.Fields("CompanyName").Value)%>
<%=Server.HTMLEncode(rs.Fields("PhoneNumber").Value)%>
<%=Server.HTMLEncode(rs.Fields("TollFree").Value)%>
<%=Server.HTMLEncode(rs.Fields("Address").Value)%>
<%=Server.HTMLEncode(rs.Fields("City").Value)%>, <%=Server.HTMLEncode(rs.Fields("State").Value)%>.  <%=Server.HTMLEncode(rs.Fields("Zip").Value)%>
<%=Server.HTMLEncode(rs.Fields("Description").Value)%> <%=Server.HTMLEncode(rs.Fields("Brands").Value)%>

Looking for a little excitement on or off the road. 
mc-link.gif (4435 bytes)
Check out our USAMotorcycle site for great bikes and information.