Untitled

<%@ LANGUAGE=vbscript enablesessionstate=true LCID=1033 %>
<%

if Request.QueryString("type") = "make" then
YearChosen = Request.QueryString("value")


			cmdTemp.CommandText = "SELECT * From eacstore_yrmake where '" & YearChosen & "' >= start_year and '" & YearChosen & "' <= end_year order by make"
			Set rsMake = Server.CreateObject("ADODB.Recordset")
			rsMake.CursorLocation = 2						
			rsMake.Open cmdTemp, , adOpenStatic, adLockReadOnly
			MakeCount = rsMake.RecordCount
			MakeCount = MakeCount - 1
			Set Make = rsMake("make")
            if MakeCount => 0 then
			MakeRows = rsMake.getRows
            end if
			rsMake.Close
			Set rsMake = nothing

response.Write(MakeCount & " make/s found.")
else 
if Request.QueryString("type") = "model" then
makeChosen = Request.QueryString("value")

			cmdTemp.CommandText = "SELECT model From eacstore_yrmakeMod where make = '" & MakeChosen & "' and start_year = '" & YearChosen & "' order by model"
			Set rsModel = Server.CreateObject("ADODB.Recordset")
			rsModel.CursorLocation = 2						
			rsModel.Open cmdTemp, , adOpenStatic, adLockReadOnly
			ModelCount = rsModel.RecordCount
			ModelCount = ModelCount - 1
			Set Model = rsModel("Model")
			if ModelCount => 0 then	
			ModelRows = rsModel.getRows
			end if
			rsModel.Close
			Set rsModel = nothing
response.Write(ModelCount & " model/s found.")

end if
end if
%>