(Resolvido) Contar checkbox selecionado

[marvi]

Pessoal, tenho uma dúvida que pode ser simples, mas não conseguir resolver.

Quero ver o número de checkbox que o usuário selecionou para que eu possar contar a quantidade de checkbox selecionado e assim poder dar um loop com essa quantidade de checkbox selecionado para inserir no banco de dados as informações, como fazer?

Tipo:

Há três campos:

checkbox A

checkbox B

checkbox C

Mas aí a pessoa seleciona só o A e o B e cadastra no banco. Sendo assim, preciso de algo que informe quantos checkboxs foram selecionados, que neste exemplo foram 2 (o A e o B ), e assim só dar dois loops para inserir o checkbox A e o checkbox B no banco, cadastrando-os.

Entendeu?

Desde já, agradeço

Editado Novembro 1, 2009 por marvi

[.Andreia.]

Se os checkboxs tem o mesmo nome, quando você faz o request.form por ele, você recebe algo parecido com um array, exemplo:

Chk 1: <input type="checkbox" name="chk" value="1"/>
Chk 2: <input type="checkbox" name="chk" value="1"/>
Chk 3: <input type="checkbox" name="chk" value="1"/>
Chk 4: <input type="checkbox" name="chk" value="1"/>
Chk 5: <input type="checkbox" name="chk" value="1"/>

você vai receber por exemplo selecionando 3 check: 1,1,1

[marvi]

Não os chekes são dinâmicos, ele é gerado com as informações do banco de dados e a pessoa seleciona tal informações e faz o pedido que se cadastra no banco no campo pedido, entende?

[Rafael Spilki]

Não penso ser uma boa logica essa marvi... o ideal é passar para os checboxes um id dos registros do bd, para dari pegálos como se fosse um array, como aandreia falou, na página seguinte...

Do contrário terás que gramar por aí...

Acho que valea pena repensar isso pois te pouparas trabalho.

[]'s

[Bicicleta]

também acho que não é a melhor forma de se fazer isso, mas de qualquer jeito, segue abaixo algo:

<%

arrCheck = Split(Replace(Request.Form("CampoCheck"), " ", ""), ",")

For i = 0 To UBound(arrCheck)

Response.Write "Ítem " & i & " = " & arrCheck(i) & "<br />"

Next

Erase arrCheck

%>

Abraço.

[marvi]

O check é formado assim:

<input type="checkbox" name="pedido<%=(nome)%>" value="<%=rsnoticia("titulo")%>" onclick="checa(this)">

Aí se tiver 4 informações no banco de dados, será dado 4 loops com esse checkbox acima, e assim a pessoa selecionar um ou dois checbox e envia, via submit e a outra página é assim:

for x = 1 to qtd

if request.form("pedido"&x) <> "" then    

opc= x&"º opção"

        sql = "insert into pedidos (pedido, cliente, opcao, id) VALUES ('" & request.form("pedido"&x)& "','" & cliente& "','" & opc& "','" & varid& "')"
    Set rsprodutos=Conexao.Execute(sql)
    end if
next

[Bicicleta]

Não sei se você fez uma pergunta ou uma afirmação. Não entendi o que você quiz dizer. Mas como cada campo tem um nome diferente, se não deu certo, tente assim:

<%
For Each campo In Request.Form
  Response.Write "Campo: " & campo & " = " & Request.Form(campo) & "<br />"
Next
%>

Editado Novembro 4, 2009 por Bicicleta

[marvi]

Beleza Bicicleta, está rodando ok, qualquer coisa eu posto! Grato!