<%@ CodePage = 1252 LANGUAGE = VBScript %>
<% Option Explicit %>
<%
response.buffer = true
response.expiresAbsolute = #1/1/2000#
response.CacheControl = "Private"
response.Charset= "ISO-LATIN-7"
dim relative_path_to_database
relative_path_to_database = "/usestanley.com/db/2020applications.mdb"
%>
<%
CALL GetTemplate_Styles_Header("vehiclelistings")
cn.close
set cn=nothing
dim SQL, sub_rs, i, company_rs, display_options_array, ID_array
%>
<%
SUB DisplayPublic2020AutoGallery
IF request.querystring = "" THEN
CALL WriteBrowseOptions
CALL WriteSearch("vehiclelistings.asp")
ELSE
dim current_page, top_rs, page_size, total_page_count, total_records, records_displayed, agentID, vehicleID
IF request.querystring("page_size") <> "" THEN
page_size = request.querystring("page_size")
ELSE
page_size = 6
END IF
IF request.querystring("current_page") <> "" THEN
current_page = request.querystring("current_page")
ELSE
current_page = 1
END IF
'POSSIBLE QUERY VALUES
'sale_type
'manufacturer
'model
'year
'price (range)
'keywords
'categoryID_list
'vehicleID
'agentID
'boolean
'stocknumber
SQL = "SELECT vehicles.* FROM vehicles "
i = 0
IF request.querystring("agentID") <> "" THEN
SQL = SQL & "INNER JOIN people_vehicle_link ON vehicles.vehicleID = people_vehicle_link.vehicleID WHERE people_vehicle_link.peopleID = "& request.querystring("agentID")
i = 1
END IF
IF request.querystring("sale_type") <> "" THEN
IF i = 0 THEN
SQL = SQL & " WHERE "
i = 1
ELSE
SQL = SQL & " AND "
END IF
SQL = SQL & " vehicles.vehicleID IN (SELECT category_vehicle_link.vehicleID AS [temp_vehicleID] FROM category_vehicle_link INNER JOIN categories ON category_vehicle_link.categoryID = categories.categoryID WHERE categories.categoryname = '"& request.querystring("sale_type") &"') "
END IF
IF request.querystring("manufacturer") <> "" THEN
IF i = 0 THEN
SQL = SQL & " WHERE "
i = 1
ELSE
SQL = SQL & " AND "
END IF
SQL = SQL & " vehicles.manufacturer = '"& request.querystring("manufacturer") &"' "
END IF
IF request.querystring("model") <> "" THEN
IF i = 0 THEN
SQL = SQL & " WHERE "
i = 1
ELSE
SQL = SQL & " AND "
END IF
SQL = SQL & " vehicles.model = '"& request.querystring("model") &"' "
END IF
IF request.querystring("year") <> "" THEN
IF i = 0 THEN
SQL = SQL & " WHERE "
i = 1
ELSE
SQL = SQL & " AND "
END IF
SQL = SQL & " vehicles.year = "& request.querystring("year") &" "
END IF
IF request.querystring("body_style") <> "" THEN
IF i = 0 THEN
SQL = SQL & " WHERE "
i = 1
ELSE
SQL = SQL & " AND "
END IF
SQL = SQL & " vehicles.body_style = '"& request.querystring("body_style") &"' "
END IF
IF request.querystring("strKeywords") <> "" THEN
dim search_terms, j
search_terms = Split(request.querystring("strKeywords")," ")
IF i = 0 THEN
SQL = SQL & " WHERE "
i = 1
ELSE
SQL = SQL & " AND "
END IF
SQL = SQL & "("
FOR j = 0 TO UBound(search_terms)
IF j = UBound(search_terms) THEN
SQL = SQL & " ((vehicles.display_title LIKE '%"& search_terms(j) &"%') OR (vehicles.comments LIKE '%"& search_terms(j) &"%') OR (vehicles.features LIKE '%"& search_terms(j) &"%') OR (vehicles.drive_train LIKE '%"& search_terms(j) &"%') OR (vehicles.engine LIKE '%"& search_terms(j) &"%') OR (vehicles.engine LIKE '%"& search_terms(j) &"%') OR (vehicles.transmission LIKE '%"& search_terms(j) &"%') OR (vehicles.body_style LIKE '%"& search_terms(j) &"%') OR (vehicles.interior_colour LIKE '%"& search_terms(j) &"%') OR (vehicles.model LIKE '%"& search_terms(j) &"%') OR (vehicles.manufacturer LIKE '%"& search_terms(j) &"%') OR (vehicles.exterior_colour LIKE '%"& search_terms(j) &"%') OR (vehicles.transmission LIKE '%"& search_terms(j) &"%'))) "
ELSE
SQL = SQL & " ((vehicles.display_title LIKE '%"& search_terms(j) &"%') OR (vehicles.comments LIKE '%"& search_terms(j) &"%') OR (vehicles.features LIKE '%"& search_terms(j) &"%') OR (vehicles.drive_train LIKE '%"& search_terms(j) &"%') OR (vehicles.engine LIKE '%"& search_terms(j) &"%') OR (vehicles.engine LIKE '%"& search_terms(j) &"%') OR (vehicles.transmission LIKE '%"& search_terms(j) &"%') OR (vehicles.body_style LIKE '%"& search_terms(j) &"%') OR (vehicles.interior_colour LIKE '%"& search_terms(j) &"%') OR (vehicles.model LIKE '%"& search_terms(j) &"%') OR (vehicles.manufacturer LIKE '%"& search_terms(j) &"%') OR (vehicles.exterior_colour LIKE '%"& search_terms(j) &"%') OR (vehicles.transmission LIKE '%"& search_terms(j) &"%'))) "& request.querystring("boolean")
END IF
NEXT
END IF
IF request.querystring("vehicleID") <> "" THEN
IF i = 0 THEN
SQL = SQL & " WHERE "
i = 1
ELSE
SQL = SQL & " AND "
END IF
SQL = SQL & " vehicles.vehicleID = "& request.querystring("vehicleID")
END IF
IF request.querystring("listing_price") <> "" THEN
IF i = 0 THEN
SQL = SQL & " WHERE "
i = 1
ELSE
SQL = SQL & " AND "
END IF
SQL = SQL & request.querystring("listing_price")
END IF
IF request.querystring("categoryID_list") <> "" THEN
IF i = 0 THEN
SQL = SQL & " WHERE "
i = 1
ELSE
SQL = SQL & " AND "
END IF
IF Instr(request.querystring("categoryID_list"),"_") <> 0 THEN
dim category_array, tempSQL
category_array = Split(request.querystring("categoryID_list"),"_")
FOR j = 0 TO UBound(category_array)
IF j = 0 THEN
tempSQL = "SELECT category_vehicle_link.vehicleID AS ["& j &"] FROM category_vehicle_link WHERE category_vehicle_link.categoryID = "& category_array(i)
ELSE
tempSQL = "SELECT category_vehicle_link.vehicleID AS ["& j &"] FROM category_vehicle_link WHERE category_vehicle_link.vehicleID IN ("& tempSQL &") AND category_vehicle_link.categoryID ="& category_array(i)
END IF
NEXT
SQL = SQL & " vehicles.vehicleID IN ("& tempSQL &") "
ELSE
SQL = SQL & " vehicles.vehicleID IN (SELECT category_vehicle_link.vehicleID AS [temp_cat] FROM category_vehicle_link INNER JOIN categories ON category_vehicle_link.categoryID = categories.categoryID WHERE category_vehicle_link.categoryID = "& request.querystring("categoryID_list") &") "
END IF
END IF
IF i = 0 THEN
SQL = SQL & " WHERE "
i = 1
ELSE
SQL = SQL & " AND "
END IF
SQL = SQL & " vehicles.show_on_website = 1 "
IF request.querystring("o") <> "" THEN
SQL = SQL & " ORDER BY "& request.querystring("o")
ELSE
SQL = SQL & " ORDER BY vehicles.listing_price DESC,vehicles.manufacturer,vehicles.model;"
END IF
set top_rs = Server.CreateObject("ADODB.Recordset")
top_rs.PageSize = page_size
top_rs.CacheSize = page_size
top_rs.Open SQL,cn,3,1,1
total_page_count = top_rs.PageCount
total_records = top_rs.RecordCount
IF total_page_count = 0 THEN
%>
Sorry, there are no vehicles to display.
You should either >go back to the previous page, or try a new search:
<%
CALL WriteBrowseOptions
CALL WriteSearch("vehiclelistings.asp")
ELSE
top_rs.AbsolutePage = current_page
records_displayed = 0
CALL WriteBrowseOptions
DO UNTIL records_displayed = CInt(page_size) OR top_rs.eof
IF total_records = 1 OR page_size = 1 THEN
IF request.querystring("agentID") <> "" AND records_displayed = 0 THEN
CALL WriteAgentInfo("peopleID",request.querystring("agentID"))
%>
<%
END IF
IF records_displayed = 0 THEN
CALL RecordsNav("top",total_records,total_page_count,current_page)
%>
<%
END IF
CALL WriteVehicleDisplay(top_rs("vehicleID"),top_rs("display_title"),top_rs("manufacturer"),top_rs("model"),top_rs("year"),top_rs("listing_price"),top_rs("sale_price"),top_rs("status"),top_rs("exterior_colour"),top_rs("interior_colour"),top_rs("body_style"),top_rs("transmission"),top_rs("doors"),top_rs("engine"),top_rs("fuel_type"),top_rs("drive_train"),top_rs("mileage") &" "& top_rs("mileage_unit"),top_rs("stock_number"),top_rs("comments"),top_rs("features"),top_rs("display_options"),top_rs("info_URL"),top_rs("info_URL_width"),top_rs("info_URL_height"),top_rs("ebay_number"),top_rs("vin_number"))
%>
<%
IF request.querystring("agentID") = "" AND records_displayed = 0 THEN
CALL WriteAgentInfo("vehicleID",top_rs("vehicleID"))
END IF
ELSEIF total_records < 6 OR (page_size >1 AND page_size < 6) THEN
IF request.querystring("agentID") <> "" AND records_displayed = 0 THEN
CALL WriteAgentInfo("peopleID",request.querystring("agentID"))
%>
<%
END IF
IF records_displayed = 0 THEN
CALL RecordsNav("top",total_records,total_page_count,current_page)
END IF
CALL WriteVehicleSummaries(page_size,current_page,records_displayed,top_rs("vehicleID"),top_rs("display_title"),top_rs("manufacturer"),top_rs("model"),top_rs("year"),top_rs("listing_price"),top_rs("exterior_colour"),top_rs("interior_colour"),top_rs("body_style"),top_rs("doors"),top_rs("comments"),top_rs("display_options"),top_rs("ebay_number"))
ELSEIF total_records < 11 OR (page_size < 11 AND page_size > 5) THEN
IF request.querystring("agentID") <> "" AND records_displayed = 0 THEN
CALL WriteAgentInfo("peopleID",request.querystring("agentID"))
%>
<%
END IF
IF records_displayed = 0 THEN
CALL RecordsNav("top",total_records,total_page_count,current_page)
END IF
IF records_displayed = 0 THEN
%>
<%
END IF
CALL WriteBriefDisplay(page_size,current_page,records_displayed,top_rs("vehicleID"),top_rs("display_title"),top_rs("listing_price"),top_rs("manufacturer"),top_rs("model"),top_rs("year"),top_rs("display_options"))
IF ((records_displayed + 1) = CInt(page_size)) OR (CInt(total_records) = (((CInt(current_page) -1) * CInt(page_size)) + (records_displayed + 1))) THEN
IF (records_displayed + 1) MOD 2 = 0 THEN
%>
<%
ELSE
%>
| | |
<%
END IF
END IF
ELSEIF total_records > 10 OR page_size > 10 THEN
IF request.querystring("agentID") <> "" AND records_displayed = 0 THEN
CALL WriteAgentInfo("peopleID",request.querystring("agentID"))
END IF
IF records_displayed = 0 THEN
CALL RecordsNav("top",total_records,total_page_count,current_page)
%>
| ">Title |
">Make, Model |
">Year |
">Price |
<%
END IF
CALL WriteVehiclesList(page_size,current_page,records_displayed,top_rs("vehicleID"),top_rs("display_title"),top_rs("listing_price"),top_rs("manufacturer"),top_rs("model"),top_rs("year"),top_rs("display_options"))
IF ((records_displayed + 1) = CInt(page_size)) OR (CInt(total_records) = (((CInt(current_page) -1) * CInt(page_size)) + (records_displayed + 1))) THEN
%>
<%
END IF
END IF
records_displayed = records_displayed + 1
top_rs.movenext
LOOP
CALL RecordsNav("bottom",total_records,total_page_count,current_page)
END IF
top_rs.close
set top_rs=nothing
END IF
END SUB
SUB WriteVehicleDisplay(vehicleID,display_title,manufacturer,model,year,listing_price,sale_price,status,exterior_colour,interior_colour,body_style,transmission,doors,engine,fuel_type,drive_train,mileage,stock_number,comments,features,display_options,info_URL,info_URL_width,info_URL_height,ebay_number,vin_number)
display_options_array = Split(display_options,",")
%>
|
<%=display_title%>
|
<%
set sub_rs = cn.Execute("SELECT categories.categoryname FROM categories INNER JOIN category_vehicle_link ON categories.categoryID = category_vehicle_link.categoryID WHERE category_vehicle_link.vehicleID = "& vehicleID &" AND (categories.categoryname = 'For Sale' OR categories.categoryname = 'For Lease' OR categories.categoryname = 'For Sale or Lease' OR categories.categoryname = 'For Rent');")
IF sub_rs.bof AND sub_rs.eof THEN
'
ELSE
response.write(sub_rs("categoryname") &" ")
END IF
sub_rs.close
set sub_rs = nothing
IF status <> "Active" THEN
IF display_options_array(3) <> 0 AND display_options_array(4) <> 0 THEN
%>
<%=ChooseCurrency(listing_price)%>
<% IF display_options_array(5) <> 0 THEN response.write(""& status &" ") %> <% IF sale_price <> "" AND IsNumeric(sale_price) THEN response.write(""& ChooseCurrency(sale_price) &"
")%>
<%
ELSEIF display_options_array(3) <> 0 AND display_options_array(4) = 0 THEN
%>
<%=ChooseCurrency(listing_price)%>
<% IF display_options_array(5) <> 0 THEN response.write(""& status &"") %>
<%
ELSEIF display_options_array(3) = 0 AND display_options_array(4) <> 0 THEN
%>
<% IF sale_price <> "" AND IsNumeric(sale_price) THEN response.write(ChooseCurrency(sale_price)) %>
<% IF display_options_array(5) <> 0 THEN response.write(" "& status &"") %>
<%
END IF
ELSE
IF display_options_array(4) <> 0 THEN
%>
<%=ChooseCurrency(listing_price)%>
<%
END IF
IF display_options_array(1) <> 0 THEN
%>
<%=status%>
<%
END IF
END IF
%>
|
<%
IF len(info_URL) > 7 THEN
%>
<%
CALL WriteExternalInfoLinkPopUpScript
END IF
%>
|
<%
set sub_rs = cn.Execute("SELECT * FROM people INNER JOIN people_vehicle_link ON people.peopleID = people_vehicle_link.peopleID WHERE people_vehicle_link.vehicleID = "& vehicleID &";")
IF sub_rs.bof AND sub_rs.eof THEN
'
ELSE
sub_rs.movefirst
%>
Agent: <%=sub_rs("firstname")%> <%=sub_rs("lastname")%>
|
<%
END IF
sub_rs.close
set sub_rs=nothing
%>
<%
IF display_options_array(2) <> 0 THEN
response.write("| Year: | "& year &" | ")
i = 1
END IF
IF display_options_array(0) <> 0 THEN
response.write("| Manufacturer: | "& manufacturer &" | ")
END IF
IF model <> "" AND display_options_array(1) <> 0 THEN
response.write("| Model: | "& model &" | ")
END IF
IF exterior_colour <> "" AND display_options_array(6) <> 0 THEN
response.write("| Exterior: | "& exterior_colour &" | ")
END IF
IF interior_colour <> "" AND display_options_array(7) <> 0 THEN
response.write("| Interior: | "& interior_colour &" | ")
END IF
IF (doors <> "" AND doors <> "0") AND display_options_array(10) <> 0 THEN
response.write("| Doors: | "& doors &" | ")
END IF
IF body_style <> "" AND display_options_array(8) <> 0 THEN
response.write("| Body Style: | "& body_style &" | ")
END IF
IF transmission <> "" AND display_options_array(9) <> 0 THEN
response.write("| Transmission: | "& transmission &" | ")
END IF
IF drive_train <> "" AND display_options_array(13) <> 0 THEN
response.write("| Drive Train: | "& drive_train &" | ")
END IF
IF engine <> "" AND display_options_array(11) <> 0 THEN
response.write("| Engine: | "& engine &" | ")
END IF
IF fuel_type <> "" AND display_options_array(12) <> 0 THEN
response.write("| Fuel Type: | "& fuel_type &" | ")
END IF
IF mileage <> "" AND display_options_array(14) <> 0 THEN
response.write("| ")
IF Instr(mileage,"feet") <> 0 THEN
response.write("Length")
ELSEIF Instr(mileage,"hours") <> 0 THEN
response.write("Hours")
ELSE
response.write("Mileage")
END IF
response.write(": | "& mileage &" | ")
END IF
IF stock_number <> "" AND display_options_array(15) <> 0 THEN
response.write("| Stock #: | "& stock_number &" | ")
END IF
'VIN number added by Stan on 7-28-04
IF vin_number <> "" and vin_number <> "0" then
response.write("| VIN Number: | "& vin_number &" | ")
END IF
'Carfax report added by Stan on 7-28-04
IF vin_number <> "" and vin_number <> "0" then
'Removed standard carfax link and added affiliate program link 7-29-04
'Response.Write "
View CARFAX
Vehicle History Report | "
%>
|
<%
END IF
%>
|
<% IF features <> "" AND display_options_array(17) <> 0 THEN response.write(" Features:
"& features &" ") %>
|
<% IF ebay_number <> "" AND ebay_number <> 0 THEN response.write("
This vehicle is currently listed on:
(Click to view eBay auction)
") %>
|
|
<% CALL WritePhotos(vehicleID) %>
|
<% IF comments <> "" AND display_options_array(16) <> 0 THEN %>
Comments:
<%=comments%>
<% END IF %>
|
<%
set sub_rs = cn.Execute("SELECT hits FROM vehicles WHERE vehicleID = "& vehicleID &";")
sub_rs.movefirst
cn.Execute("UPDATE vehicles SET hits = "& (sub_rs("hits") + 1) &" WHERE vehicleID = "& vehicleID &";")
sub_rs.close
set sub_rs = nothing
END SUB
%>
<% SUB WritePhotos(vehicleID)
SQL = "SELECT order_number,* FROM vehicle_images WHERE vehicleID = "& vehicleID &" ORDER BY order_number;"
set sub_rs = Server.CreateObject("ADODB.RecordSet")
sub_rs.Open SQL,cn,3,1,-1
IF sub_rs.RecordCount = 0 THEN
'
ELSE
dim array_size,images_array
array_size = sub_rs.RecordCount
ReDim images_array(3,array_size)
i = 0
sub_rs.MoveFirst
DO UNTIL sub_rs.EOF
images_array(0,i) = sub_rs("imageID")
images_array(1,i) = sub_rs("imageURL")
images_array(2,i) = sub_rs("notes")
i = i + 1
sub_rs.MoveNext
LOOP
END IF
sub_rs.close
set sub_rs = nothing
IF array_size > 0 THEN
i = 0
%>
| 1 THEN response.write("colspan=5") %> align=center>
|
1 THEN response.write("colspan=5") %>>
%>) |
<%
IF array_size > 1 THEN
FOR i = 1 TO array_size -1
IF i MOD 5 = 1 THEN response.write("")
%>
|
<%
IF i MOD 5 = 0 THEN response.write("
")
NEXT
i = i - 1
IF i MOD 5 <> 0 THEN
DO UNTIL i MOD 5 = 0
response.write(" | ")
i = i + 1
LOOP
response.write("")
END IF
END IF
%>
<%
END IF
END SUB
SUB WriteSearch(submit_page)
%>
<%
END SUB
SUB WriteVehiclesList(page_size,current_page,records_displayed,vehicleID,display_title,listing_price,manufacturer,model,year,display_options)
%>
| "><%=display_title%> |
<%=manufacturer%>, <%=model%>
|
<%=year%>
|
<%
IF Mid(display_options,7,1) = "1" THEN
response.write(ChooseCurrency(listing_price))
ELSE
response.write("-")
END IF
%>
|
<%
END SUB
SUB WriteVehicleSummaries(page_size,current_page,records_displayed,vehicleID,display_title,manufacturer,model,year,listing_price,exterior_colour,interior_colour,body_style,doors,comments,display_options,ebay_number)
display_options_array = Split(display_options,",")
%>
| <%=display_title%> |
<%
set sub_rs = cn.Execute("SELECT * FROM categories INNER JOIN category_vehicle_link ON categories.categoryID = category_vehicle_link.categoryID WHERE category_vehicle_link.vehicleID = "& vehicleID &" AND (categories.categoryname = 'For Sale' OR categories.categoryname = 'For Rent' OR categories.categoryname = 'For Lease' OR categories.categoryname = 'For Sale or Lease');")
IF sub_rs.bof AND sub_rs.eof THEN
'
ELSE
sub_rs.movefirst
%>
<%=sub_rs("categoryname")%>
<%
END IF
sub_rs.close
set sub_rs=nothing
IF display_options_array(3) <> 0 THEN response.write(ChooseCurrency(listing_price))
%> |
<%=year%>
<%
IF manufacturer <> "" AND display_options_array(1) <> 0 THEN
response.write(" "& manufacturer &" ")
END IF
%> <%=model%>
<%
IF exterior_colour <> "" OR interior_colour <> "" THEN
IF exterior_colour <> "" AND display_options_array(6) <> 0 THEN
response.write(exterior_colour)
IF interior_colour <> "" AND display_options_array(7) <> 0 THEN
response.write("/")
ELSE
response.write("
")
END IF
END IF
IF interior_colour <> "" AND display_options_array(7) <> 0 THEN
response.write(interior_colour &"
")
END IF
END IF
IF (doors <> "" AND doors <> "0") AND display_options_array(10) <> 0 THEN
response.write("Doors: "& Doors &"
")
END IF
IF body_style <> "" AND display_options_array(8) <> 0 THEN
response.write("Body Style: "& body_style &"
")
END IF
IF comments <> "" AND display_options_array(16) <> 0 THEN
response.write("
"& comments &"
")
END IF
IF ebay_number <> "" AND ebay_number <> 0 THEN response.write("
This vehicle is currently listed on:
(Click to view eBay auction)
")
%>
|
<%
set sub_rs = cn.Execute("SELECT *,order_number FROM vehicle_images WHERE vehicleID = "& vehicleID &" ORDER BY order_number;")
IF sub_rs.bof AND sub_rs.eof THEN
'
ELSE
sub_rs.movefirst
%>
"> " width=140 height=105 border=0 alt="Click here for more information about this vehicle."> |
<%
END IF
sub_rs.close
set sub_rs=nothing
%>
|
|
<%
set sub_rs = cn.Execute("SELECT * FROM people INNER JOIN people_vehicle_link ON people.peopleID = people_vehicle_link.peopleID WHERE people_vehicle_link.vehicleID = "& vehicleID &";")
IF sub_rs.bof AND sub_rs.eof THEN
'
ELSE
sub_rs.movefirst
%>
Agent: <%=sub_rs("firstname")%> <%=sub_rs("lastname")%>
<%
END IF
sub_rs.close
set sub_rs = nothing
%>
|
" class=incolouredtablecell>More Info > |
<% END SUB %>
<%
SUB RecordsNav(page_location,total_records,total_page_count,current_page)
IF page_location = "top" THEN
%>
<%
IF total_records > 1 THEN
%>
| Total Records Found : <%=total_records%>
<% END IF %>
<% IF total_page_count > 1 THEN %>
| Displaying page <%=current_page%> of <%=total_page_count%>
<% END IF %>
<%
IF request.querystring("agentID") <> "" THEN
set sub_rs = cn.Execute("SELECT * FROM people WHERE peopleID = "& request.querystring("agentID") &";")
IF sub_rs.bof AND sub_rs.eof THEN
'
ELSE
sub_rs.movefirst
%>
| All Listings of : <%=sub_rs("firstname")%> <%=sub_rs("lastname")%>
<%
END IF
sub_rs.close
set sub_rs = nothing
END IF
%>
<%
END IF
i = 0
%>
<% IF page_location = "top" THEN %>
<%
i = 0
IF request.querystring("categoryID_list") <> "" THEN
response.write("
")
IF Instr(request.querystring("categoryID_list"),"_") <> 0 THEN
ID_array = Split(request.querystring("categoryID_list"),"_")
FOR i = 0 TO UBound(ID_array)
set rs=cn.Execute("SELECT categoryname FROM categories WHERE categoryID = "& ID_array(i) &";")
IF rs.bof AND rs.eof THEN
'
ELSE
IF i <> UBound(ID_array) THEN
%>
"><%=rs("categoryname")%> >
<%
ELSE
response.write(""& rs("categoryname") &"")
END IF
END IF
rs.close
set rs = nothing
NEXT
ELSE
i = 1
set rs=cn.Execute("SELECT categoryname FROM categories WHERE categoryID = "& request.querystring("categoryID_list") &";")
IF rs.bof AND rs.eof THEN
'
ELSE
response.write(""& rs("categoryname") &"")
END IF
rs.close
set rs = nothing
END IF
END IF
IF request.querystring("year") <> "" THEN
IF i > 0 THEN
response.write("
")
i = 0
ELSE
response.write(" ")
END IF
response.write(request.querystring("year"))
END IF
IF request.querystring("manufacturer") <> "" OR request.querystring("model") <> "" THEN
IF i > 0 THEN
response.write("
")
i = 0
ELSE
response.write(" ")
END IF
IF request.querystring("manufacturer") <> "" AND request.querystring("model") <> "" THEN
response.write(request.querystring("manufacturer") &", "& request.querystring("model"))
ELSEIF request.querystring("manufacturer") = "" AND request.querystring("model") <> "" THEN
response.write(request.querystring("model"))
ELSEIF request.querystring("manufacturer") <> "" AND request.querystring("model") = "" THEN
response.write(request.querystring("manufacturer"))
END IF
END IF
IF request.querystring("sale_type") <> "" THEN
IF i > 0 THEN
response.write("
Listings ")
i = 0
ELSE
response.write(" ")
END IF
response.write(request.querystring("sale_type"))
END IF
IF request.querystring("listing_price") <> "" THEN
IF i > 0 THEN
response.write("
")
i = 0
ELSE
response.write(" ")
END IF
response.write(Replace(Replace(Replace(Replace(Replace(request.querystring("listing_price"),"vehicles.listing_price",""),"> ","More Than "),"< ","Less Than "),")",""),"(",""))
END IF
IF request.querystring("strKeywords") <> "" THEN
IF i > 0 THEN
response.write("
With ")
i = 0
ELSE
response.write(" with ")
END IF
response.write("keywords: "& request.querystring("strKeywords"))
END IF
%> |
<% END IF %>
<%
IF CInt(current_page) > 1 THEN
i = 1
%>
< ">Previous Page
<%
END IF
IF CInt(current_page) < CInt(total_page_count) THEN
IF i = 1 THEN response.write(" | ")
%>
">Next Page >
<%
END IF
%>
|
<% END SUB %>
<%
SUB WriteBriefDisplay(page_size,current_page,records_displayed,vehicleID,display_title,listing_price,manufacturer,model,year,display_options)
display_options_array = Split(display_options,",")
IF records_displayed MOD 2 = 0 THEN
%>
|
<%=display_title%>
|
|
<%
set sub_rs = cn.Execute("SELECT *,order_number FROM vehicle_images WHERE vehicleID = "& vehicleID &" ORDER BY order_number;")
IF sub_rs.bof AND sub_rs.eof THEN
response.write("")
ELSE
sub_rs.movefirst
%>
">" width=112 height=84 border=0 alt="Click to View Details of this Vehicle">
<%
END IF
sub_rs.close
set sub_rs=nothing
%>
|
<%
IF display_options_array(3) <> 0 THEN response.write(""& ChooseCurrency(listing_price) &"
")
IF request.querystring("sale_type") <> "" THEN
set sub_rs = cn.Execute("SELECT * FROM categories INNER JOIN category_vehicle_link ON categories.categoryID = category_vehicle_link.categoryID WHERE category_vehicle_link.vehicleID = "& vehicleID &" AND (categories.categoryname = 'For Sale' OR categories.categoryname = 'For Rent' OR categories.categoryname = 'For Lease' OR categories.categoryname = 'For Sale or Lease');")
IF sub_rs.bof AND sub_rs.eof THEN
'
ELSE
sub_rs.movefirst
%>
<%=sub_rs("categoryname")%>
<%
END IF
sub_rs.close
set sub_rs=nothing
END IF
IF year <> "" AND display_options_array(2) <> 0 THEN
response.write(year &" ")
END IF
IF manufacturer <> "" AND display_options_array(0) <> 0 THEN
response.write(manufacturer &"
")
END IF
IF model <> "" AND display_options_array(1) <> 0 THEN
response.write(model &"
")
END IF
%>
">View Details >
|
|
|
<% ELSE %>
|
<%=display_title%>
|
|
<%
set sub_rs = cn.Execute("SELECT *,order_number FROM vehicle_images WHERE vehicleID = "& vehicleID &" ORDER BY order_number;")
IF sub_rs.bof AND sub_rs.eof THEN
response.write("")
ELSE
sub_rs.movefirst
%>
">" width=112 height=84 border=0 alt="Click to View Details of this Vehicle">
<%
END IF
sub_rs.close
set sub_rs=nothing
%>
|
<%
IF display_options_array(3) <> 0 THEN response.write(""& ChooseCurrency(listing_price) &"
")
IF request.querystring("sale_type") <> "" THEN
set sub_rs = cn.Execute("SELECT * FROM categories INNER JOIN category_vehicle_link ON categories.categoryID = category_vehicle_link.categoryID WHERE category_vehicle_link.vehicleID = "& vehicleID &" AND (categories.categoryname = 'For Sale' OR categories.categoryname = 'For Rent' OR categories.categoryname = 'For Lease' OR categories.categoryname = 'For Sale or Lease');")
IF sub_rs.bof AND sub_rs.eof THEN
'
ELSE
sub_rs.movefirst
%>
<%=sub_rs("categoryname")%>
<%
END IF
sub_rs.close
set sub_rs=nothing
END IF
IF year <> "" AND display_options_array(2) <> 0 THEN
response.write(year &" ")
END IF
IF manufacturer <> "" AND display_options_array(0) <> 0 THEN
response.write(manufacturer &"
")
END IF
IF model <> "" AND display_options_array(1) <> 0 THEN
response.write(model &"
")
END IF
%>
">View Details >
|
|
| |
<%
END IF
END SUB
%>
<%
FUNCTION CreateLink(strings)
dim n_array,q_array, new_q, x, temp_str
'sale_type
'manufacturer
'model
'year
'price (range)
'keywords
'categoryID_list
'vehicleID
'agentID
'boolean
'stocknumber
q_array = Split("sale_type,categoryID_list,manufacturer,model,year,listing_price,page_size,o,strKeywords,vehicleID,agentID,boolean",",")
n_array = Split(strings,",")
new_q = "vehiclelistings.asp?"
temp_str = ""
FOR x = 0 TO UBound(n_array) Step 2
IF n_array(x) = "sale_type" THEN
new_q = new_q & n_array(x) &"="& Server.URLEncode(n_array(x+1)) &"&"
ELSE
new_q = new_q & n_array(x) &"="& n_array(x+1) &"&"
END IF
temp_str = temp_str &" "& n_array(x)
NEXT
FOR x = 0 TO UBound(q_array)
IF Instr(temp_str,q_array(x)) = 0 AND request.querystring(q_array(x)) <> "" THEN
IF q_array(x) = "sale_type" THEN
new_q = new_q & q_array(x) &"="& Server.URLEncode(Request.querystring(q_array(x))) &"&"
ELSE
new_q = new_q & q_array(x) &"="& request.querystring(q_array(x)) &"&"
END IF
END IF
NEXT
IF Right(new_q,1) = "&" THEN
new_q = Left(new_q,Len(new_q)-1)
END IF
CreateLink = new_q
END FUNCTION
SUB WriteBrowseOptions
IF request.querystring = "" THEN
%>
Browse... You can browse through our vehicles, or use the search below to find exactly what you're looking for. Please select one of our main categories:
<%
set sub_rs = cn.Execute("SELECT DISTINCTROW categories.categoryID, categories.categoryname FROM categories LEFT JOIN category_vehicle_link ON categories.categoryID = category_vehicle_link.categoryID WHERE (((category_vehicle_link.categoryID) Is NOT Null)) AND categories.supercategory = 1 ORDER BY categories.categoryname;")
IF sub_rs.bof AND sub_rs.eof THEN
'
ELSE
sub_rs.movefirst
DO UNTIL sub_rs.eof
%>
><%=sub_rs("categoryname")%>
<%
sub_rs.movenext
LOOP
END IF
sub_rs.close
set sub_rs = nothing
ELSE
dim s_list
s_list = ""
set sub_rs = cn.Execute("SELECT DISTINCTROW categories.categoryID, categories.categoryname FROM categories LEFT JOIN category_vehicle_link ON categories.categoryID = category_vehicle_link.categoryID WHERE (((category_vehicle_link.categoryID) Is NOT Null)) AND categories.supercategory = 1 ORDER BY categories.categoryname;")
IF sub_rs.bof AND sub_rs.eof THEN
'
ELSE
sub_rs.movefirst
%>
<%
END IF
IF s_list <> "" THEN
ID_array = Split(s_list,",")
%>
<% ELSE %>
<%
END IF
sub_rs.close
set sub_rs = nothing
END IF
END SUB
%>