5 replies to this topic

[fabiolocko]

Bem gente so novato no asp, então não sei muitas coisas
estou precisando de uma mãozona
é o seguinte estou com o problema neste parte de um site :
http://www.lins.imb.br/vendas.asp
parece tudo funcional ao ponto de vista, mas quando você pede para ele executar uma consulta
(no banco que é em Access) dos seguintes objetos o tipo de imovel e os valores entre ele ignora os valores e puxa somente o tipo puxando dados que não foram requerido

se alguem puder me ajudar serei grato

[Xclick]

O erro só pode estar em 2 lugares, na sua consulta SQL ou nos dados que você inseriu no value do option do select box. Sem o código fica difícil de ajudar...

[fabiolocko]

o codigo da pagina vendas é o seguinte :

<% rs.movefirst%>
<span class="style1">Bairro:</span> <br />
<select name="Bairro" class="pn1" id="Bairro">
<option value="Todos" selected="selected">Todos</option>
<%do while not rs.eof%>
<option value="<%=rs("idbairro")%>"><%=rs("nome")%></option>
<% rs.movenext
loop%>
</select>
</div></td>
</tr>
</table>
</div></td>
</tr>
<tr class="pn2">
<td colspan="4"><div align="center" class="style1">
<table width="100%" border="0" cellspacing="0">
<tr>
<td><div align="center"><strong><br />
<span class="style1">Tipo
do Im&oacute;vel</span></strong><span class="style1">: </span><br />
<%Set RS3=Server.CreateObject("ADODB.Recordset")
sql3 = "SELECT tipo.idtipo,tipo.nome FROM tipo,venda where tipo.idtipo=venda.idtipo group by tipo.idtipo,tipo.nome"
RS3.Open SQL3,Conn,3,3
rs3.movefirst
%>

é o da pagina que finaliza a query é esta :

<%
cnpath="DBQ="& server.mappath("BD\imobiliaria.mdb")
DataSource="Driver={Microsoft Access Driver (*.mdb)};"& cnpath
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open DataSource,"",""
Set RS=Server.CreateObject("ADODB.Recordset")

if request.Form("vendaoulocacao") = "venda" then
sql = "Select * from Venda"
valida = "venda"
end if

if request.Form("vendaoulocacao") = "locacao" then
sql = "Select * from Locacao"
valida = "locacao"
end if



if request.form("cbotipo") <> "Todos" then
sql = sql & " where idtipo=" & request.form("cbotipo")
End If


'response.Write(sql)
RS.Open SQL,Conn,3,3

if rs.eof then %>
</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p align="center" class="style3 style6"> <span class="style7">Nenhum Im&oacute;vel encontrado</span>. </p>
<%

Else

rs.movefirst

%>
<p align="center" class="style5">Resultado da Pesquisa de Vendas</p>
<br>
<table width="674" border="1" align="center" cellpadding="2" cellspacing="2" bordercolor="#999999" bgcolor="#FFFFFF">
<tr align="center">
<td height="24" bordercolor="#FFFFFF" bgcolor="#EC0000"><span class="style1">Foto</span></td>
<td height="24" bordercolor="#FFFFFF" bgcolor="#EC0000"><span class="style1">Codigo</span></td>
<td height="24" bordercolor="#FFFFFF" bgcolor="#EC0000"><span class="style1">Tipo Imovel</span></td>
<td height="24" bordercolor="#FFFFFF" bgcolor="#EC0000"><span class="style1">Bairro</span></td>
<td height="24" bordercolor="#FFFFFF" bgcolor="#EC0000"><span class="style1">Descri&ccedil;&atilde;o</span></td>
<td height="24" bordercolor="#FFFFFF" bgcolor="#EC0000"><span class="style1">Valor</span></td>
<td height="24" bordercolor="#FFFFFF" bgcolor="#EC0000"><span class="style1">Detalhes</span></td>
</tr>
<%
Dim i
rs.movefirst
do While not rs.eof
if i mod 2=0 then
%>
<tr>
<td align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><%

If (rs("imagem1") <> "") then %>
<img src="images_imovel/<%=rs("imagem1")%>" width="125" height="77" border="0"/>
<%ElseIf (rs("imagem2") <> "") then %>
<img src="images_imovel/<%=rs("imagem2")%>" width="125" height="77" border="0" />
<%ElseIf (rs("imagem3") <> "") then %>
<img src="images_imovel/<%=rs("imagem3")%>" width="125" height="77" border="0" />
<%Else%>
<img src="images_imovel/semfoto.JPG" width="125" height="77" border="0"/>
<%End If%> </td>
<td align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><div align="center">
<%if valida = "venda" then %>
<%=rs("codigo_Venda")%>
<%else%>
<%=rs("codigo_locacao")%>
<%end if%> </div></td>
<td bordercolor="#FFFFFF" bgcolor="#FFFFFF"><div align="center">
<%
Set RS2=Server.CreateObject("ADODB.Recordset")
query = "SELECT * FROM tipo"
RS2.Open query,Conn,3,3%>
<%
rs2.movefirst
do While not rs2.eof

if rs2("idtipo") = rs("idtipo") then%>
<%=rs2("nome")%>
<%
End if
rs2.movenext
loop
%>
</div></td>
<td bordercolor="#FFFFFF" bgcolor="#FFFFFF"><div align="center">
<%
Set RS3=Server.CreateObject("ADODB.Recordset")
query3 = "SELECT * FROM bairro"
RS3.Open query3,Conn,3,3%>
<%
rs3.movefirst
do While not rs3.eof

if rs3("idbairro") = rs("idbairro") then%>
<%=rs3("nome")%>
<%
End if
rs3.movenext
loop
%>
</div></td>
<td bordercolor="#FFFFFF" bgcolor="#FFFFFF"><div align="center"><%=replace(rs.fields("descricao"),chr(13),"<br>")%></div></td>
<td bordercolor="#FFFFFF" bgcolor="#FFFFFF">R$<%valor = CStr(rs("valor"))
valorCorreto = Pontos(valor)
response.Write(valorCorreto)%>,00</td>
<td bordercolor="#FFFFFF" bgcolor="#FFFFFF"><!--if request.Form("lstimovel")= "Venda" then -->
<a href="#" onClick="MM_openBrWindow(<% if valida="venda" then%>
'mostra_imovel_venda.asp?id=<%=rs("idImovelVenda")%>'
<%else%>
'mostra_imovel_locacao.asp?id=<%=rs("idImovelLocacao")%>'
<%end if%>,'Detalhes','resizable=yes,width=645,height=487')"><img src="images/maisdetalhes_branco.jpg" width="86" height="16" border="0"></a>
<!-- else%>
<a href="#" onClick="MM_openBrWindow('mostra_imovel_locacao.asp?id=<rs("idImovelLocacao")%>','Detalhes','resizable=no,width=545,height=387')"><img src="images/maisdetalhes_branco.jpg" width="86" height="16" border="0"></a>
end if%>--> </td>
</tr>
<%else%>
<tr>
<td align="center" bordercolor="#E4E4E4" bgcolor="#EBEBEB"><span class="style4">
<%

If (rs("imagem1") <> "") then %>
<img src="images_imovel/<%=rs("imagem1")%>" width="125" height="77" border="0"/>
<%ElseIf (rs("imagem2") <> "") then %>
<img src="images_imovel/<%=rs("imagem2")%>" width="125" height="77" border="0" />
<%ElseIf (rs("imagem3") <> "") then %>
<img src="images_imovel/<%=rs("imagem3")%>" width="125" height="77" border="0" />
<%Else%>
<img src="images_imovel/semfoto.JPG" width="125" height="77" border="0"/>
<%End If%>
</span></td>
<td align="center" bordercolor="#E4E4E4" bgcolor="#EBEBEB"><div align="center"><span class="style4"> <%if valida = "venda" then%>
<%=rs("codigo_Venda")%>
<%else%>
<%=rs("codigo_Locacao")%>
<%end if%> </span></div></td>
<td bordercolor="#E4E4E4" bgcolor="#EBEBEB"><div align="center"><span class="style4">
<%
Set RS2=Server.CreateObject("ADODB.Recordset")
query = "SELECT * FROM tipo"
RS2.Open query,Conn,3,3%>
<%
rs2.movefirst
do While not rs2.eof

if rs2("idtipo") = rs("idtipo") then%>
<%=rs2("nome")%>
<%
End if
rs2.movenext
loop
%>
</span></div></td>
<td bordercolor="#E4E4E4" bgcolor="#EBEBEB"><div align="center"><span class="style4">
<%
Set RS3=Server.CreateObject("ADODB.Recordset")
query3 = "SELECT * FROM bairro"
RS3.Open query3,Conn,3,3%>
<%
rs3.movefirst
do While not rs3.eof

if rs3("idbairro") = rs("idbairro") then%>
<%=rs3("nome")%>
<%
End if
rs3.movenext
loop
%>
</span></div></td>
<td bordercolor="#E4E4E4" bgcolor="#EBEBEB"><div align="center"><%=replace(rs.fields("descricao"),chr(13),"<br>")%></div></td>
<td bordercolor="#E4E4E4" bgcolor="#EBEBEB"><span class="style4">R$<%valor = CStr(rs("valor"))
valorCorreto = Pontos(valor)
response.Write(valorCorreto)%>,00</span></td>
<td bordercolor="#E4E4E4" bgcolor="#EBEBEB"><a href="#" onClick="MM_openBrWindow(
<% if valida="venda" then%>
'mostra_imovel_venda.asp?id=<%=rs("idImovelVenda")%>'
<%else%>
'mostra_imovel_locacao.asp?id=<%=rs("idImovelLocacao")%>'
<%end if%>,'Detalhes','resizable=yes,width=645,height=487')"><img src="images/maisdetalhes_branco.jpg" width="86" height="16" border="0"></a> </td>
</tr>
<%
End If
i=i+1
rs.movenext
loop
%>
<%RS.Close
conn.close


Set RS = Nothing
Set conn = Nothing
%>
</table>
<p>&nbsp;</p>
<%End If%></td>

[Xclick]

[codebox]if request.Form("vendaoulocacao") = "venda" then
sql = "Select * from Venda"
valida = "venda"
end if

if request.Form("vendaoulocacao") = "locacao" then
sql = "Select * from Locacao"
valida = "locacao"
end if[/codebox]

Você tem que restringir com um where... no caso... Where valor_imovel < valor1 and valor_imovel > valor2

Não necessariamente nesta mesma ordem :

[fabiolocko]

vou tentar aqui, qualquer coisa posto o que aconteceu ou se deu certo.
mas de qualquer forma obrigado Xclick

é o seguinte Xclick
eu fiz os procedimentos conforme você falou só que a query ainda continua falha
segue o código para quem quiser analisar

if request.Form("vendaoulocacao") = "venda" then
sql = "Select * from Venda where valor < faixade and valor > faixaate"
valida = "venda"
end if

if request.Form("vendaoulocacao") = "locacao" then
sql = "Select * from Locacao where valor >= faixade and valor <= faixaate"
valida = "locacao"
end if

agora a pagina esta apresentando o seguinte erro
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression 'valor >=1,00 and valor <=5.000.00,00'.

/resultado_pesquisa_venda.asp, line 120

quem puder me ajudar
ficarei grato

[Xclick]

Elementar meu caro... Se você for informar valores com casas decimais, deve separar por ponto e não virgula e não use ponto para separar as casas decimais (5.000.000 -> 5000000)

Ah, acho que tá errado seu sql na Venda, compara com o de locação!