Preciso lista consulta mas não consigo

[Web Design Valdeci 0]

Boa Noite Pessoal,

 

Eu fiz um sisteminha para um plano de saúde que pega um plano de saúde de uma operadora, exibe os planos dessa operadora e atraves da seleção da idade ele apresenta os dados do plano com isso criei 4 tabelas: categoria(operadora), subcategoria(nome do plano), produto(plano) e idade. A tabela produto recebe o id da idade, o id da categoria e o id da subcategoria,vamos supor que temos a operadora Santa Casa Saúde, qd agente clica o sistema lista todas as subcategorias(que é o nome do plano, Ex: Essencial*-Plano de Saúde Individual - Enfermaria) a relação exibe certinho e na hora q ela aparece eu coloque ao lado a lista das idades que é pré-estabelecida em 0 a 18 anos 19 a 23 anos etc, coloquei um check box para a pessoa selecionar o plano e a idade, até aí o sistema mostra certinho, mas so funciona se selecionar uma idade, se selecionarmos mais de uma ele nao mostra. Colocarei a consulta que fiz na parte que relaciona a subcategoria, a idade e a parte que quando selecionamos o check box ele lista os planos da tabela produtos. Preciso que ao selecionar uma subcategoria e varias idades ele mostre uma debaixo da outra. Em pesquisa vi q tenho q receber o dado em array e fazer um loop nas idades para ir exibindo.. mas não sei fazer isso, alguem pode me explicar por favor?

 

Arquivo que lista a consulta, ao clicar no nome da categoria tipo Santa Casa ele envia o id da categoria:

CODE

<%

id = Request.QueryString("id")

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

cs_listar1.ActiveConnection = strcon

cs_listar1.Source = "SELECT * FROM subcategorias_produtos_sub WHERE id_categoria = "&id&" ORDER BY Nome DESC"

cs_listar1.CursorType = 0

cs_listar1.CursorLocation = 3

cs_listar1.LockType = 1

cs_listar1.Open()

 

 

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

cs_listar.ActiveConnection = strcon

cs_listar.Source = "SELECT * FROM idade ORDER BY idade_inicio asc"

cs_listar.CursorType = 0

cs_listar.CursorLocation = 3

cs_listar.LockType = 1

cs_listar.Open()

%>

 

Aqui é a consulta que recebe a seleção do check box:

 

CODE

<%

opc = Request.QueryString("opc")

if opc = "consulta" then

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

cs_produto.ActiveConnection = strcon

id_plano = Request.form("plano")

id_idade = Request.form("idade")

cs_produto.Source = "SELECT * FROM produtos_sub where id_subcategoria = "&id_plano&" and id_idade = "&id_idade&" ORDER BY id asc"

cs_produto.CursorType = 0

cs_produto.CursorLocation = 3

cs_produto.LockType = 1

cs_produto.Open()

end if

 

<%While Not (cs_produto.EOF)

var_id = cs_produto.Fields.Item("id").Value

var_id_categoria = cs_produto.Fields.Item("id_categoria").Value

var_imagem = cs_produto.Fields.Item("imagem").Value

var_nome = cs_produto.Fields.Item("nome").Value

var_valor = cs_produto.Fields.Item("valor").Value

var_descricao = cs_produto.Fields.Item("descricao").Value

var_abrangencia = cs_produto.Fields.Item("abrangencia").Value

var_odonto = cs_produto.Fields.Item("odonto").Value

%>

<tr>

<td width="38%"><span class="sub_titulo12">

<%if cs_produto.Fields.Item("imagem").Value <> "" then%>

<img src="assets/img/images/<%=(cs_produto.Fields.Item("imagem").Value)%>" width="80" border="0">

<%end if%>

</span></td>

<td colspan="4" valign="top" class="txt_cinza_11"><%=var_descricao%></td>

</tr>

<tr>

<td bordercolor="#D2E9FF" bgcolor="#D2E9FF" class="txt_cinza_11_bold"><div align="center" class="style1">Plano</div></td>

<td width="21%" bordercolor="#D2E9FF" bgcolor="#D2E9FF" class="txt_cinza_11_bold"><div align="center" class="style1">Valor</div></td>

<td width="18%" bordercolor="#D2E9FF" bgcolor="#D2E9FF" class="txt_cinza_11_bold"><div align="center" class="style1">Abrangência</div></td>

<td width="11%" bordercolor="#D2E9FF" bgcolor="#D2E9FF" class="txt_cinza_11_bold"><div align="center" class="style1">Odonto</div></td>

<td width="12%" bordercolor="#D2E9FF" bgcolor="#D2E9FF" class="txt_cinza_11_bold"><div align="center" class="style1">Rede</div></td>

</tr>

<tr>

<td bordercolor="#D2E9FF" class="txt_cinza_11"><%=var_nome%></td>

<td bordercolor="#D2E9FF" class="txt_cinza_11"><div align="center"><%=FormatCurrency(var_valor)%></div></td>

<td bordercolor="#D2E9FF" class="txt_cinza_11"><div align="center"><%=var_abrangencia%></div></td>

<td bordercolor="#D2E9FF" class="txt_cinza_11"><div align="center">

<%if var_odonto = "sim" then%>

<img src="assets/img/sim.gif" alt="Sim">

<%else%>

<img src="assets/img/no.gif" alt="Não">

<%end if%>

</div></td>

<td bordercolor="#D2E9FF" class="txt_cinza_11"><div align="center"><a href="java script:;" class="link_verde_10" onClick="MM_openBrWindow('rede.asp?id=<%=var_id_categoria%>','','scrollbars=yes,width=600,height=400')">Clique</a></div></td>

</tr>

<%cs_produto.MoveNext()

wend%>

 

%>

 

quando seleciono uma idade ele lista qd seleciono varias ele aparece assim:

 

Microsoft JET Database Engine error '80040e14'

 

Syntax error (comma) in query expression 'id_subcategoria = 22 and id_idade = 1, 2'.

 

/planos/exibir_valores.asp, line 15

 

 

então preciso q o sistema liste cada um plano abaixo do outro, gostaria somente da consulta.

 

valeu

[Mário Monteiro 179]

qual o tipo de dados do id_idade

[Web Design Valdeci 0]

numero

[Mário Monteiro 179]

mas é inteiro?

 

alia sao duas ids diferentes?

[Web Design Valdeci 0]

é numero inteiro, a consulta q exibe os planos referentes as idades é na tabela produtos, ele recebe o id_subcategoria e o id_idade todos os dois recebendo os dados tipo número inteiro.

[Mário Monteiro 179]

mas e isso

 

id_idade = 1, 2

vem dois valores de idade?

[Web Design Valdeci 0]

è porque na primeira consulta la em cima ele exibe a subcategoria em do lado um check box com id da subcateoria e listei ao lado outra consulta na tabela idade recebendo as idades e ao lado um check box recebendo o id das idades, na consulta que lista se selecionarmos uma subcategoria e uma idade ele lista certo, agora se selecionarmos duas idades ele nao lista. seleciona um nome de plano no check box e uma idade, e depois seleciona um plano no check box e duas idades.

[Mário Monteiro 179]

é porqeu deve usar o in

 

teste assim

 

cs_produto.Source = "SELECT * FROM produtos_sub where id_subcategoria = "&id_plano&" and id_idade IN ("&id_idade&") ORDER BY id asc"

[Web Design Valdeci 0]

Cara é isso mesmo, muito obrigado pela ajuda. valeu mesmo! [resolvido]

[Mário Monteiro 179]

Que bom

 

Abraços