Check Box

[rcnery]

Estou com grande problema, e preciso de alguma idéia para soluicioná-lo:

Tenho um check box de form que é gerando utilizando loop, não sei quantos serão gerados, preciso saber o que eu faço para recuperar esses check box que irão servir como causa (WHERE) para abrir uma tabela do bd equivalente aos ckeck selecionados.

Por favor aguar ajuda.

Obrigado

Ricardo

código do check loop

<%

' Open Recordset

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

RS.ActiveConnection = Con

RS.Open "Select expo, idexpocal, idexpo FROM expos WHERE idexpocal = '"& idcal & "' "

While not RS.EOF

%>

<table width="100%" cellspacing="0">

<tr>

<td><div align="left">

<input name="expo" type="checkbox" value="<%=RS ("idexpo")%>">

<font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=RS ("expo")%>

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

</tr>

</table>

<font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">

<%

RS.MoveNext

Wend

%>

Código q estou utilizando para recuperar q esta dando erro:

<%

'****** Exemplo de split()

varCheck = Request.Form("expo")

'** quando é mais de um check ele manda os valores entre virgulas, tipo (13,47,98...), entendeu?!

'** quebrando os valores

valor = split(varCheck,",")

'** o FOR vai mostrar na tela os ID's

for i = 0 to uBound(valor)

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

RS.ActiveConnection = Con

RS.Open "Select expotipo, idexpo FROM expos WHERE idexpo = '"& valor(i) & "' "

While not RS.EOF

resultidexpo = RS ("idexpo")

resulttipoexpo = RS("expotipo")

Wend

sqlString = "INSERT INTO exporesul " &_

"( resultiddog, resultdograca, resultsexo, resultidexpo, resultidcal resulttipoexpo) VALUES ( " &_

" '" & rg & "', " &_

" '" & dogRaca & "', " &_

" '" & dogsexo & "', " &_

" '" & resultidexpo & "', " &_

" '" & idcal & "', " &_

" '" & resulttipoexpo & " ')"

Con.Execute sqlString

next

%>

[Guest Guest]

substitua tudo q for OPCIONAL por uma variavel q você for usar

opcional = request.QueryString("opcional")
opcionaltemp = split(opcional,",")

if not opcional = "" AND not opcional = "0" then
	For Each x in opcionaltemp
  if i=0 then
  	i = 1
  else
  	temp = temp & " AND "
  end if
  temp = temp & "opcional ='"& x &"''"
	Next
	opcional_sql = temp
end if

sql = "SELECT * FROM tabela "& opcional_sql 

[ursolouco]

Artigo: Excluindo múltiplos registros com checkbox!!

Veja se pode lhe ajudar...

[]s

[rcnery]

Urso e Guest,

Valeu pela força!!!

Abraço

Ricardo.

PS: Urso pode fechar o tópico!