Salvando Vários CheckBox com o mesmo nome

[Gilberto Jr 26]

Bom dia;

 

Consegui fazer um menu DROPDOWN ASP com AJAX.

 

Quando eu mando lista ele dentro do formulário dentro de um input type="checkbox".

 

O meu problema é, vou ter que fazer um insert para cada checkbox desse. E esses checkbox tem o mesmo nome.

 

Abaixo esta um código que consigo mostrar os checkbox separados por virgula e também eu conto quantos checkbox foi marcado.

 

Segue o script

<%
dim conn
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection") 
 
'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=bancodedados;USER=root;PASSWORD=211613;OPTION=3;")

checkbox = request.form("teste").Count

response.Write("<br>"&checkbox&"<br />")

for i = 0 to checkbox-1

response.Write("ID: "&request.form("teste")&"<br>")

next

conn.Close()
'Destruímos o objeto
Set conn = Nothing

%>

Mas quando eu faço o submit no formulário ele aparece dessa forma que esta na imagem abaixo

O que eu preciso nesse caso é fazer um INSERT do SUB SERVIÇO NUMERO 4 e outro INSERT do SUB SERVIÇO 5

 

Alguém poderia me da uma solução desse caso?

 

Att;

[xanburzum 169]

faz assim, ex:

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)&"')"

[Gilberto Jr 26]

xanburzum

 

Funcionou... Já te falei que é uns dos caras mais inteligente daqui do fórum? rsrs

 

Parabéns pela sua inteligencia e cada poste que você coloca resolve o meu problema.

 

Segue o código como ficou

<%
dim conn
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection") 
 
'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=database;USER=root;PASSWORD=211613;OPTION=3;")

checkbox = request.form("teste").Count

response.Write("<br>"&checkbox&"<br />")

for i = 0 to checkbox-1

'response.Write(split(Request.Form("teste"),",")(i)&"<br />")

set inerir = conn.execute("insert into arquivomb (arquivo,notafiscal) values ("&split(Request.Form("teste"),",")(i)&","&Request.Form("users")&")")

next

response.Write("Cadastrado")

conn.Close()
'Destruímos o objeto
Set conn = Nothing

%>

Funcionou do jeito que eu queria.

 

Sistema esta ficando quase pronto com a ajuda de vocês.

 

Att;

[xanburzum 169]

fico feliz que resolveu...