carregar select do BD sem refresh

Ola pessoal...

tenhu 3 selects no meu sistema... agora cansei d ver este refresh entre eles.... porque dependendo de cada um abre um tipo de seleção pro outro.

vou postar o cod aki....

Strgerencia = "SELECT distinct(gerencia) FROM tbl_indicadores_la ORDER BY gerencia"
set gerenciaSelect = DBconnecta.Execute(Strgerencia)

%>

 <select class="input" name="gerencia" onChange="gerenciaChange(this.options[this.selectedIndex].value)">
 <option value="Selecione" >Selecione</option>
 <option value="grupo"<%if Request("gerencia") = "grupo" then%> selected="selected"<%End if%>>GRUPO BH1</option>
 <%WHILE NOT gerenciaSelect.EOF%>
 <option <%IF Trim(Request("gerencia")) = trim(gerenciaSelect("gerencia")) THEN %> selected="selected" <%END IF%>
	value="<%=trim(gerenciaSelect("gerencia"))%>" ><%=trim(gerenciaSelect("gerencia"))%></option>
 <%
	gerenciaSelect.MOVENEXT
	WEND
	%>
 </select></td>
 <td width="211">Gram:</td>
 <td width="95"><%

gram = "SELECT distinct(gram) FROM tbl_indicadores_la ORDER BY gram"

set gramSelect = DBconnecta.Execute(gram)

IF Request("gerencia") <> "" or Request("gerencia") <> "Selecione" THEN

 strQuery = "SELECT DISTINCT gram FROM tbl_indicadores_la WHERE gerencia = '"& Request("gerencia") &" '"
 set gramSelect = DBconnecta.Execute(strQuery)
	END IF
	%>
 <select class="input" name="gram" <%IF Request("gerencia") = "Selecione" OR Request("gerencia") = "" THEN %> disabled="disabled" <%END IF%> onChange="gramChange(this.options[this.selectedIndex].value)">
 <option value="Selecione" selected="selected">Selecione</option>
 <%WHILE NOT gramSelect.EOF%>
 <option <%IF Trim(Request("gram")) = trim(gramSelect("gram")) THEN %> selected="selected" <%END IF%> value="<%=trim(gramSelect("gram"))%>" ><%=trim(gramSelect("gram"))%></option>
 <%
	gramSelect.MOVENEXT
	WEND
	%>
 </select></td>
 <td width="195">Gra:</td>
 <td width="95"><%

gra = "SELECT distinct(gra) FROM tbl_indicadores_la ORDER BY gra"

set graSelect = DBconnecta.Execute(gra)

IF Request("gram") <> "" or Request("gram") <> "Selecione" THEN

 strQuery = "SELECT DISTINCT gra FROM tbl_indicadores_la WHERE gerencia = '"& Request("gerencia") &" ' and gram = '"& Request("gram") &"'"
 set graSelect = DBconnecta.Execute(strQuery)
	END IF
	%>

Podem perceber que sao feitas consultas dependendo da escolha do usuario...

mas oq realmente quero acabar eh com a m***** do refresh....

Vlw