<%@ 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 %>