busca em varios select

Estoou tentando fazer uma busca em varios selects

mais não achei o erro no cod. abaixo:

só lista o estado.

Tambem gostaria de coloccar mais 2 campos no caso

Produto e Ramo

então ficaria assimm a busca

seleciono o Produto então retorna somento os estados que tem este produto

então seleciono o estado me retorna somente as cidades que tem, e assim por diante

Resumo: Produto depois o Estado depois a Cidade depois o Ramo

Resultado seria assim:

produto X no estado de SP na cidade são paulo no ramo x

Meu banco esta assim>: MDB

Tabela: tCidade

id

produto

estado

cidade

ramo

IdUF = request("IdUF")
IdCidade = request("IdCidade")%>

<script>
 function trocar_uf( IdUF )
 {
 location = '1.asp?IdUF='+IdUF
 }
</script>

 Estado: <BR>
 <select name="IdUF" id="IdUF" onchange="trocar_uf( this.value )">
 <option value="">Todos</option>
 <%Set RSUf = Server.CreateObject("ADODB.RecordSet")
 RSUf.Open "Select * from tCidade order by IdUF", Conn, 1
 while not RSUf.eof%>
 <option value="<%=RSUf("IdUF")%>" <%if RSUf("IdUF") = IdCidade then response.write " selected"%>><%=RSUf("IdUF")%></option>
 <%RSUf.movenext
 wend
 RSUf.close
 Set RSUf = nothing%>
 </SELECT>
<br><br>

Cidade: <BR>
 <select name="IdCidade" id="IdCidade" >
 <%if IdUF <> "" then%>
 <option value="">Selecine o Estado</option>
 <%else
 set RSCD = Server.CreateObject("AdoDb.RecordSet")

 RSCD.Open "Select * from tCidade where IdUF = '"&IdUF&"' ", Conn, 1

 while not RSCD.EOF%>
 <option value="<%=RSCD("IdCidade")%>"><%=RSCD("Cidade")%></option>
 <%RSCD.MoveNext
 wend
 end if%>
 </SELECT>

Muito obrigado a quem me der esta força