Busca com combo

Boris · Setembro 23, 2007

Galera estou tentando fazer uma busca com combos e não estou conseguindo...

Alguem poderia me ajudar...

Valew

principal.html

ASP

<html>

<head>

<title>Moradia Imobiliária</title>

<!--

.style1 {

font-family: arial;

color: #FFFFFF;

font-weight: bold;

font-size: 10px;

}

.cx {

font-family: verdana;

font-size: 10px;

color: #333333;

text-decoration: none;

}

.textobr {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FFFFFF; text-decoration: none}

-->

</style>

<!--

function MM_jumpMenu(targ,selObj,restore){ //v3.0

eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");

if (restore) selObj.selectedIndex=0;

}

//-->

</script>

</head>

<tr>

</tr>

<tr>

<tr>

<option>Imóvel</option>

<option value="Apartamento">Apartamento</option>

<option value="Sobrado">Sobrado</option>

<option value="Terreno">Terreno</option>

</select>

<option>Selecione</option>

<option value="Aluguel">Aluguel</option>

<option value="Venda">Venda</option>

</select>

</div>

<div align="center"><span class="style1">Ref.

</span>

<label>

</label>

</div></td>

<option>Selecione</option>

<option>Indiferente</option>

</select>

</div></td>

</label></td>

</tr>

</table>

</form></td>

</tr>

</table>

<tr>

</tr>

</table>

<tr>

</tr>

</table>

</body>

</html>

busca.asp

ASP

<html>

<head>

<title>Moradia Imobiliária</title>

<!--

.style1 {

font-family: arial;

color: #FFFFFF;

font-weight: bold;

font-size: 10px;

}

.cx {

font-family: verdana;

font-size: 10px;

color: #333333;

text-decoration: none;

}

.textobr {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FFFFFF; text-decoration: none}

.texto {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #666666; text-decoration: none}

.style7 {color: #FFFFFF; font-weight: bold; font-size: 10px; }

.style8 {font-family: Verdana, Arial, Helvetica, sans-serif; color: #FFFFFF; text-decoration: none;}

.sombra { filter:progid:DXImageTransform.Microsoft.dropshadow(OffX=3, OffY=5, Color='#999999', Positive='true')

}

.style3 {font-weight: bold; color: #FF0000; text-decoration: none; font-family: Verdana, Arial, Helvetica, sans-serif;}

.style4 {font-size: 9px}

.texto8 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #333333; text-decoration: none}

.texto8bold {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #3F68AD; text-decoration: none}

.texto8boldred {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FF0000; text-decoration: none }

-->

</style>

<!--

function MM_jumpMenu(targ,selObj,restore){ //v3.0

eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");

if (restore) selObj.selectedIndex=0;

}

//-->

</script>

</head>

<%

tipo =request.form ("tipo")

aluguel_venda =request.Form("aluguel_venda")

referencia =request.Form("referencia")

valor =request.form("valor")

%>

<tr>

</tr>

<tr>

<tr>

<option>Imóvel</option>

<option value="Apartamento">Apartamento</option>

<option value="Sobrado">Sobrado</option>

<option value="Terreno">Terreno</option>

</select>

<option>Selecione</option>

<option value="Aluguel">Aluguel</option>

<option value="Venda">Venda</option>

</select>

</div>

<div align="center"><span class="style1">Ref.

</span>

<label>

</label>

</div></td>

<option>Selecione</option>

<option>Indiferente</option>

</select>

</div></td>

</tr>

</table>

</form>

</td>

</tr>

</table>

<tr>

<tr>

<%

if tipo=tipo and alugue_venda=alguel=venda and referencia=referencia and valor<=valor then

%>

<%

intConta = 1

imovel = "select * from imovel"

set imovel_rs = cn.Execute(imovel)

if imovel_rs.BOF AND imovel_rs.EOF then

response.write "Nenhum imóvel cadastrado no momento."

else

while NOT imovel_rs.EOF AND intConta <=5000

intConta = intConta + 1

%>

</span></td>

</tr>

</table>

<tr>

<td width="15%" height="20" bgcolor="#0033CC" class="texto"><div align="center" class="style7"><a href="modelo.html" class="style8">Referência</a></div></td>

<td width="33%" class="texto" bgcolor="#0033CC"><div align="center" class="style7"><a href="modelo.html" class="style8">Bairro</a></div></td>

<td width="16%" class="texto" bgcolor="#0033CC"><div align="center" class="style7">Dormitórios</div></td>

<td width="11%" class="texto" bgcolor="#0033CC"><div align="center" class="style7">Vagas</div></td>

<td width="25%" class="texto" bgcolor="#0033CC"><div align="center" class="style7">Preço</div></td>

</tr>

</table>

<tr>

<% response.Write(imovel_rs("referencia")) %>

</font></span></div></td>

<% response.Write(imovel_rs("bairro")) %>

</font></a></div></td>

<% response.Write(imovel_rs("dormitorios")) %>

</font></a></div></td>

<% response.Write(imovel_rs("vagas")) %>

</font></a></div></td>

<% response.Write(imovel_rs("valor"))%>

</font></span></div></td>

</tr>

</table>

<% end if %>

</td></tr>

</table>

<tr>

</tr>

</table>

</body>

</html>

Ted k' · Setembro 23, 2007

O que acontece, da algum erro específico???

Boris · Setembro 23, 2007

Não aparece nenhum erro ai está o pior pois não consigo indentificar, estou tentando utilizar uma outra logica pois acho que é isso ...

RogerFe · Setembro 28, 2007

Cara

Sou novo no ASP, porém sou programador de VB.

Eu não achei no seu codigo, o WEND para fechar o loop do While

e o imovel_rs.movenext para mover o ponteiro da base de dados.

Pelo que eu vi ele está em loop eterno, e não vai dar erro mesmo.

lá no final do codigo do busca.asp, inclui estas linhas

<td width="25%" class="texto" bgcolor="#F7F7F7"><div align="center">R$ <span class="texto8boldred"><font class="texto8boldred">			<% response.Write(imovel_rs("valor"))%>		  </font></span></div></td>		</tr>	</table>			 <%wend			imovel_rs.movenext			 end if %>			</td></tr></table><table width="700" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>	<td bgcolor="#0059B3"> </td>  </tr></table></body></html>

Espero que ajude

Ted k' · Setembro 28, 2007

O wend é depois do movenext!!!

Entrar

Arquivado

Busca com combo

Recommended Posts

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

RogerFe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante