Problem with dropdown lists: one disappears after the previous one is selected

[mldardy]

I really hope this makes sense to someone because I really need some assistance with this:

I have a asp page that I am working on that has as many as 4 dropdownlists depending on what I choose in those dropdowns. The 4 dropdowns are named:iSource, iSub1, iSub2, iSub3. To begin I select an item for iSource then iSub1 comes up and I have an option to choose ALL or any of the other items in the recordset. If I choose ALL it will bring up iSub2 which populates everything that I would have chosen for each of the items in iSub1. After selecting ALL and iSub2 dropdown comes up I choose an item from iSub2. This is where the problem happens. Once I select something from iSub2 dropdown it disappears and iSub1 comes back up. What I want it to do once I select something from iSub2 it should show iSub3 dropdown. Based on my code what am I doing incorrectly. I am showing two pieces of code from the page. The first is the html table with each of the dropdowns and the second is the sql recordset statements:

<table width="100%" cellpadding="2" cellspacing="0" border="0">
		<tr>
				<td>
				Select a Source:
				<select name="cboSource" id="cboSource" onchange="cboSourceChange()">
			<option value="0"></option>
		<%	While Not rsSource.EOF%>
		<option value="<%=rsSource("iParameterId")%>"
 <%if cLng(rsSource("iParameterId")) = cLng(iSource) then response.Write " Selected " %>>
	<%=rsSource("vchParameterDesc")%>
			</option>
			<%	rsSource.MoveNext
			wend
				%>
		</select>
		&nbsp;(<%=iSource%>)
	</td>
	</tr>
	<tr>
	<td>
			<%	if iSource <> "0" then %>
				Select a Source Sub 1:
			<%		if not rsSub1.EOF then %>
			<select name="cboSub1" id="cboSub1" onchange="cboSub1Change()">
			<option value="0"></option>
				<option value="1">ALL</option>
			<%	While Not rsSub1.EOF%>
				<option value="<%=rsSub1("iParameterId")%>" 
<%if cLng(rsSub1("iParameterId")) = cLng(iSub1) then response.Write " Selected " %>>
	<%=rsSub1("vchParameterDesc")%>
		</option>
			<%
	rsSub1.MoveNext
		wend
				%>
		</select>
		&nbsp;(<%=iSub1%>)
	<%		else 
	response.Write "No Source Sub 1 options defined." 
		end if %>
		</td>
			</tr>
				<tr>
			<td>
		<%		if iSub1 <> "0" then %>
		Select a Source Sub 2:
		<%			if not rsSub2.EOF then %>
				<select name="cboSub2" id="cboSub2" onchange="cboSub2Change()">
					<option value="0"></option>
	<%				While Not rsSub2.EOF%>
		<option value="<%=rsSub2("iParameterId")%>" 
<%if cLng(rsSub2("iParameterId")) = cLng(iSub2) then response.Write " Selected " %>>
	<%=rsSub2("vchParameterDesc")%>
		</option>
			<%rsSub2.MoveNext
			wend
						%>
		</select>
		nbsp;(<%=iSub2%>)
			<%	else 
		response.Write "No Source Sub 2 options defined." 
			end if %>
			</td>
				</tr>
				<tr>
			<td>
		<%			if iSub2 <> "0" then %>
			Select a Source Sub 3:
		<%				if not rsSub3.EOF then %>
		<select name="cboSub3" id="cboSub3" onchange="cboSub3Change()">
				<option value="0"></option>
			<%					While Not rsSub3.EOF%>
		<option value="<%=rsSub3("iParameterId")%>"
<%if cLng(rsSub3("iParameterId")) = cLng(iSub3) then response.Write " Selected " %>>
<%=rsSub3("vchParameterDesc")%>
		</option>
	<%
	rsSub3.MoveNext
	wend
		%>
		</select>
	&nbsp;(<%=iSub3%>)
	<%		else 
		response.Write "No Source Sub 3 options defined." 
	end if %>
	<%			end if 
	end if 
end if %>
			</td>
		</tr>
		</table>

' Get a recordset of the primary sources for an Onyx Sales Opportunity
sql = "Select iParameterId, vchParameterDesc from ReferenceDefinition " & _
		"where iReferenceId = 11 and tiRecordStatus = 1 and iParentId = 3 order by vchParameterDesc"

Set rsSource = Server.CreateObject("ADODB.Recordset")
rsSource.Open sql, cnOnyx, 0, 1
' If a source was selected, get a list of the sub source 1 options.
If iSource <> "0" then	
	sql = "Select iParameterId, vchParameterDesc from ReferenceDefinition " & _
			"where iReferenceId = 641 and tiRecordStatus = 1 and iParentId = " & iSource & _
			"  order by vchParameterDesc"
	Set rsSub1 = Server.CreateObject("ADODB.Recordset")
	rsSub1.Open sql, cnOnyx, 0, 1	
		' If a sub source 1 is selected, get a list of sub source 2 options.
	
	'M006A Begin
	If iSub1 <> "0" then
 If iSub1 = "1" then
  sql = "Select iParameterId, vchParameterDesc from ReferenceDefinition " & _
                "where iReferenceId = 642 and tiRecordStatus = 1" & _
                " order by vchParameterDesc"
 else
         sql = "Select iParameterId, vchParameterDesc from ReferenceDefinition " & _
                "where iReferenceId = 642 and tiRecordStatus = 1 and iParentId = " & iSub1 & _
                " order by vchParameterDesc"
                
 end if

        Set rsSub2 = Server.CreateObject("ADODB.Recordset")
        rsSub2.Open sql, cnOnyx, 0, 1
                  Set rsSub2 = Server.CreateObject("ADODB.Recordset")
       rsSub2.Open sql, cnOnyx, 0, 1  

if not rsSub2.eof then
rsSub2.MoveFirst

end if

  'end if
  'M006A End
        ' If a sub source 2 is selected, get a list of sub source 3 options.
        If iSub2 <> "0" then
        
            sql = "Select iParameterId, vchParameterDesc from ReferenceDefinition " & _
                    "where iReferenceId = 643 and tiRecordStatus" & _
                    "order by vchParameterDesc"
                  
            Set rsSub3 = Server.CreateObject("ADODB.Recordset")
            rsSub3.Open sql, cnOnyx, 0, 1
              
        End If   
        'response.Write(sql)
                  '  response.End()
    End If   
    
End If

[jhardman]

This isn't really an asp question, it all depends on the javascript functions (cboSub1Change etc) that open the selects. I bet if you look carefully you aren't tracking the names of the controls carefully.

Anyway, if you need more help, I would post in the javascript forum.

Jared