Array com dados do BD

[kania 0]

Pessoal, bom dia,

 

Estou tentando pegar valores vindo do BD e montar um Array para depois utilizar eles em um select, tentei fazer assim

 

Preciso que os valores venham assim 1,2,3,4,5 separados por virgula

 

ArrId = split(Rs("id_cadastro"), ",")
for i = 0 to UBound(ArrId)
Session("ArrIds") = ArrId(i)
next

A idéia é chamar o Session("ArrIds") em um select depois

 

WHERE facilidades_anunciantes.id_anunciante in ('"&Session("ArrIds")&"')"

Porem ele não está pegando todos os valores, todos os Id's, pega somente o último.

 

Obs. O código esta dentro do loop do select anterior que traz os ID's

[saloeric 1]

tem que armazenar ao passar no loop

ArrId = split(Rs("id_cadastro"), ",")
for i = 0 to UBound(ArrId)
Session("ArrIds") = Session("ArrIds") & ArrId(i) & ","
next

[kania 0]

Esta dando o seguinte erro fera:

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'
Tipos incompatíveis
/iaki2010/lista_categorias.asp, linha 300

Então na verdade o que eu to tentando fazer é pegar todos os ids encontrados no select e armazenar da seguinte forma

 

1,5,53,76,97

 

Porque dai depois eu só chamo ele em outro select com o comando IN

 

Tem com fazer, não sei se no array é possível ou vai dar certo porque o na hora que eu armazeno ele esta dentro de While do select antigo, então teria que guardar mais ou menos assim

 

Session("ArrId") = "1,5,53,76,97" (a resposta seria algo assim), enm sei se tem algum jeito de colcoar desta forma

[saloeric 1]

que linha é que tá a dar erro?

[xanburzum 169]

tenta converter ele para Inteiro

Este erro geralmente vem porque você tem a sintaxe ASP ruim que leva a crer que você está tentando usar uma função como uma matriz, ou uma seqüência como uma função.