para resgar os valores de um checkbox usando asp

[Adilson_Web_2007 0]

Olá pessoal tenho um sistema onde tem varias opções com checkbox e gostaria de recuperar esses valores como eu faço em asp.

 

Segue o código

 

<input type="checkbox" name="arr_id[]" value="<%= RS("cod")%>">

eu pensei em fazer assim

 

if request.form("arr_id[]") then

end if

se estiver certo não sei fazer o resto alguém pode me ajudar por favor

[Ted k' 126]

valor = request.form("arr_id[]")

 

if valor = outro_valor then

 

response....

 

end if

[Adilson_Web_2007 0]

Deu certo, obrigado agora me tira outra dúvida por favor, se eu quiser fazer um insert com cada valor ´so por o insert into dentro?

[Ted k' 126]

você diz inserir em massa?

 

se é isso você faz um laço

 

For x = 0 to quantidade

insert into....

next

[Adilson_Web_2007 0]

Oi eu fiz assim e deu esse erro:

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d' 

Tipos incompatíveis: '[string: "1, 2, 3, 4, 5, 6, 7,"]'

 

 

Segue o código

 

vet = request.Form("arr_id[]") 
if vet <> " " then
for i = 1 to vet 
response.write(""&vet(i)&"")
next
end if

[Ted k' 126]

no request.form coloque um split

[Adilson_Web_2007 0]

como faz isso que você falou não conheço muita coisa, por favor.

 

eu fiz assim e deu esse erro:

 

vet = split(request.Form("arr_id[]"))
if vet <> " " then
for i = 1 to vet 
response.write(""&vet(i)&"")
next
end if

erro:

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d' 

Tipos incompatíveis 

/geral/pesquisaPasta.asp, line 55 

essa é a linha

if vet <> " " then

 

Desde já eu agradeço a ajuda

[Ted k' 126]

vet = split(request.Form("arr_id[]"), ",")

 

if vet <> " " then

for i = 1 to UBound(vet)

[Adilson_Web_2007 0]

Eu fiz assim e deu certo obrigado pela força vou colocar o código quem sabe ajuda alguém

 

if nome <> "" and area <> "" then
	 codigo  = request.form("codigo")
	  vet = split(codigo,",")
	if not IsArray(vet) then
	  vet = array(vet)
	  end if
   for i=0 to ubound(vet)
	sqlTabela = "insert into reservaPasta(codigoPasta,nome,area,data)values('" & vet(i) & "' , '" & nome & "', '" & area & "' , '" & data & "')"
	conexaoDataBase.execute(sqlTabela)
	sqlDisponivel = "update pessoa set disponivel = '" & disponivel & "'  where cod =' " & vet(i) & "' " 
	conexaoDataBase.execute(sqlDisponivel)
   next
   response.write("<script>alert('Pasta reservada com sucesso!');</script>")
   else
	 response.write("<script>alert('Para reservar a(s) pasta(s), os campos não podem ficar em branco');</script>")
   end if
end if

Amigo obrigado pela força!!!

[Ted k' 126]

perfeito man, parabéns pelo código e pela iniciativa!!!