<% 
Dim usedMiles
usedMiles = Request.QueryString("Mileage")

Set OBJdbConnection = Server.CreateObject ("ADODB.Connection") 
OBJdbConnection.Open "usedChrome"

SQLQuery = "Select * from SMARTVEH where year = '" & Request.QueryString("Year") & "' and make = '" & Request.QueryString("Make") & "' and model = '" & Request.QueryString("Model") & "' and style = '" & Request.QueryString("Style") & "'"
Set Options = OBJdbConnection.Execute(SQLQuery) 

SQLQuery3 = "Select * from MILEAGE where smiles <" & usedMiles & " and emiles >" & usedMiles & " or keep = 1" 

SQLQuery2 = "select * from MILEAGE where smiles <= 45001 and emiles >= 45001 or keep = 1"
Set Mileage = OBJdbConnection.Execute(SQLQuery2) 
%>

<%
Dim price
Dim Body
Body = ""

'Body = "Whl=" & Request.QueryString("value_whl") & " Ret=" & Request.QueryString("value_ret") & " Mileage=" & Request.QueryString("Mileage")

Mileage.MoveFirst
Do While Not Mileage.EOF

	if (Mileage("Smiles") = Cint(Request.QueryString("Year"))) then
		Mileage.MoveNext

		if (Request.QueryString("value_whl") > 0 and Request.QueryString("value_whl") < 501) then
			price_whl = Mileage("Field3")
			price_ret = Mileage("Field3")
		end if		
		if (Request.QueryString("value_whl") > 500 and Request.QueryString("value_whl") < 1501) then
			price_whl = Mileage("Field4")
			price_ret = Mileage("Field4")
		end if		
		if (Request.QueryString("value_whl") > 1500 and Request.QueryString("value_whl") < 2501) then
			price_whl = Mileage("Field5")
			price_ret = Mileage("Field5")
		end if		
		if (Request.QueryString("value_whl") > 2500 and Request.QueryString("value_whl") < 3501) then
			price_whl = Mileage("Field6")
			price_ret = Mileage("Field6")
		end if		
		if (Request.QueryString("value_whl") > 3500 and Request.QueryString("value_whl") < 4501) then
			price_whl = Mileage("Field7")
			price_ret = Mileage("Field7")
		end if		
		if (Request.QueryString("value_whl") > 4500 and Request.QueryString("value_whl") < 5501) then
			price_whl = Mileage("Field8")
			price_ret = Mileage("Field8")
		end if		
		if (Request.QueryString("value_whl") > 5500 and Request.QueryString("value_whl") < 6501) then
			price_whl = Mileage("Field9")
			price_ret = Mileage("Field9")
		end if		
		if (Request.QueryString("value_whl") > 6500 and Request.QueryString("value_whl") < 7501) then
			price_whl = Mileage("Field10")
			price_ret = Mileage("Field10")
		end if		
		if (Request.QueryString("value_whl") > 7500 and Request.QueryString("value_whl") < 8501) then
			price_whl = Mileage("Field11")
			price_ret = Mileage("Field11")
		end if		
		if (Request.QueryString("value_whl") > 8500 and Request.QueryString("value_whl") < 9501) then
			price_whl = Mileage("Field12")
			price_ret = Mileage("Field12")
		end if		
		if (Request.QueryString("value_whl") > 9500 and Request.QueryString("value_whl") < 10501) then
			price_whl = Mileage("Field13")
			price_ret = Mileage("Field13")
		end if		
		if (Request.QueryString("value_whl") > 10500 and Request.QueryString("value_whl") < 11501) then
			price_whl = Mileage("Field14")
			price_ret = Mileage("Field14")
		end if		
		if (Request.QueryString("value_whl") > 11500 and Request.QueryString("value_whl") < 12501) then
			price_whl = Mileage("Field15")
			price_ret = Mileage("Field15")
		end if		
		if (Request.QueryString("value_whl") > 12500 and Request.QueryString("value_whl") < 13501) then
			price_whl = Mileage("Field16")
			price_ret = Mileage("Field16")
		end if		
		if (Request.QueryString("value_whl") > 13500 and Request.QueryString("value_whl") < 14501) then
			price_whl = Mileage("Field17")
			price_ret = Mileage("Field17")
		end if		
		if (Request.QueryString("value_whl") > 14500 and Request.QueryString("value_whl") < 15501) then
			price_whl = Mileage("Field18")
			price_ret = Mileage("Field18")
		end if		
		if (Request.QueryString("value_whl") > 15500 and Request.QueryString("value_whl") < 16501) then
			price_whl = Mileage("Field19")
			price_ret = Mileage("Field19")
		end if		
		if (Request.QueryString("value_whl") > 16500 and Request.QueryString("value_whl") < 17501) then
			price_whl = Mileage("Field20")
			price_ret = Mileage("Field20")
		end if		
		if (Request.QueryString("value_whl") > 17500 and Request.QueryString("value_whl") < 18501) then
			price_whl = Mileage("Field21")
			price_ret = Mileage("Field21")
		end if		
		if (Request.QueryString("value_whl") > 18500 and Request.QueryString("value_whl") < 19501) then
			price_whl = Mileage("Field22")
			price_ret = Mileage("Field22")
		end if		
		if (Request.QueryString("value_whl") > 19500 and Request.QueryString("value_whl") < 20501) then
			price_whl = Mileage("Field23")
			price_ret = Mileage("Field23")
		end if		
		if (Request.QueryString("value_whl") > 20500 and Request.QueryString("value_whl") < 21501) then
			price_whl = Mileage("Field24")
			price_ret = Mileage("Field24")
		end if		
		if (Request.QueryString("value_whl") > 21500 and Request.QueryString("value_whl") < 22501) then
			price_whl = Mileage("Field25")
			price_ret = Mileage("Field25")
		end if		
		if (Request.QueryString("value_whl") > 22500 and Request.QueryString("value_whl") < 23501) then
			price_whl = Mileage("Field26")
			price_ret = Mileage("Field26")
		end if		
		if (Request.QueryString("value_whl") > 23500 and Request.QueryString("value_whl") < 24501) then
			price_whl = Mileage("Field27")
			price_ret = Mileage("Field27")
		end if		
		if (Request.QueryString("value_whl") > 24500 and Request.QueryString("value_whl") < 25501) then
			price_whl = Mileage("Field28")
			price_ret = Mileage("Field28")
		end if		
		if (Request.QueryString("value_whl") > 25500 and Request.QueryString("value_whl") < 26501) then
			price_whl = Mileage("Field29")
			price_ret = Mileage("Field29")
		end if		
		if (Request.QueryString("value_whl") > 26500 and Request.QueryString("value_whl") < 27501) then
			price_whl = Mileage("Field30")
			price_ret = Mileage("Field30")
		end if		
		if (Request.QueryString("value_whl") > 27500 and Request.QueryString("value_whl") < 28501) then
			price_whl = Mileage("Field31")
			price_ret = Mileage("Field31")
		end if		
		if (Request.QueryString("value_whl") > 28500 and Request.QueryString("value_whl") < 29501) then
			price_whl = Mileage("Field32")
			price_ret = Mileage("Field32")
		end if		
		if (Request.QueryString("value_whl") > 29500 and Request.QueryString("value_whl") < 30501) then
			price_whl = Mileage("Field33")
			price_ret = Mileage("Field33")
		end if		
		if (Request.QueryString("value_whl") > 30500 and Request.QueryString("value_whl") < 31501) then
			price_whl = Mileage("Field34")
			price_ret = Mileage("Field34")
		end if		
		if (Request.QueryString("value_whl") > 31500 and Request.QueryString("value_whl") < 32501) then
			price_whl = Mileage("Field35")
			price_ret = Mileage("Field35")
		end if		
		if (Request.QueryString("value_whl") > 32500 and Request.QueryString("value_whl") < 33501) then
			price_whl = Mileage("Field36")
			price_ret = Mileage("Field36")
		end if		
		if (Request.QueryString("value_whl") > 33500 and Request.QueryString("value_whl") < 34501) then
			price_whl = Mileage("Field37")
			price_ret = Mileage("Field37")
		end if		
		if (Request.QueryString("value_whl") > 34500 and Request.QueryString("value_whl") < 35501) then
			price_whl = Mileage("Field38")
			price_ret = Mileage("Field38")
		end if		
		if (Request.QueryString("value_whl") > 35500 and Request.QueryString("value_whl") < 36501) then
			price_whl = Mileage("Field39")
			price_ret = Mileage("Field39")
		end if		
		if (Request.QueryString("value_whl") > 36500 and Request.QueryString("value_whl") < 37501) then
			price_whl = Mileage("Field40")
			price_ret = Mileage("Field40")
		end if		
		if (Request.QueryString("value_whl") > 37500 and Request.QueryString("value_whl") < 38501) then
			price_whl = Mileage("Field41")
			price_ret = Mileage("Field41")
		end if		
		if (Request.QueryString("value_whl") > 38500 and Request.QueryString("value_whl") < 39501) then
			price_whl = Mileage("Field42")
			price_ret = Mileage("Field42")
		end if		
		if (Request.QueryString("value_whl") > 39500 and Request.QueryString("value_whl") < 40001) then
			price_whl = Mileage("Field43")
			price_ret = Mileage("Field43")
		end if		
		if (Request.QueryString("value_whl") > 40000 and Request.QueryString("value_whl") < 45001) then
			price_whl = Mileage("Field44")
			price_ret = Mileage("Field44")
		end if		
		if (Request.QueryString("value_whl") > 45000 and Request.QueryString("value_whl") < 50001) then
			price_whl = Mileage("Field45")
			price_ret = Mileage("Field45")
		end if		
		if (Request.QueryString("value_whl") > 50000 and Request.QueryString("value_whl") < 60001) then
			price_whl = Mileage("Field46")
			price_ret = Mileage("Field46")
		end if		
		if (Request.QueryString("value_whl") > 60000 and Request.QueryString("value_whl") < 70001) then
			price_whl = Mileage("Field47")
			price_ret = Mileage("Field47")
		end if		
		if (Request.QueryString("value_whl") > 70000 and Request.QueryString("value_whl") < 80001) then
			price_whl = Mileage("Field48")
			price_ret = Mileage("Field48")
		end if		
		if (Request.QueryString("value_whl") > 80000 and Request.QueryString("value_whl") < 90001) then
			price_whl = Mileage("Field49")
			price_ret = Mileage("Field49")
		end if		
		if (Request.QueryString("value_whl") > 90000 and Request.QueryString("value_whl") < 100001) then
			price_whl = Mileage("Field50")
			price_ret = Mileage("Field50")
		end if		
		if (Request.QueryString("value_whl") > 100000 and Request.QueryString("value_whl") < 200001) then
			price_whl = Mileage("Field51")
			price_ret = Mileage("Field51")
		end if		
	end if

Mileage.MoveNext 
Loop 
%>

<%
dim whl
whl = Request.QueryString("value_whl") + price_whl
dim ret
ret = Request.QueryString("value_ret") + price_ret
 
Body = body & "<br />" & "Wholesale:" & whl & "<br />" & "Retail:" & ret 
%>

<%
Response.ContentType = "text/vnd.wap.wml"
%>

<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card>

<p>
<% Response.write(Body) %>
<do type="accept" label="Home">
	<go href="../start.xml"/>
</do>
</p>

</card>
</wml>