Ir para conteúdo

Arquivado

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

Michel_

sistema de busca

Recommended Posts

Olá pessoal , eu sou novo aqui no forum, eu estou tentando desenvolver um sistema de buscas usando o formulario <select></select> e não estou conseguindo, o formulario tem 3 caixas <select></select> , eu só consigo trazer informação de uma caixa.. como faço para obeter as informações das três caixas?

Compartilhar este post


Link para o post
Compartilhar em outros sites

esse é o formulario de busca..

 

 

 

<form method="get" action="busca.asp">

<div align="center">

<p align="left" class="formbusca">Tipo

<select name="tipo" class="formbusca">

<option>Casa</option>

<option>Apartamento</option>

<option>Terreno</option>

</select>

</p>

<p align="left" class="formbusca"> Opções

<select name="opcao" class="formbusca" value="">

<option>Comprar </option>

<option>Alugar</option>

</select>

</p>

<p align="left" class="formbusca"> Valor até:

<select name="valor" class="formbusca">

<option>600,00</option>

<option>1,000</option>

<option>3,000</option>

<option> 5,000</option>

<option> 10,000</option>

</select>

</p>

<p align="left">

<input name="Submit" type="submit" class="unnamed1" value="Buscar">

</p>

</div>

</form>

Compartilhar este post


Link para o post
Compartilhar em outros sites

essa é a pagina que faz a busca, ela faz a busca, mas dve ter outra maneira para mim fazer isso, por exemplo na seleção preço, eu queria fazer por exemplo: casa com valor até 50,000 queria ter uma forma que ele fizesse essa , busca e mostrasse todas as casa com valor inferior a 50,000 , será que é possivem , usando apenas uma coluna de preços no bd?

 

olhem o código,..

 

 

<%

DIM conimoveis

DIM cntcaminho

DIM recpropriedades

DIM pesquisa

dim op

dim pr

dim msg

 

pr=(Request.QueryString("valor"))

pesquisa=(Request.QueryString("tipo"))

op=(Request.Querystring("opcao"))

cntcaminho = Server.MapPath("imoveis.mdb")

Set conimoveis = Server.CreateObject("ADODB.Connection")

Set recpropriedades = Server.CreateObject("ADODB.Recordset")

conimoveis.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & cntcaminho

 

 

if pesquisa="Casa" then

recpropriedades.open "SELECT * FROM propriedades where modelo='Casa' and (para like '%" & Replace(op, "'", "''") & "%')and (preco like '%" & Replace(pr, "'", "''") & "%')", conimoveis

else

msg=("Nenhuma resultado")

 

end if

 

 

 

 

if pesquisa="Apartamento" then

recpropriedades.open "SELECT * FROM propriedades where modelo='Apartamento' and (para like '%" & Replace(op, "'", "''") & "%')and (preco like '%" & Replace(pr, "'", "''") & "%')", conimoveis

end if

 

%>

<html>

<head>

<title>Editora On-Line</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#ffffff">

 

<%

 

do while not recpropriedades.eof

Response.write "<table border=""1"" cellpadding=""0"" cellspacing=""1"" width=""470"">"

Response.Write "Oque busca: " & recpropriedades.Fields("modelo") & "<br>"

Response.Write "Ref: " & recpropriedades.Fields("ref") & "<br>"

Response.Write "descrição: " & recpropriedades.Fields("descricao") & "<br>"

Response.Write "preço: " & recpropriedades.Fields("preco") & "<br>"

recpropriedades.MoveNext

 

loop

recpropriedades.Close

 

conimoveis.close

 

%>

<p> </p>

</td>

</tr>

</table>

<p> </p>

</body>

</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

eh possivel sim da uma estudada na função like o você vai ver como eh facil ^^abraços []'s

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.