Problema com Lbound e Ubound

[Web Design Valdeci 0]

Estou desenvolvendo um sistema onde exite um cadastro do cliente e um cadastro de segmentos e criei uma talela chamada listas onde ela recebe o id do cliente e do segmento. Criei uma consulta para listar o nome do clientes, o segmento que ele se encaixa e se quero que ele seja exibido ou não. Nesta página inseri chekboxs (com o nome de idListas) ao lado de cada cliente para pegar o id da tabela Listas. O que quero é quando eu selecionar o chekbox (quem tem cada um um id) ele pegue o id da consulta e a atualize o campo "exibir" com a palavra não somente os ids que selecionei no chekbox. Para isto criei este script abaixo:

 

tsc = request.querystring("tsc")
If tsc = "atualizar" then
  arridLista = split(request.form("idLista"),",") 'vai criar um array dos presentes quebrando por vírgulas que o form envia como separador para o mesmo nome de campo.
For i=Lbound(arridLista) to Ubound(arridLista) 'varrer o array dos presentes e inserir no banco
  Response.write arridLista(i)&"<BR>"
 id = request.form("id")
 idSeg = request.form("idSeg")
 idEmpr = request.form("idEmpr")
 exibir = request.form("exibir")
 dataAdd = year(now)&"/"&month(now)&"/"&day(now)
 horaAdd = time()
  Set cs_inserir = Server.CreateObject("ADODB.Recordset")
  cs_inserir.open "UPDATE SEGMENTOS SET id_Cliente ="&id&",id_segmento ="&idSeg&",id_empresa ="&idEmpr&",exibir='"&exibir&"',data_add='"&data_add&"',hora_add='"&hora_add&"' WHERE id = "&arridLista(i)&""
Next
End If

Obrigado,

[Mário Monteiro 179]

pode explicar o que esta ocorrendo de errado?

[Web Design Valdeci 0]

5369

 

ADODB.Recordset error '800a0e7d'

 

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

 

/adm/ExbirNomesEditarOk.asp, line 16

[Mário Monteiro 179]

qual a linha 16?

[Web Design Valdeci 0]

cs09.Source = "INSERT INTO LISTAS (id_empresa,id_segmento,id_cliente,data_add,hora_add) VALUES ("&arrPresentes(i)&","&segmentos&","&subcategorias&",'"&data_add&"','"&hora_add&"')"

 

[Mário Monteiro 179]

Não vi esta linha no código acima

 

Tem certeza que abriu esta conexão?

 

Escreva na tela o resultado da query que ta dando erro