<%
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("trans") = options("opt_trn") Then
cost_whl = cost_whl + options("trn_whl")
cost_ret = cost_ret + options("trn_ret")
End If
If Request.QueryString("ps") = "1" or 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" or 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" or 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" or 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" or 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" or 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" or 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" or 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" or Request.QueryString("cas") = "1;" Then
cost_whl = cost_whl + options("cas_whl")
cost_ret = cost_ret + options("cas_ret")
End If
If Request.QueryString("cd") = "1" or Request.QueryString("cd") = "1;" Then
cost_whl = cost_whl + options("cd_whl")
cost_ret = cost_ret + options("cd_ret")
End If
If Request.QueryString("roof") = "1" or 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" or 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" or 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" or 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" or 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" or 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("Retail") + cost_ret
%>
<%
Response.ContentType = "text/vnd.wap.wml"
%>
<%
Response.write("")
%>