Gravar valores separados por "," com chekbox

[Carlos Moreira 0]

Pessoal

 

É o seguinte estou queendo gravar vários ID's no campo CORES da minha tabela PRODUTOS

 

OBS: eu uso um upload na pagina onde estou resgantando acho que deve ser isso o erro, mas vejam o cod.

 

Resgato assim:

 

SELECTWhilecor=RScor("id")<input name="cores" type="checkbox" id="cores" value="<%=cor%>">wendMando para pagina de gravartitulo = UploadRequest.Item("titulo").Item("Value")cores = UploadRequest.Item("cores").Item("Value")valor = UploadRequest.Item("valor").Item("Value")Call abre_conexao(ConnString,Conn)sql = "Insert Into produtos (titulo, cores, valor) VALUES ('" & titulo & "', '" & cores & "', '" & valor & "',)"Conn.Execute(sql)Call fecha_conexao()

 

Mas ELE só esta gravando 1 ID e eu estou selecionando VÁRIOS

[Ted k' 126]

eu usei uma função para fazer isso, veja como ficou!

 

num2=0

for i=0 to ubound(email_admin_insert)
	email_admin_insert(i)=replace(email_admin_insert(i),chr(13),"")
	if trim(email_admin_insert(i))<>"" then
		num2=num2+1
		objbanco.execute( "insert into admin_cadastros (email_admin_insert) values('"&email_admin_insert(i)&"')" )
	end if
next

você vai e adapta com a sua necessidade!

 

nessa função eu usei o separador ENTER pois eu colocava os valores em um textarea assim:

email1@hotmail.com e dava ENTER exemplo

 

email1@hotmail.com

email2@hotmail.com

email3@hotmail.com

é o que essa linha está fazendo com o Chr(13)

email_admin_insert(i)=replace(email_admin_insert(i),chr(13),"")

[Carlos Moreira 0]

Ted eu coloco esse cod no pagina que vou gravar junto com o demais:Como eu deixo entao a linha que tem o Ch(13) quero separar por ","

[Ted k' 126]

email_admin_insert(i)=replace(email_admin_insert(i),",","")

[Carlos Moreira 0]

Tek ta dando esse pau

 

Tipos incompatíveis: 'ubound'

/casashospitalar/admin/produtoadd.asp, line 85

 

estou usando assim veja se esta correto:

 

Call abre_conexao(ConnString,Conn)num2=0for i=0 to ubound(cores)	cores(i)=replace(cores(i),",","")	if trim(cores(i))<>"" then		num2=num2+1sql = "Insert Into produtos (categoria1, titulo, referencia, cores, descricao, valor, data, usuario, capa, aprovado) VALUES ('" & categoria1 & "', '" & titulo & "', '" & referencia & "', '" &cores(i)& "', '" & descricao & "', '" & valor & "', '" & now & "', '" & usuario & "', '" & capa & "', '" & aprovado & "')"Conn.Execute(sql)end ifnext

[Ted k' 126]

olha como está o value que criei

 

values('"&email_admin_insert(i)&"')"

repare no "(i)"

 

olha lá, esqueci de passar a linha do request.form

 

email_admin_insert=split(request.form("email_admin_insert"),chr(10))

num2=0

for i=0 to ubound(email_admin_insert)
	email_admin_insert(i)=replace(email_admin_insert(i),chr(13),"")
	if trim(email_admin_insert(i))<>"" then
		num2=num2+1
		objbanco.execute( "insert into admin_cadastros (email_admin_insert) values('"&email_admin_insert(i)&"')" )
	end if
next

só uma observação eu usei para um campo só!

[jrcardozo 4]

Tópico fechado

 

continua em http://forum.imasters.com.br/index.php?sho...mp;#entry845602

 

Não crie tópicos contendo o mesmo asunto em discussão, isso dificulta quem responde