Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Oi Boa Tarde,
Eu sou nova em desenvolvimento asp, e estou com uma dúvida, já pesquisei bastante, porém não consigo encontrar solução, espero que alguém possa me ajudar.
Eu tenho um form com checkbox (values = produtos) e textarea para digitar a respectiva quantidade dos produtos, sendo que os dois deveriam ser cadastrados em uma tabela chamada lista, cada um em um campo e em linhas diferentes; porém com o código que eu fiz, consigo cadastrar apenas os produtos do checkbox e a quantidade fica em branco, a não ser qdo eu digito todos os textareas com quantidades, se eu pulo uma quantidade, já não cadastra no BD. Será que alguém poderia me ajudar?
Código do form:
<%
Dim teste
Dim teste_cmd
Dim teste_numRows
Set teste_cmd = Server.CreateObject ("ADODB.Command")
teste_cmd.ActiveConnection = MM_pedido_STRING
teste_cmd.CommandText = "SELECT * FROM produtos ORDER BY nome_produto ASC"
teste_cmd.Prepared = true
Set teste = teste_cmd.Execute
teste_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
teste_numRows = teste_numRows + Repeat1__numRows
%>
<form action="teste2.asp" method="post" name="1" id="1">
<table border="1">
<tr>
<td>id_prod</td>
<td>nome_produto</td>
<td>mod_tam</td>
<td>marca</td>
<td>fornecedor</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT teste.EOF)) %>
<tr>
<td><input name="produtos" type="checkbox" value="<%=(teste.Fields.Item("nome_produto").Value)%><%=(teste.Fields.Item("mod_tam").Value)%>" />
<td><input type="text" name="qtd_produtos" value="0" /></td>
<td><%=(teste.Fields.Item("nome_produto").Value)%></td>
<td><%=(teste.Fields.Item("mod_tam").Value)%></td>
<td><%=(teste.Fields.Item("marca").Value)%></td>
<td><%=(teste.Fields.Item("fornecedor").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
teste.MoveNext()</table>
<p>
<input type="submit" name="subim" id="subim" value="Submit" />
</p>
</form><%
qtd_produtos = split(Request.Form("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)&"')"
Set Command1 = Server.CreateObject ("ADODB.Command")
Command1.ActiveConnection = MM_pedido_STRING
Command1.CommandText = SQL
Command1.Prepared = true
Command1.Execute (SQL)
Next
%>
Carregando comentários...