Checkbox/ASP

[Biroca 0]

Bom dia pessoal, sou novo no fórum e não entendo muito de programação. Mas, estou precisando

urgente de uma mãozinha para inserir vários checkbox com mesmo nome e valores diferentes, já

tentei de várias formas e o máximo que consigo é gravar apenas um. Como teste criei uma tabela

com um campo de nome Cor.

<tr>
<td>Cores:</td>
<td>
					 
<input name="Cor" type="checkbox" value="Azul">Azul<br>
<input name="Cor" type="checkbox" value="Verde">Verde<br>
<input name="Cor" type="checkbox" value="Amarelo">Amarelo
				
</td>	
</tr>

Por favor se puderem me dar um exemplo completo eu agradeço. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Italo Bruno 0]

Para isso você ira precisar de uma estrutura de repetiçao (FOR, WHILE), nao citarei um exemplo porque você nao se explicou bem a sua necessidade, como por exemplo quantos checkbox's você precisaria imprimir na tela, quais os valores do mesmo . . .

[Mário Monteiro 179]

mas quando voce recupera vem todos os valores marcados separados por virgula

[Biroca 0]

Desculpa pessoal acho que não postei direito, como disse não manjo muito de progr., vou passar realmente

o que estou precisando para terminar minha página, só falta esta parte de checkbox para inserir os opcionais

de classificados de veículos, vamos lá.

Meu BD é composto da tabela AnunciosVeiculos e os campos são:

(ID, IDEstado, IDCidade, IDMarca, Modelo, Valor, Opcionais,...)

 

Form:

<tr> 
						<td>Opcionais:*</td>
						<td> <div style="width:200; border:2px inset; background: #FFF; height:50px; overflow: auto"> 
							<input name="Opcionais" type="checkbox" value="Som" />Som<br />
							<input name="Opcionais" type="checkbox" value="Rodas" />Rodas<br />
							<input name="Opcionais" type="checkbox" value="Vidros" />Vidro Eletrico</td></tr>

VarOpcionais = Request.Form("Opcionais")

O que estou precisando é de que quando o usuário clicar nos checkbox dos opcionais do veículos sejam gravados

todos no mesmo campo (opcionais) separados por vírgula. Já tentei de várias formas e só consigo gravar apenas um.

Valeu aguardo. Obrigado.

[Mário Monteiro 179]

como estar tentando gravar? aparentemente está certo e deveria ja recuperar da forma que precisa

 

depois de recuperar de um

 

response.write(VarOpcionais)

 

e veja se está vindo certo

[Biroca 0]

como estar tentando gravar? aparentemente está certo e deveria ja recuperar da forma que precisa

 

depois de recuperar de um

 

response.write(VarOpcionais)

 

e veja se está vindo certo

Olá Mário, vou postar os códigos da minha página por completo assim fica mais fácil você verificar o que

está errado ok? Colocarei apenas os códigos ref. opcionais.

A página funciona assim, primeiro insere os dados no form clica em cadastrar, depois vai para a página

confirmar os dados (aqui já aparece apenas um ítem cadastrado), clicando em confirmar os dados são cadastrados no BD.

<%
Dim VarAct
%>
<table width="300" border="0" cellspacing="0" cellpadding="0">
  <tr> 
<td></td>
</tr>
<tr> 
<td>Cadastrar Veículos </td>
</tr>
<tr> 
<td align="center"> 
<%
Dim VarOpcionais
Dim InsBd
		
If VarAct = "Cadastrar" Then
			
				
VarOpcionais = Uploader.Form("Opcionais")
													
If VarOpcionais = "" Then
Response.Write "<tr><td align='center'>Selecione um opcional!<br><br>"& Voltar &"</td></tr>"
Else
				
With Response
.Write "<table align='center' width='90%'>"
.Write "<form action='InserirVeiculo.asp?Act=Confirma' method='post' name='Inserir'>"
.Write "<input type=hidden value='"&VarOpcionais&"' name='Opcionais'>"

.Write "<tr><td>Opcionais: </td><td>" & VarOpcionais & "</td></tr>"
.Write FCampos(14) 'Confirmar 
.Write "</form></table>"
End With
End If
				
ElseIf VarAct = "Confirma" Then
		
					
VarOpcionais = Request.Form("Opcionais")
				
Set InsBd = Server.CreateObject("ADODB.Recordset")
InsBd.CursorLocation = adUseServer
InsBd.CursorType = adOpenKeyset
InsBd.LockType = adLockOptimistic
InsBd.Open "AnunciosVeiculos", Conn, , , adCmdTable
InsBd.AddNew
InsBd("Opcionais") = VarOpcionais
InsBd.Update
InsBd.Close
Set InsBd = Nothing
						
Else
%> 
<table width="80%" align="center">
<form action="InserirVeiculo.asp?Act=Cadastrar" method="Post" name="Cadastrar" enctype="multipart/form-data">
<tr> 
<td>Opcionais:*</td>
<td> <div style="width:200; border:2px inset; background: #FFF; height:50px; overflow: auto"> 
<input name="Opcionais" id="Opcionais" type="checkbox" value="Som" />Som<br />
<input name="Opcionais" id="Opcionais" type="checkbox" value="Rodas" />Rodas<br />
<input name="Opcionais" Id="Opcionais" type="checkbox" value="Vidros" />Vidro Eletrico
</div></td>
</tr>
<%
With Response
.Write FCampos(11) 'Cadastrar
End With
%>
</form>
</table>
<% End If %> 
</td>
</tr>
</table>

[Salgado 4]

Fez o teste que o Mário indicou?

[desisto 0]

VarOpcionais = Request.Form("Opcionais")

seria Uploader.Form

 

você nao precisa por 2 vezes VarOpcionais = Uploader.Form("Opcionais")

 

outros campos de texto sao gravados corretamente?

[hargon 64]

Manda escrever na tela o conteúdo de VarOpcionais logo após receber os valores.

 

Como já foi falado os valores estarão separados por virgula.

 

Se estiver ok, verifica o Tipo de Dados do campo onde será cadastrado esses valores. No caso de valores separado por virgula, você deverá usar tipo texto.