Problemas Para Jogar Dados No Gráfico

[.Andreia.]

Pessoal,

estou usando o componente Chart Director, e esta aplicação é assim:

Um form onde o usuário informa o período (mês e ano) que quer ver os dados.

Existem 5 projetos e serao sempre mostrados os valores totais de cada, no grafico:

contador = 1
for contador = 1 to 5

sql_pesquisa = "select * from Lancamentos where month(vencimento) = "& mês & " and year(vencimento) = " & ano & " and codigo_projeto = " & contador
set tab_pesquisa = conexao_adm.Execute(sql_pesquisa)

valor_total = 0
while not tab_pesquisa.eof
valor_total = valor_total + tab_pesquisa("valor")
tab_pesquisa.movenext
    
wend
response.write valor_total & "<br>"
next

tá certinho a consulta, quando mando imprimir o valor_total tambem.. o problema é que não consigo jogar, desta forma, os valores no grafico:

<%
Set cd = CreateObject("ChartDirector.API")

'The data for the bar chart
data = Array(valor_total1, valor_total2)

'The labels for the bar chart
labels = Array("Projeto1", "Projeto2")

Neste trecho do grafico, onde está valor_total1 e valor_total2 na verdade precisa ser 5 valores (valor_total) respectivamente com Projeto1, Projeto2,...Projeto5

não sei se ficou meio confuso, mas o problema somente é na hora do gráfico... se alguém que manja do ChartDirector ou que possa dar um help, valeu

[JCMPJ]

Veja se funciona:

Dim arrTotais(4)

contador = 1

for contador = 1 to 5

    sql_pesquisa = "select * from Lancamentos where month(vencimento) = "& mes & " and year(vencimento) = " & ano & " and codigo_projeto = " & contador

    set tab_pesquisa = conexao_adm.Execute(sql_pesquisa)

    valor_total = 0

    while not tab_pesquisa.eof

          valor_total = valor_total + tab_pesquisa("valor")

          tab_pesquisa.movenext

          arrTotais(i-1) = valor_total

    wend

    response.write valor_total & "<br>"

next

Depois:

Set cd = CreateObject("ChartDirector.API")

'The data for the bar chart

data = Array(arrTotais(0), arrTotais(1), ..., arrTotais(4))

'The labels for the bar chart

labels = Array("Projeto1", "Projeto2", ..., "Projeto5")

...

%>