<% 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) %> <% Dim Body Body = "" dim cost_whl dim cost_ret cost_whl = 0 cost_ret = 0 dim value_whl dim value_ret value_whl = 0 value_ret = 0 Body = Body & "Your car costs - Wholesale =" & Options("Wholesale") & " Retail =" & Options("Retail") & "
" If Request.QueryString("ps") = "1" Then cost_whl = cost_whl + options("ps_whl") cost_ret = cost_ret + options("ps_ret") End If If Request.QueryString("ac") = "1" Then cost_whl = cost_whl + options("ac_whl") cost_ret = cost_ret + options("ac_ret") End If If Request.QueryString("cc") = "1" Then cost_whl = cost_whl + options("cc_whl") cost_ret = cost_ret + options("cc_ret") End If If Request.QueryString("lthr") = "1" Then cost_whl = cost_whl + options("lthr_whl") cost_ret = cost_ret + options("lthr_ret") End If If Request.QueryString("moon") = "1" Then cost_whl = cost_whl + options("moon_whl") cost_ret = cost_ret + options("moon_ret") End If If Request.QueryString("pl") = "1" Then cost_whl = cost_whl + options("pl_whl") cost_ret = cost_ret + options("pl_ret") End If If Request.QueryString("pds") = "1" Then cost_whl = cost_whl + options("pds_whl") cost_ret = cost_ret + options("pds_ret") End If If Request.QueryString("pw") = "1" Then cost_whl = cost_whl + options("pw_whl") cost_ret = cost_ret + options("pw_ret") End If If Request.QueryString("cas") = "1" Then cost_whl = cost_whl + options("cas_whl") cost_ret = cost_ret + options("cas_ret") End If If Request.QueryString("cs") = "1" Then cost_whl = cost_whl + options("cs_whl") cost_ret = cost_ret + options("cs_ret") End If If Request.QueryString("roof") = "1" Then cost_whl = cost_whl + options("roof_whl") cost_ret = cost_ret + options("roof_ret") End If If Request.QueryString("pop") = "1" Then cost_whl = cost_whl + options("pop_whl") cost_ret = cost_ret + options("pop_ret") End If If Request.QueryString("tilt") = "1" Then cost_whl = cost_whl + options("tilt_whl") cost_ret = cost_ret + options("tilt_ret") End If If Request.QueryString("wl") = "1" Then cost_whl = cost_whl + options("wl_whl") cost_ret = cost_ret + options("wl_ret") End If If Request.QueryString("rac") = "1" Then cost_whl = cost_whl + options("rac_whl") cost_ret = cost_ret + options("rac_ret") End If If Request.QueryString("abs") = "1" Then cost_whl = cost_whl + options("abs_whl") cost_ret = cost_ret + options("abs_ret") End If value_whl = value_whl + Options("Wholesale") + cost_whl value_ret = value_ret + Options("Wholesale") + cost_ret %> <% Response.ContentType = "text/vnd.wap.wml" %>

<% Response.write(Body & "
") %> <% Response.write("Total value with options:
") %> <% Response.write("Whl=" & value_whl & "
") %> <% Response.write("Ret=" & value_ret & "
") %>

<% Response.write("") Response.write("") Response.write("prebuilt/options.asp?Year=$(Year)&Make=$(Make)&Model=$(Model)&Style=$(Style)&Mileage=$(Mileage)&trans=$(trans)&ps=$(ps)&ac=$(ac)&cc=$(cc)&lthr=$(lthr)&moon=$(moon)&pl=$(pl)&pds=$(pds)&pw=$(pw)&cas=$(cas)&cd=$(cd)&roof=$(roof)&pop=$(pop)&tilt=$(tilt)&wl=$(wl)&rac=$(rac)&abs=$(abs) Response.write("get") Response.write("") Response.write("")