[Resolvido] Insert com base em checkbox

[Lightspeed 0]

Pessoal,

 

é possível fazer o que vou descrever abaixo em asp?

 

Tenho uma tabela de empresas e uma de drogas que cada empresa testa. Algumas empresas utilizam o teste de 10 drogas e outras de 4 drogas em seus funcionarios.

 

Entao, criei um loop na pagina de edição de empresas que funciona perfeitamente:

<%

		set SQLD = Con.Execute ("Select * from TB_droga where blnPublicar=1 and intDrogaID <> 1 order by intDrogaID")


		Do while not SQLD.EOF


		intDrogaID=SQLD("intDrogaID")



		intEmpresaID=SQL("intEmpresaID")


		set SQLED= Con.Execute ("select intDrogaID from TB_Empresa_Droga where intEmpresaID = "&intEmpresaID&" and intDrogaID = "&intDrogaID&"")				

                               if SQLED.EOF then
%>
							<tr>
				<td><input type="checkbox" name="checkdroga<%=SQLD("intDrogaID")%>" class="formcheckbox" value="1"></td>
				<td><%=SQLD("strDroga")%></td>
					                </tr>			

<%
			else
%>
							<tr>
				<td><input type="checkbox" name="checkdroga<%=SQLD("intDrogaID")%>" class="formcheckbox" value="1" checked></td>
				<td><%=SQLD("strDroga")%></td>
							</tr>


<%
			End if


		SQLD.movenext
	Loop

Certo, essa parte é a leitura das drogas que a empresa testa.

 

Agora preciso transformar esse painel checkbox em algo mais util que apenas dizer se a empresa testa ou nao tais drogas.

Preciso que ao marcar e desmarcar, o sistema realmente modifique no banco de dados.

 

Queria saber se há como verificar os checkboxes sem usar javascript. Nao sei como integrar as duas linguagens. Nao consegui transferir o valor de uma variavel de mesmo nome em javascript para uma de mesmo nome no asp.

 

Agradeço desde já!

[Vinicius Ianni 189]

O checkbox passa como parametro true ou false, dependendo de seu estado.

Assim, o checkdroga vai exibir um desses dois estados ao ter seu valor recuperado pelo Request.form

Sabendo isso, fica mais facil entender como pode ser feito:

O exemplo abaixo seria na página que processa os dados

checkdroga = Request.form("checkdroga")

if checkdroga = true then
sql = "insert ....
end if

 

ou durante a clasula sql, pode comparar o estado do checkbox e ir compondo a clausula:

sql = "insert .... "
if checkdroga = true then
sql = sql &"alguma coisa"
else
sql = sql &"outra coisa"
end if

[Lightspeed 0]

Opa!

 

Então cara, tentei usar o request.form mas me retorna o seguinte erro:

 

"Cannot use Request.Form collection after calling BinaryRead."

 

De resto, fiz tudo igual como você sugeriu no primeiro script.

 

Como saio dessa enrascada?

 

Obrigado!

[Lightspeed 0]

Olá Vinicius,

 

Voltei para dizer que consegui fazer o que eu queria e que sua dica foi fundamental para o meu sucesso.

 

O que precisei fazer para sair do erro que descrevi no post acima foi mudar o request pra upload:

 

Dim checkbox : checkbox = upload.Form("checkbox")

 

Aí foi só trocar o if checkbox = true pra if checkbox = 1 e Bingo!

 

Obrigado mais uma vez Vinícius. Minha dúvida foi sanada.

[Vinicius Ianni 189]

Que bom que resolveu :)

 

Precisando, estamos ai :joia: