2 replies to this topic

[kaplan]

ola pessoal td bem???

bom eu pessoal eu fiz um formulario de acessorios de carro e é tudo por checkbox
tipo o cliente vai selecionar os acessorios que tem no carro tipo air bug, freio abs, ar-condicionando e ect
mais como eu vou recuperar estes valores e gravar no banco
ja que estou fazendo assim:

<%
Do  While Not Rs.EOF
%>
<td width="22%"><%=Rs("Acenome")%>
<input type="checkbox" name="<%=Rs("AceCod")%>" value="ON"></td>
<%
Rs.MoveNext
Loop
%>

me ajudem galera to no desespero
pq eu recupero as variaveis de form assim:

nome = Trim(Request.form("nome"))

mais como eu to puxando de um loop naum sei como recuperar todas e agora???

[Agente Linhares]

roda a sua pg.

e va em "exibir codigo fonte".

ai vc pega a forma q ta numerando esses campos e os ids.

em cima disto vc bola algo. ou na mao msmo (caso nao sejam dados q irao mudar os ids) ou vc faz um loop pra pegar.

se for o caso, vc tb pode pegar c/ arrays.

mas veja la no fonte primeiro.

[kaplan]

bah eu fiz um jeito aqui e deu certo do jeito que eu queria naum meu caso seria mto ruim

ficar criando campos ou tabelas

'Verifico qual é a acao
'aqui ser a parte depois que o cara clicar no bt enviar
If Acao = "mudar" Then
   Dim c, i, A()
   c	= Request("total")
   ReDim A(c)
   For i = 0 to c
	   A(I) = Request("c" & I)
		   If A(I) = "" Then
			   Response.Write ""		
			Else
			   Response.Write(A(I) & "<br>")
			End If
	Next

'***************

Form tal....

<%
'Faco um select que ira mostrar pra mim o total de acessorios
SqlT = "Select Count(*) As Total "_
& "	   From Acessorio_Veiculo "_
& "	  Where AceTipo = '0' "_
& "		And AceStatu = '0' "
Set RsT = Conn.Execute(SqlT)
%>
<input type="hidden" name="total" value="<%=RsT("Total")%>">
<%
'Faço o um select que ira trazer pra mim todos os acessorios
Sql = "Select AceCod, AceNome "_
& "	  From Acessorio_Veiculo "_
& "	 Where AceTipo = '0' "_
& "	   And AceStatu = '0' " 
Set Rs = Conn.Execute(Sql)

ContadorX = 0
Do  While Not Rs.EOF
%>
<b><font size="2" face="Verdana"><%=Rs("Acenome")%>
</font></b><font face="Verdana" size="2">
<input name="c<%=ContadorX%>" type="checkbox" class="input_id" value="<%=Rs("AceCod")%>" 

style="font-weight: 700"></font><b><font size="2" face="Verdana">
</font></b>
<%
ContadorX = ContadorX + 1
Rs.MoveNext
Loop
%>