Problemas na função Split

[xanburzum 169]

recupera ela e faz assim

 

produtos= Split(Request.Form("produtos"), ",")

For i = 1 To Request.Form("produtos").Count

 

você pode coloca-las em um array, ficará mais facil de relacionar os itens

[Mário Monteiro 179]

ta entendendo mas os dois grupos estão diferentes como falei anteriormente

[tuhajo 0]

ta entendendo mas os dois grupos estão diferentes como falei anteriormente

 

Já tentei de várias formas que me falaram mas até hj não consegui resolver esse problema!!!

Preciso resolver isso com urgência e não sei como faço.

[xanburzum 169]

ele esta gerando erro !!!!

[tuhajo 0]

ele esta gerando erro !!!!

 

não... só não está trazendo a quantidade certa de registros para o campo texto.

[xanburzum 169]

recupera ele 1º

 

qtd_produtos = split(Request.Form("qtd_produtos"),",")

produtos= Split(Request.Form("produtos"), ",")

 

e faz o for

 

For i = 1 To Request.Form("produtos").Count

 

 

SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

[tuhajo 0]

recupera ele 1º

 

qtd_produtos = split(Request.Form("qtd_produtos"),",")

produtos= Split(Request.Form("produtos"), ",")

 

e faz o for

 

For i = 1 To Request.Form("produtos").Count

 

 

SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

 

eu faço exatamente isso... só que o segundo form é um campo texto e ele traz todos... e não só os que eu selecionei no check.

ou seja, eu tenho 24 linhas com check e um campo texto para cada check... eu seleciono 3 checks por exemplo, os checks ele traz certo, só 3 mas os campos texto, ele traz todos.

era pra trazer só 3 tbm.

[xanburzum 169]

apenas para teste, faça um for somente no campo texto

[Mário Monteiro 179]

tente pelo menos colocar para os não selecionados quantidade igual a zero

 

ai na hora do insert apenas ponha um if para fazer a verificação

[tuhajo 0]

tente pelo menos colocar para os não selecionados quantidade igual a zero

 

ai na hora do insert apenas ponha um if para fazer a verificação

 

 

Nada funciona... Segue o pedaço do código para entender melhor...

Página de envio:

 

<tr bgcolor="#DADADA">
   <td colspan="2">TIPO DE ATIVIDADE</td>
   <td colspan="3">OBSERVAÇÃO</td>
</tr>
<%
sql_tipo_servico = "SELECT codigo, servico FROM servicos"
Set RsTipoServico = ConBanco.Execute (sql_tipo_servico)
                                            
if (not RsTipoServico.eof) then
                                                
   while (not RsTipoServico.eof)
         codTipoServico = RsTipoServico("codigo")
         strTipoServico = RsTipoServico("servico")
%>
<tr>
    <td><input name="chk_tipo_servico" type="checkbox" tabindex="16" value="<%=codTipoServico%>"><%=strTipoServico %></td>
    <td><input name="txtObsTipoServico" id="txtObsTipoServico" type="text" size="60" tabindex="17"></td>
</tr>
<%
   RsTipoServico.movenext
   wend
end if
%>

Página que recebe:

 

<%
codTipoServico       = request.Form("codTipoServico")
chk_tipo_servico     = split(request.Form("chk_tipo_servico"),",")
txtObsTipoServico    = split(request.Form("txtObsTipoServico"),",")

For x=0 to UBound(chk_tipo_servico)
   
    
    'Insere os serviços realizados na visita técnica.
    serv_helpdesk = "INSERT INTO SERVICO_REALIZADO(cod_servico, servico, observacao) VALUES (nextval,'"&trim(chk_tipo_servico(x))&"','"&trim(txtObsTipoServico(x))&"')"    
    Set RsServHelpDesk = ConBanco.execute(serv_helpdesk)
   
next
%>