<% ' 'Copyright 2003 Pulse2 Business Solutions 'None of the coding on this script may be copied, reproduced, distributed, republished, downloaded, 'displayed, posted or transmitted in any form or by any means, including but not limited to 'electronic, mechanical, photocopying, recording, or other means, without the 'prior express written permission of Pulse2 Business Solutions. ' '------------------------------- ' Default CustomIncludes begin %> <% ' Default CustomIncludes end '------------------------------- '=============================== ' Save Page and File Name available into variables '------------------------------- sFileName = "browse.asp" '=============================== '=============================== ' Default PageSecurity begin ' Default PageSecurity end '=============================== '=============================== ' Default Open Event start ' Default Open Event end '=============================== '=============================== ' Default OpenAnyPage Event start ' Default OpenAnyPage Event end '=============================== '=============================== ' Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Default Show begin '=============================== ' Page execution '------------------------------- 'Initialize error variables '------------------------------- sTreeErr = "" '------------------------------- ' Select the FormAction '------------------------------- Select Case sForm Case "Tree" TreeAction(sAction) end select '=============================== '=============================== ' HTML Page layout '------------------------------- %> Used Car Classifieds


<% Header_Show %>
 
<% Search_Show %> <% Menu_Show %>

Car Resellers is the ideal place to find your next car, with listings in your area and across the country. Car Resellers are searched by millions of used car shoppers each month. List your ad today and Category money from your used car now. Our classifieds delivers results! Place your used car  ad today. With one payment of only 14.95 per year membership Fee, you can list as many cars as you like.

Full color pictures - Low price - Sell Your Car Fast
Ad seen by millions - Change yours ads anytime - Easy to list

Sell Your Car

Browse Used Cars

Why Choose Us

With an ad on our site you will get:

Lower cost then local newspaper listing.
No hidden Fees like other sites.
Edit your ad anytime.
Secured and instant ad activation
 
Sell your car now!

For buyers, we offer a large online inventory of used cars. You can search for cars in various ways from using our popular ez-interface.  Find the perfect used car here.
Browse Used  Cars
 
Car Resellers offers the opportunity to place a vehicle for sale before the world's largest online audience of prospective buyers. This means that cars sell fast.
Learn More
<% Footer_Show %>

<% ' Default Show end ' Default Close Event start ' Default Close Event end '------------------------------- ' Destroy connection object '------------------------------- cn.close Set cn = nothing '=============================== '******************************************************************************** '=============================== ' Tree Form Action '------------------------------- Sub TreeAction(sAction) '------------------------------- ' Tree Action begin '------------------------------- sCatID = GetParam("Category_id") if not IsEmpty(sCatID) then If CLng(DlookUp("categories", "count(*)", "par_Category_id=" & sCatID)) = 0 then cn.Close Set cn = Nothing response.redirect("AdsGrid.asp?Category_id=" & sCatID) end if end if '------------------------------- ' Tree Action end '------------------------------- End Sub '=============================== '=============================== ' Display Tree Form '------------------------------- Sub Tree_Show() Dim sFormTitle: sFormTitle = "" '------------------------------- ' Tree Open Event start ' Tree Open Event end '------------------------------- '------------------------------- ' Tree Show begin '------------------------------- action_page="browse.asp" %> <% '------------------------------- ' Categories list '------------------------------- openrs rs, sSQL & sWhere '------------------------------- ' Print subcategories '------------------------------- while not rs.EOF Category_id = GetValueHTML(rs,"Category_id") Category_name = GetValueHTML(rs,"name") '------------------------------- ' Tree ShowCategory Event start ' Tree ShowCategory Event end '------------------------------- %> <% rs.movenext wend response.write "
Categorys > <% sSQL = "select Category_id, name, par_Category_id from categories" sCatID = GetParam("Category_id") '------------------------------- ' Tree BeforeShow Event start ' Tree BeforeShow Event end '------------------------------- if IsEmpty(sCatID) then '------------------------------- ' Root Category '------------------------------- sWhere = " WHERE par_Category_id IS NULL OR par_Category_id=0" else '------------------------------- ' SubCategory '------------------------------- sWhere = " where Category_id=" & sCatID openrs rs, sSQL & sWhere current_Category = GetValueHTML(rs,"name") sParCatID = GetValueHTML(rs, "par_Category_id") sPath = "" set rs = nothing '------------------------------- ' Build Path '------------------------------- do while sParCatID <> "" openrs rs, sSQL & " where Category_id=" & sParCatID if not rs.EOF then sParCatID = GetValueHTML(rs, "par_Category_id") Category_name = GetValueHTML(rs, "name") Category_id = GetValueHTML(rs, "Category_id") sPath="" & Category_name & " > " & sPath set rs = nothing else set rs = nothing exit do end if Loop response.write sPath response.write current_Category sWhere = " where par_Category_id=" & sCatID end if %>
<%= Category_name %>
" '------------------------------- ' Tree Show end '------------------------------- '------------------------------- ' Tree Close Event start ' Tree Close Event end '------------------------------- set rs = nothing end sub '=============================== '=============================== ' Display Search Form '------------------------------- Sub Search_Show() Dim sFormTitle: sFormTitle = "Search Used Car Classifieds" Dim action_page: action_page = "AdsGrid.asp" '------------------------------- ' Search Open Event start ' Search Open Event end '------------------------------- '------------------------------- ' Set variables with search parameters '------------------------------- fldname = GetParam("name") '------------------------------- ' Search Show begin '------------------------------- '------------------------------- ' Search Show Event start ' Search Show Event end '------------------------------- %>
<%=sFormTitle%>
Name
<% '------------------------------- ' Search Show end '------------------------------- '------------------------------- ' Search Close Event start ' Search Close Event end '------------------------------- end sub '=============================== '=============================== ' Display Menu Form '------------------------------- Sub Menu_Show() Dim sFormTitle: sFormTitle = ""'------------------------------- ' Menu Open Event start ' Menu Open Event end '------------------------------- '------------------------------- ' Set URLs '------------------------------- fldField1 = "AdvSearch.asp" '------------------------------- ' Menu Show begin '------------------------------- '------------------------------- ' Menu BeforeShow Event start ' Menu BeforeShow Event end '------------------------------- '------------------------------- ' Show fields '------------------------------- %>
Advanced Search
<% '------------------------------- ' Menu Show end '------------------------------- end sub '=============================== '=============================== ' Display Grid Form '------------------------------- Sub Ads_Show() '------------------------------- ' Initialize variables '------------------------------- Dim rs Dim sWhere : sWhere = "" Dim sOrder : sOrder = "" Dim sSQL : sSQL = "" Dim sFormTitle: sFormTitle = "Recent Car Classifieds" Dim HasParam : HasParam = false Dim iSort : iSort = "" Dim iSorted : iSorted = "" Dim sDirection : sDirection = "" Dim form_sorting : form_sorting = "" Dim sSortParams : sSortParams = "" Dim form_action : form_action = "" Dim iRecordsPerPage : iRecordsPerPage = 10 Dim iCounter : iCounter = 0 Dim sActionFileName : sActionFileName = "MyAdSelCat.asp" Dim transit_params : transit_params = "" Dim form_params : form_params = "" '------------------------------- ' Build ORDER BY statement '------------------------------- sOrder = " order by a.date_posted Desc" iSort = GetParam("FormAds_Sorting") iSorted = GetParam("FormAds_Sorted") sDirection = "" if IsEmpty(iSort) then form_sorting = "" else if iSort = iSorted then form_sorting = "" sDirection = " DESC" sSortParams = "FormAds_Sorting=" & iSort & "&FormAds_Sorted=" & iSort & "&" else form_sorting = iSort sDirection = " ASC" sSortParams = "FormAds_Sorting=" & iSort & "&FormAds_Sorted=" & "&" end if if iSort = 1 then sOrder = " order by c.[par_Category_id]" & sDirection if iSort = 2 then sOrder = " order by a.[date_posted]" & sDirection if iSort = 3 then sOrder = " order by a.[name]" & sDirection if iSort = 4 then sOrder = " order by a.[price]" & sDirection end if '------------------------------- ' HTML column headers '------------------------------- %> <% '------------------------------- ' Ads Close Event start ' Ads Close Event end '------------------------------- end sub '=============================== %>