Consulta com checkbox

[furbano 0]

Pessoal, sou programador de final de semana e estou com uma dúvida que é a seguinte.

Tenho uma lista de estabelecimentos no banco de dados.

Gostaria de fazer uma consulta no BD usando checkbox, da seguinte forma:

[ ] Lanchonete
[ ] Pizzaria
[ ] Cafeteria

Cada tipo de estabelecimento tem uma ID.

Quando eu faço a consulta apenas com 1 tipo, ele exibe os resultados normalmente, mas quando eu faço a consulta com 2 ou mais tipos ele mostra somente o último (aquele com a ID maior).

Alguem pode me ajudar com isso??? Segue a parte do codigo:

 

stipo = Split(tipo,",")
for i=0 to Ubound(stipo)
 
set rsB = DbConn.Execute ("SELECT * FROM Estabelecimentos WHERE TipoEstabelecimentoId = '"&stipo(i)&"' AND EstabelecimentoCidadeId LIKE '%"&cidade&"%' AND EstabelecimentoBairroId LIKE '%"&bairro&"%' AND DeletedAt is null ORDER BY EstabelecimentoBairroId DESC")
 
next

 

 

Desde já agradeço!!!

[xanburzum 169]

usa assim, olha este exemplo que eu uso

 

if qtd_produtos = "" then
Response.write("erro..."
response.redirect("outra_pagina.asp")
else
qtd_produtos = split(Request.Form("qtd_produtos"),",")
if qtd_produtos = ""
produtos= Split(Request.Form("produtos"), ",")

For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

 

[furbano 0]

xanburzum, fiz o teste com sua sugestão mas não funcionou.

 

Depois de horas pesquisando e analisando o código percebi o erro. Segue código que testei e funcionou perfeitamente:

 

	stipo = Split(tipo,",")
	SQL = "SELECT * FROM Estabelecimentos WHERE 1=0 "
	for i=0 to Ubound(stipo)
	SQL = SQL & "OR TipoEstabelecimentoId = '"&stipo(i)&"' AND EstabelecimentoCidadeId LIKE '%"&cidade&"%' AND EstabelecimentoBairroId LIKE '%"&bairro&"%' AND DeletedAt is null "
	next
	set rsB = DbConn.Execute (SQL & " ORDER BY EstabelecimentoBairroId DESC")	

 

Obrigado e abraços!!

[xanburzum 169]

Beleza... uma adaptação de code.