why wont the fields populate --please explain in detail what I need to do cos I just dont understand

<!-- #include file = "../include/functions.asp" -->
<%

Dim dbData 'connection to database (ADODB.Connection)
Dim rsData 'recordset to store cars in the dB
Dim strSQL
Dim rsOptions 'car options
Dim CategoryID
Dim VehicleID 'gets proper information related to selection
Dim numincol '
Dim i 'counter
Dim rsCars
Dim selected 'toggles if a car is currently selected

selected=false
set dbData = Server.CreateObject("ADODB.Connection")
dbData.Open Application("DSN")

CategoryID = 0
If Request.Form("CategoryID") <> vbNullString Then CategoryID = Request.Form("CategoryID")

If Request.Form("VehicleList") = vbNullString Then
VehicleID = 0
Else
VehicleID = CLng(Request.Form("VehicleList"))
End If

'Connection to Database
Set dbData = Server.CreateObject("ADODB.Connection")
dbData.Open Application("DSN")

'Connection to Recordsets
strSQL = "SELECT ID, Description FROM used_options"
strSQL = strSQL & " Order by Description"
Set rsOptions = Server.CreateObject("ADODB.Recordset")
rsOptions.Open strSQL, dbData, 1, 3

strSQL = "SELECT * From used_cars"
strSQL = strSQL & " INNER JOIN used_category ON used_cars.CategoryID = used_category.ID"
strSQL = strSQL & " INNER JOIN used_car_options ON used_cars.CarID = used_car_options.CarID"
strSQL = strSQL & " INNER JOIN used_options ON used_car_options.OptionID = used_options.ID"
strSQL = strSQL & " WHERE CategoryID = " & CategoryID 'AND used_cars.CarID = " & VehicleID
Set rsData = Server.CreateObject("ADODB.Recordset")
rsData.Open strSQL, dbData, 1, 3
%>
<html>
<head>
<title>Shaganappi Chevrolet Oldsmobile</title>
</head>
<script language="JavaScript">
//Load Models
function LoadMakes()
{
document.frmUsed.submit();
return;
}
</script>
<body bgcolor="#ffffff" alink="#0000ff" vlink="#0000ff" link="#0000ff" marginwidth="0" marginheight="0" leftmargin="0" topmargin="0">
<form name="frmUsed" action="newlayout.asp" method="post">
<table cellSpacing="0" cellPadding="0" width="400" border="1" align="center">
<tr>
<td colSpan="5">
<center>Select the appropriate vehicle type to add to the inventory:</center>
</td>
</tr>
<tr>
<td>
<input type="image" onclick="this.form.CategoryID.value=2;" src="../images/masterimages/truck.gif">
<p>Trucks</p>
</td>
<td>
<input type="image" onclick="this.form.CategoryID.value=1;" src="../images/masterimages/corvette.gif">
<p>Cars</p>
</td>
<td>
<input type="image" onclick="this.form.CategoryID.value=36;" src="../images/masterimages/mvan.gif">
<p>Minivans</p>
</td>
<td>
<input type="image" onclick="this.form.CategoryID.value=31;" src="../images/masterimages/blazer.gif">
<p>SUV's</p>
</td>
<td>
<input type="image" onclick="this.form.CategoryID.value=47;" src="../images/masterimages/van.gif">
<input type="hidden" name="CategoryID" value="<%=CategoryID%>">
<p>Vans</p>
</td>
</tr>
</table>



<center>
<font face="arial" size="5" color="#ff0000"><strong><em>
<%If CategoryID = 2 Then%>
Trucks
<%ElseIf CategoryID = 1 Then%>
Cars
<%ElseIf CategoryID = 36 Then%>
Minivans
<%ElseIf CategoryID = 31 Then%>
Suv's
<%ElseIf CategoryID = 47 Then%>
Vans
<%End If%>
</em></strong></font>
</center>
<table border="1" cellpadding="10" cellspacing="0" bgcolor="c0c0c0" bordercolor="#000000" width="400" align="center">
<tr>
<td colspan="2" align="center">
<select size="10" name="VehicleList" onchange="LoadMakes();">
<option value="0" <%If VehicleID = 0 Then Response.Write "selected" End If%>>--------------------------------------------- New Listing ---------------------------------------------</option>
<%
Dim rsListing
strSQL = "SELECT Make, CarID, Year, Model, CategoryID From used_cars"
strSQL = strSQL & " WHERE CategoryID = " & CategoryID
strSQL = strSQL & " ORDER BY Make"
set rsListing=server.CreateObject("ADODB.Recordset")
rsListing.Open strSQL, dbdata, 1, 3
If NOT (rsListing.BOF AND rsListing.EOF) Then rsListing.MoveFirst
do until rsListing.EOF
%>
<option value="<%=rsListing.Fields("CarID")%>" <%If VehicleID = rsListing.Fields("CarID") Then Response.Write "selected" End If%>><%=rsListing.Fields("Year")& " " & rsListing.Fields("Make")& " " & rsListing.Fields("Model") %></option>
<%
rsListing.MoveNext
loop
rsListing.Close
set rsListing=nothing
%>
</select>
</td>
</tr>
<tr>
<td>
<font face="arial" size="2">Make</font> <input type="text" value="<%=rsListing.Fields("Make")%>"<%if selected then Response.Write rsListing.Fields("Make")%>>

THIS WILL NTO POPULATE and I do not for the life of me know why
<%
rsOptions.Close
Set rsOptions = Nothing
rsData.Close
Set rsData = Nothing
dbData.Close
Set dbData = Nothing
%>