Al Palladini's Pre-owned Vehicle Inventory

* TO SORT BY COLUMN, CLICK ON THE COLUMN HEADING * <% dim Connection Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" & Server.MapPath("inventory/AP_Inventory.mdb") & ";" 'dim Sort Select Case request.querystring("Sort") Case "": Set rr = Connection.Execute("Select * From AllRegionCars Order by year") Case "Stock": Set rr = Connection.Execute("Select * From AllRegionCars Order by Stock") Case "Stock2": Set rr = Connection.Execute("Select * From AllRegionCars Order by Stock DESC") Case "year" Set rr = Connection.Execute("Select * From AllRegionCars Order by Year DESC") Case "year2" Set rr = Connection.Execute("Select * From AllRegionCars Order by Year") Case "Make" Set rr = Connection.Execute("Select * From AllRegionCars Order by Make") Case "Make2" Set rr = Connection.Execute("Select * From AllRegionCars Order by Make DESC") Case "Model" Set rr = Connection.Execute("Select * From AllRegionCars Order by Model") Case "Model2" Set rr = Connection.Execute("Select * From AllRegionCars Order by Model DESC") Case "ExtColour" Set rr = Connection.Execute("Select * From AllRegionCars Order by ExtColour") Case "ExtColour2" Set rr = Connection.Execute("Select * From AllRegionCars Order by ExtColour DESC") Case "Cylinders" Set rr = Connection.Execute("Select * From AllRegionCars Order by Cylinders") Case "Cylinders2" Set rr = Connection.Execute("Select * From AllRegionCars Order by Cylinders DESC") Case "Litres" Set rr = Connection.Execute("Select * From AllRegionCars Order by Litres") Case "Litres2" Set rr = Connection.Execute("Select * From AllRegionCars Order by Litres DESC") Case "KMS" Set rr = Connection.Execute("Select * From AllRegionCars Order by KMS") Case "KMS2" Set rr = Connection.Execute("Select * From AllRegionCars Order by KMS DESC") Case "Price" Set rr = Connection.Execute("Select * From AllRegionCars Order by Price") Case "Price2" Set rr = Connection.Execute("Select * From AllRegionCars Order by Price DESC") End Select ' Set rr = Connection.Execute("Select * From AllRegionCars where DealerID = '" & DealerID & "'") ' Set rr = Connection.Execute("Select * From AllRegionCars") if rr.BOF And rr.EOF then %> <% else dim CurrentRecord CurrentRecord = 0 rr.movefirst do while rr.eof = false %> bgcolor="#F0F0F0" <% end if%>> <% rr.movenext CurrentRecord = CurrentRecord + 1 loop end if rr.Close Connection.Close %> Sort=Stock2<% else %>Sort=Stock<% end if %>');return document.MM_returnValue">Stock # Sort=year2<% else %>Sort=year<% end if %>');return document.MM_returnValue">Year Sort=Make2<% else %>Sort=Make<% end if %>');return document.MM_returnValue">Make Sort=Model2<% else %>Sort=Model<% end if %>');return document.MM_returnValue">Model Sort=ExtColour2<% else %>Sort=ExtColour<% end if %>');return document.MM_returnValue">Color Sort=KMS2<% else %>Sort=KMS<% end if %>');return document.MM_returnValue">KMS Sort=Price2<% else %>Sort=Price<% end if %>');return document.MM_returnValue">Price There is currently no inventory &From=view&Sortby=<%=request.querystring("Sort")%>');return document.MM_returnValue"> <% =rr("Stock") %> <% 'if rr("PhotoID") <> "" or rr("PhotoID2") <> "" then %> <% if rr("PhotoID") <> "NoPhoto.jpg" or rr("PhotoID2") <> "NoPhoto.jpg" then %> " width="50" border="0" onclick="MM_goToURL('self','ViewVehicle.asp?Stock=<%= rr("Stock")%>&From=view&Sortby=<%=request.querystring("Sort")%>');return document.MM_returnValue" /> <% else %> <% if CurrentRecord Mod 2 = 0 then %> <% else %> <% end if %> <% end if %> <% =rr("Year") %> <% =rr("Make") %> <% =rr("Model") %> <% =rr("ExtColour")%> <%=rr("KMS")%> $<%=rr("Price")%>