Bareta, essa sua sugestão de substituição ajudou, agora o select pega todos valores igual ou menor .... mas me deu outro problema... Agora, se no campo Input do formulario eu digito 5,00 e vem como 500,00. segue codigo: Valor = Request.Form("txt_valor")
Valor = replace (Valor,".","")
Valor = replace (Valor,",","")
Session("v_valor") = Valor
Comando = "Select * FROM imoveis Where valor <= "& Session("v_valor") &" Order By valor asc "
Set RecSet = DB.Execute(Comando)
Pelo que estou entendendo, parece que depois do Replace ele esta jogando 2 zeros a mais... segue abaixo a Saida da Tela e o Código Fonte:
SAIDA DA TELA:
Finalidade: Indiferente
Imóvel: Indiferente
Tipo: Indiferente
Dormitorios: Indiferente
Valor que veio pelo Request.Form: 5,00
Valor após o comando Replace: 500,00
Referência: 001 - Valor: R$ 220,00 - Banco do tipo: 6
Referência: 002 - Valor: R$ 350,00 - Banco do tipo: 6
Referência: 003 - Valor: R$ 500,00 - Banco do tipo: 6
Foram encontrados: 3 imóveis.
CÓDIGO:
Dim Valor, v_valor, cont
Response.Write "Finalidade: " & Request.Form("combo_finalidade") & "<br>"
Response.Write "Imóvel: " & Request.Form("combo_imovel") & "<br>"
Response.Write "Tipo: " & Request.Form("combo_tipo") & "<br>"
Response.Write "Dormitorios: " & Request.Form("combo_dormitorios") & "<br>"
Response.Write "Valor que veio pelo Request.Form: " & Request.Form("txt_valor") & "<br>"
Valor = Request.Form("txt_valor")
Valor = replace (Valor,".","")
Valor = replace (Valor,",","")
Session("v_valor") = Valor
Response.Write "<br>Valor após o comando Replace: " &FormatNumber(Session("v_valor"),2)& "<br><br>"
cont = 0
%>
<!--#include file="conexao.asp" -->
<%
Comando = "Select * FROM imoveis Where valor <= "& Session("v_valor") &" Order By valor asc "
Set RecSet = DB.Execute(Comando)
bareta, eu acho que consegui... veja:
SAIDA DA TELA:
Finalidade: Indiferente
Imóvel: Indiferente
Tipo: Indiferente
Dormitorios: Indiferente
Valor que veio pelo Request.Form: 150.000,00
Referência: 001 - Valor: R$ 220,00
Referência: 002 - Valor: R$ 350,00
Referência: 003 - Valor: R$ 500,00
Referência: 004 - Valor: R$ 750,00
Referência: 005 - Valor: R$ 830,00
Referência: 006 - Valor: R$ 125.000,00
Foram encontrados: 6 imóveis.
CÓDIGO FONTE:
Valor = Request.Form("txt_valor")
Session("v_valor") = Ccur(Valor)
Response.Write "<br>"
cont = 0
%>
<!--#include file="conexao.asp" -->
<%
Comando = "Select * FROM imoveis Where valor <= "& Session("v_valor") &" Order By valor asc "
Set RecSet = DB.Execute(Comando)
If RecSet.Eof Then
Response.Write "Não encontrado !!!"
Else
RecSet.MoveFirst
Do While Not RecSet.EOF
cont = cont + 1
Response.Write "Referência: " & RecSet("referencia") & " - Valor: " & FormatCurrency(RecSet("valor"),2) & "<br>"
RecSet.MoveNext
Loop
End If
Response.Write "<br>Foram encontrados: " & cont & " imóveis.<br>" Vou continuar com os testes e depois posto aqui para te dizer se funcionou tudo direitinho mesmo... Pelo que tudo indica, parece que só o fato de jogar o Request.Form numa variavel e depois jogar essa variavel na Session já deu certo. Obrigado por tudo mesmo... muito obrigado. Alessandro.