[Resolvido] Valores Check Box

[The Jhunior 0]

Olá.

 

Gostaria de fazer um Request.Form de varios Check box e usar esses mesmos valores em um select

 

Pesquisei e vi que se usa o split, mas não consegui enteder.

 

Pagina de envio

 

<% Dim  sql, rs

Call AbreConn ()

sql = "Select * From adicional order by nome"

Set rs = conn.Execute(sql)

do while not rs.eof
%>
       <input name="adicionais" type="checkbox" id="adicionais" value="<%=rs("id")%>">
       
       <%=rs("nome")%> - <%=formatcurrency(rsAtiva("valor"))%>

Página de recebimento:

 

<%
Dim adicional

Vid = Resquest.Form("adicionais")

Call AbreConn ()

sql = "Select * From adicional Where id= " & Vid

Set rs = conn.Execute(sql)

Sei que tenho que separa os valores com o split, mas ainda não consegui fazer

 

Alguém pode me ajudar

 

Obrigado

[SemPapasNaLingua 0]

A sua dúvida é sobre como utilizar o Split, ou oq ?

[The Jhunior 0]

A minha duvida é como faço para fazer o request.form dos check box selecionados e depois utilizados como where de um select

[SemPapasNaLingua 0]

Variavel = Request.Form(checkbox)
nVariavel = Split(Variavel,",")
For i = 0 to UBound(nVariavel)
SQL = "SELECT * FROM tabela WHERE id = " & nVariavel(i)
Next

Se você souber a lógica do Split ( coisa que é só pesquisar um pouco ), facilmente você resolve seu problema...

[The Jhunior 0]

Variavel = Request.Form(checkbox)
nVariavel = Split(Variavel,",")
For i = 0 to UBound(nVariavel)
SQL = "SELECT * FROM tabela WHERE id = " & nVariavel(i)
Next

Se você souber a lógica do Split ( coisa que é só pesquisar um pouco ), facilmente você resolve seu problema...

 

Valeu cara consegui fazer o que queria !