[Resolvido] Problema com vetor

[danyort]

Gente, estou usando o seguinte código:

set rsgd = con.execute("select count(codigo) as totd from ligacoes")
totd = rsgd("totd")

Dim arrCategorias(), arrVal()

set rsg1 = con.execute("SELECT duvida, Count(codigo) AS COC FROM Ligacoes GROUP BY duvida ORDER BY duvida")

y = 0
do while not rsg1.eof
    arrVal(y) = (rsg1("COC") * 100) / totd
    arrCategorias(y) = rsg1("duvida")
    y = y + 1
    rsg1.movenext
loop

E está me retornando o seguinte erro:

Subscrito fora do intervalo

/agenda/aplicacao/ligacoes_graficos.asp, line 37

A linha 37 é essa:

arrVal(y) = (rsg1("COC") * 100) / totd

Não estou conseguindo, de maneira alguma, identificar o problema.

Alguém tem alguma luz para me dar??

[danyort]

Achei que tivesse solucionado, mas não.... :(

Editado Fevereiro 21, 2008 por danyort

[Thiago Airold Perez]

Ola Boa tarde,

tente fazer desta forma

set rsgd = con.execute("select count(codigo) as totd from ligacoes")

totd = rsgd("totd")

Dim arrCategorias(), arrVal()

set rsg1 = con.execute("SELECT duvida, Count(codigo) AS COC FROM Ligacoes GROUP BY duvida ORDER BY duvida")

y = 0

do while not rsg1.eof

'aqui você vai montar uma variavem com todos os dados separados por virgula

var_val = var_val & (rsg1("COC") * 100) / totd & ","

var_categ = var_categ & rsg1("duvida") & ","

rsg1.movenext

loop

'abaixo separamos para que você possa usar o array

var_val = Split(var_val, ",", -1, 1)

var_categ = Split(var_categ, ",", -1, 1)

'agora já pode usar como queria

'var_val(0) exibe o primeiro valor - var_val(1) exibe o segundo e assim por diante

Espero ter ajudado!!

Editado Fevereiro 21, 2008 por Thiago Airold Perez

[danyort]

Valeu!!!!!!!!!

Deu certinho....