Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

bgssilva

Conjunto de Combos para busca

Recommended Posts

Olá mais uma vez pessoal, fiz um conjunto de combos que são critérios de uma busca.

 

preciso montar um tratamento para que quando escolha determinada opção numa combo a outra fique desabilitada ou até mesmo suma...

 

por exemplo.. nos tipos de imóveis, quando escolho terreno, não é para aparecer a combo de número de quartos. tentei fazer atraves de vbscript mas não consegui.

 

 

 

<form action="detalhes_por_descricao.asp" method="post" name="busca_por_descricao" id="busca_por_descricao">
	  <p><span class="style5">Tipo de Operação:</span><span class="style1"><br />
			<label>
			<select name="tipooperacao" class="style5" id="tipooperacao" style="width:210" >
			  <option value="0" selected="selected">Selecione a opção</option>
			  <%
SQLTipoOperacao = "SELECT T_TiposdeOperacao.ID, T_TiposdeOperacao.tipo FROM T_Imoveis INNER JOIN T_TiposdeOperacao ON T_Imoveis.ID_Tipo_de_Operacao = T_TiposdeOperacao.ID GROUP BY T_TiposdeOperacao.ID, T_TiposdeOperacao.tipo ORDER BY T_TiposdeOperacao.ID;"
Set RSTipoOperacao = Conexao.Execute(SQLTipoOperacao)
IF not RSTipoOperacao.EOF THEN
	while not RSTipoOperacao.EOF
%>
			  <option value="<%=RSTipoOperacao("ID")%>"><%=RSTipoOperacao("tipo")%></option>
			  <%	RSTipoOperacao.movenext
	wend
end if
%>
			</select>
			</label>
	  </span> </p>
	  <p><span class="style5">Tipo do Imóvel:
		  <select name="tipoimovel" class="style5" id="tipoimovel"  style="width:210" onchange="ExibeQuartos()">
		  <option value="0" selected="selected">Selecione a opção</option>
		  <%
SQLTipoImovel = "SELECT T_TipoImoveis.ID, T_TipoImoveis.TipoImovel FROM T_Imoveis INNER JOIN T_TipoImoveis ON T_Imoveis.ID_Tipo_do_Imovel = T_TipoImoveis.ID GROUP BY T_TipoImoveis.ID, T_TipoImoveis.TipoImovel ORDER BY T_TipoImoveis.ID;"
Set RSTipoImovel = Conexao.Execute(SQLTipoImovel)
IF not RSTipoImovel.EOF THEN
	while not RSTipoImovel.EOF
%>
		  <option value="<%=RSTipoImovel("ID")%>"><%=RSTipoImovel("TipoImovel")%></option>
		  <%	RSTipoImovel.movenext
	wend
end if
%>
		</select>
	  </span><br />
	  </p>
	  <!-- ESTADO -->
	  <%
SQLEstado = "SELECT T_Estados.ID, T_Estados.Sigla FROM T_Imoveis INNER JOIN T_Estados ON T_Imoveis.ID_Estado = T_Estados.ID GROUP BY T_Estados.ID, T_Estados.Sigla; "
Set RSEstado = Conexao.Execute(SQLEstado)
IF not RSEstado.EOF THEN
	if rsestado.recordcount > 1 then
	  %>
	  <p><span class="style5">Estado:</span><span class="style1"><br />
			<label>
			<select name="estados" class="style5" id="estados" style="width:210">
			  <option value="0" selected="selected">Selecione a opção</option>
<%
while not RSEstado.EOF
%>
			  <option value="<%=RSEstado("ID")%>"><%=RSEstado("sigla")%></option>
			  <%	RSEstado.movenext
	wend
%>
			</select>
		   
			
			</label>
		</span><br />
	  </p><%
end if
end if
%> 
	  <!-- CIDADE -->
	  <%
SQLCidade = "SELECT T_Cidades.ID, T_Cidades.Cidade FROM T_Imoveis INNER JOIN T_Cidades ON T_Imoveis.ID_Cidade = T_Cidades.ID GROUP BY T_Cidades.ID, T_Cidades.Cidade; "
Set RSCidade = Conexao.Execute(SQLCidade)
IF not RSCidade.EOF THEN
	if RSCidade.recordcount > 1 then
%>
	  <p><span class="style5">Cidade:</span><span class="style1"><br />
			<label>
			<select name="bairros" class="style5" id="bairros" style="width:210">
			  <option value="0" selected="selected">Selecione a opção</option>
			  <%
	while not RSCidade.EOF
%>
			  <option value="<%=RSCidade("ID")%>"><%=RSCidade("cidade")%></option>
			  <%	RSCidade.movenext
	wend
%>
			</select>
			</label>
		</span><br />
	  </p>
<%
end if
end if
%>	  
	  <!-- BAIRRO -->
	  <p><span class="style5">Bairro:</span><span class="style1"><br />
			<label>
			<select name="bairros" class="style5" id="bairros" style="width:210">
			  <option value="0" selected="selected">Selecione a opção</option>
			  <%
SQLBairro = "SELECT T_Bairros.ID, T_Bairros.Bairro FROM T_Imoveis INNER JOIN T_Bairros ON T_Imoveis.ID_Bairro = T_Bairros.ID GROUP BY T_Bairros.ID, T_Bairros.Bairro ORDER BY T_Bairros.ID; "
Set RSBairro = Conexao.Execute(SQLBairro)
IF not RSBairro.EOF THEN
	while not RSBairro.EOF
%>
			  <option value="<%=RSBairro("ID")%>"><%=RSBairro("Bairro")%></option>
			  <%	RSBairro.movenext
	wend
end if
%>
			</select>
			</label>
		</span><br />
	  </p>
	  
	  <%'if V_Exibe_Quarto then %>
	  
	  <p><span class="style5">Quartos:</span> <br />
		  <select name="numquartos" class="style5" id="numquartos"  style="width:180">
			  <option value="0" selected="selected">Selecione a opção</option>
			<option value="1">1 Quarto</option>
			<option value="2">2 Quartos</option>
			<option value="3">3 Quartos</option>
			<option value="4">4 Quartos ou mais</option>
					</select>
	  </p>
	  
	  <%' end if%>
	  
	  <p><span class="style5">Preço:</span> <br />
		<select name="faixapreco" class="style5" id="faixapreco" style="width:210">
		  <option value="0" selected="selected">Selecione a opção</option>
		  <option value="ate50">Até R$50.000,</option>
		  <option value="entre50e150">de R$50.000, até R$150.000,</option>
		  <option value="acimade150">Acima de R$150.000,</option>
		</select>
	  </p>
	  <p align="right">
		<input name="button2" type="submit" class="style5" id="button2" value="Buscar" />
	  </p>
	</form>

Compartilhar este post


Link para o post
Compartilhar em outros sites

duas alternativas:

1- a cada change do select você submete a página e valida no asp a exibição de cada select

2- utilize ajax para não dar refresh na página

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.