Home            


Add your link

News Shops Education Government Business
Sport Pets Places to go Manufacturers Charity
Motoring Computing Public Transport Phone Directories Tourism
Employment Fashion UK Companies Finance Fun Sites
Leisure & Entertainment Useful Sites Buying a Home Medical Services Hobbies
Business Search
Find any Business Anywhere. Click here and use our online business search
<% if request("firstquery") = "true" then response.write("") else response.write "
NEW SEARCH
" end if dim strManufacturer, strSoutheast, strSouthwest, strWestCountry, strMidlands, strNorth, strScotland, strChannel, strNireland dim strPostcode, strModel, intMinprice, intMaxprice, strGaragename strPostcode = request("Postcode") strModel = split(request("model"), " ") intMinprice = request("minprice") intMaxprice = request("maxprice") strGaragename = request("garagename") strManufacturer = request("Manufacturers") dim blnSE, blnSW, blnWC, blnM, blnN, blnS, blnC, blnI if request("southeast") = 1 then strSoutheast = "South East" blnSE = 1 else blnSE = 0 end if if request("southwest") = 1 then strsouthwest = "South West" blnSW = 1 else blnSW = 0 end if if request("westcountry") = 1 then strwestcountry = "West Country" blnWC = 1 else blnWC = 0 end if if request("midlands") = "1" then strmidlands = "Midlands" blnM = 1 else blnM = 0 end if if request("north") = "1" then strnorth = "North" blnN = 1 else blnN = 0 end if if request("Scotland") = "1" then strscotland = "Scotland" blnS = 1 else blnS = 0 end if if request("Channel") = "1" then strchannel = "Channel Islands" blnC = 1 else blnC = 0 end if if request("nireland") = "1" then strnireland = "Northern Ireland" blnI = 1 else blnI = 0 end if 'Set how many records per page we want Const NumPerPage = 8 'Retrieve what page we're currently on Dim CurPage If Request.QueryString("CurPage") = "" then CurPage = 1 'We're on the first page Else CurPage = Request.QueryString("CurPage") End If Dim rsCars, strSql Set rsCars = Server.CreateObject("ADODB.Recordset") rscars.CursorLocation = adUseClient rscars.CacheSize = NumPerPage strSql = "select * FROM carregions " if request("Manufacturers") = "All Manufacturers" then strSql = strSql & " where carName like '%' " else strSql = strSql & " where carName like '%" & strManufacturer & "%' " end if if request("garagename") = "" then strSql = strSql & " and tradename like '%' " else strSql = strSql & " and tradename like '%" & strGaragename & "%' " end if strSql = strSql & " and (retailprice > 0 or poa = true) " strSql = strSql & " and pp_offered = false " strSql = strSql & " And (region in ('" & strsoutheast & "', '" & strSouthwest & "', '" & strWestCountry & "', '" & strMidlands & "', '" & strNorth & "', '" & strScotland & "', '" & strChannel & "', '" & strNireland&"') or privateregion in ('" & strsoutheast & "', '" & strSouthwest & "', '" & strWestCountry & "', '" & strMidlands & "', '" & strNorth & "', '" & strScotland & "', '" & strChannel & "', '" & strNireland&"'))" if request("Postcode") <> "" then strSql = strSql & " And (Postcode like '%" & strPostcode & "%' or privatePostcode like '%" & strPostcode & "%')" end if if request("model") <> "" then dim i for i = 0 to UBound(strModel) strSql = strSql & " And (carName like '%" & strModel(i) & "%' or carDerivative like'%" & strModel(i) & "%')" next end if if request("minprice") <> "" then strSql = strSql & " And (retailprice between " & cLng(intMinprice) & " and " & clng(intMaxprice)& " or retailprice between " & cLng(intMinprice) & " and " & clng(intMaxprice) & ")" end if strSql = strSql & " and itemstatus = 'active'" strSql = strSql & " order by primaryKey desc" 'response.write strSql 'for troubleshooting rsCars.Open strSql, objConn If Not rsCars.EOF Then Response.Write _ "" & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " Dim objCmd, rsOffer, str2Sql Set objCmd = Server.CreateObject("ADODB.Command") Set objCmd.ActiveConnection = objConn str2Sql = "SELECT Max(OfferAmount) AS MaxOfferAmount, " & _ "Max(TimeStamp) AS LastOfferTime FROM Offer" objCmd.CommandType = adCmdText count = 0 rscars.MoveFirst rscars.PageSize = NumPerPage Dim TotalPages TotalPages = rscars.PageCount rscars.AbsolutePage = CurPage Dim count Do While Not rsCars.EOF and count < rsCars.pageSize Response.Write "" Response.Write _ "" if isnull(rsCars("manufactureyear")) then response.write "" else response.write "" end if if rsCars("mileage") = "" then response.write "" else response.write "" end if if isnull(rsCars("colour")) then response.write "" else response.write "" end if if rsCars("POA") = true then response.write "" else response.write "" end if Response.Write "" count = count + 1 rsCars.MoveNext Loop Response.Write "
NameYearMileageColourPrice
" & rsCars("carName") & " " & rsCars("manufactureyear") & " " & rsCars("mileage") & "None Given" & rsCars("colour") & "P.O.A." & formatcurrency(rsCars("retailprice")) & "
" Response.Write("Page " & CurPage & "
") if CurPage > 1 then Response.Write("") End If if CInt(CurPage) <> CInt(TotalPages) then Response.Write("") End If rsCars.close Set rsCars = Nothing Else if request("firstquery") = "true" then response.write "" else Response.Write "
Sorry, no cars currently match your criteria
" end if End If dim rsManufacturers, str3Sql set rsManufacturers = Server.CreateObject("ADODB.Recordset") str3Sql = "SELECT distinct manufacturer FROM carmaster order by manufacturer asc" rsManufacturers.Open str3Sql, objconn %>
Search The Web

Click Here for the best deals on New & Used Cars


Get the free Search 2 Toolbar, click here.

<< Free Email wih Mail9.com : Sign up >>

Click Here for the best deals on New and Used Cars

Car Manufacturers
Main Dealers
New Cars & Importers
Used Cars & Classified
Motor Bikes
Classic Car Sales
Classic Car Parts & Restoration
Car Clubs
Car Auctions
Car Hire Companies
Car Breakdown Organisations
Car Insurance Directory
Car Loans Directory
Car Accessories Suppliers
Learning to Drive Schools Etc.
Boats Brokerage Boat Sales
Bicycle Sales & Clubs
Map & traffic sites
Motor Racing F1 & Rally
car insurance
cheap car insurance
tesco car insurance
quote car insurance
car insurance uk
budget car insurance
the aa car insurance
diamond car insurance
direct line car insurance
car insurance company
classic car insurance
car insurance online
car insurance group
car insurance and churchill
car insurance for woman
admiral car insurance
cheapest car insurance
car insurance online quote
car insurance for young driver
norwich union car insurance
car insurance cheap uk
car insurance northern ireland
car insurance more than
import car insurance
halifax car insurance
elephant car insurance
co op car insurance
sainsburys car insurance
cis car insurance
cheaper car insurance
esure car insurance
low cost car insurance
axa car insurance
car insurance broker
imported car insurance
car breakdown insurance
womens car insurance
car insurance quotation
on line car insurance quote
motor car insurance
saga car insurance
car insurance ireland
privilege car insurance
uk car insurance company
performance car insurance
cheap car insurance for woman
lady car insurance
cheap car insurance for year olds
car insurance rate
female car insurance
car coop insurance
rac car insurance
provident car insurance
student car insurance
cheap car insurance quote
kit car insurance
cheap car insurance for young driver
sport car insurance
church hill car insurance
car insurance comparison
free car insurance quote
high performance car insurance
swinton car insurance
car cheap convicted driver insurance
young driver car insurance quote
car insurance sainsbury
car insurance prudential
car insurance in uk
classic car insurance uk
car insurance on line
modified car insurance
car insurance online uk
cheapest car insurance uk
car insurance in northern ireland
lloyds tsb car insurance
car insurance group uk
eagle star car insurance
compare car insurance quote
car experts.co.uk insurance
car insurance qoutes
online car insurance quote uk
compare car insurance
liverpool victoria car insurance
quick car insurance quote
zurich car insurance
car import insurance japanese
free car insurance
car insurance quote for northern ireland
egg car insurance
uk car insurance motor
endsleigh car insurance
get cheap car insurance
car fit insurance kwik
car insurance for young people
instant car insurance quote
the cheapest car insurance quote
cheap car insurance in the uk
car insurance morethan
lloyds car insurance
churchills car insurance
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

feedback
search site