Car Insurance at Ask Papa

<% 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 "
Name Year Mileage Colour Price
" & 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 %>