GRAFICO + OWC.Chart

[Breno Luiz Braga 0]

Boa tarde a todos,

 

Seguinte galera, peguei ai na internet um script de gráficos que usa o OWC (Office Windows Components), para ser mais preciso o OWC.Chart, e funcionou legal enquanto estive testando aqui em casa, porém quando mandei para o servidor de hospedagem não funcionou.

 

Eu instalei lá no servidor isto:

 

http://www.microsoft.com/downloads/details...splaylang=pt-br

 

Mas ainda sim não adiantou.

 

Bom, se alguém já passou por isso e sabe resolver, ou sabe outra maneira de fazer gráficos pelo asp, por favor me ajude.

 

Obrigado.

[Eber de Mattos Camargo 0]

Manda o erro...

Verifique se o componente está instalado corretamento no servidor.

 

---- Exemplos_----

<% Set oChart = CreateObject("OWC10.ChartSpace") Set c = oChart.Constants oChart.Border.Color = c.chColorNone Dim categories(3), Vals(3), Vals2(3) 'crie um array que represente os valores da primeira série. Vals(0) = 5 Vals(1) = 15 Vals(2) = 25 Vals(3) = 35 'crie um array que represente os valores da segunda série. Vals2(0) = 35 Vals2(1) = 25 Vals2(2) = 15 Vals2(3) = 5 'gráfico de coluna com as duas séries e quatro categorias. 'crie um array que represente as categorias, as categorias serão as mesmas para as duas séries. categories(0) = "Brasil" categories(1) = "Japão" categories(2) = "EUA" categories(3) = "Portugal" With oChart 'adicionando um objeto do gráfico. .Charts.Add 'adicionando o tipo do gráfico. .Charts(0).Type = oChart.Constants.chChartTypeColumn3d 'adicionando a primeira série ao gráfico. .Charts(0).SeriesCollection.Add 'ajustando o subtítulo da série (o texto da legenda). .Charts(0).SeriesCollection(0).Caption = "Terremoto" 'adicionando as categorias e os valores da primeira série. .Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories .Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Vals End With 'adicionando a segunda série ao gráfico, legenda, categorias e valores. With oChart .Charts(0).SeriesCollection.Add .Charts(0).SeriesCollection(1).Caption = "Chuva" .Charts(0).SeriesCollection(1).SetData c.chDimCategories, c.chDataLiteral, Categories .Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, Vals2 .Charts(0).HasLegend = True .Charts(0).HasTitle = True End With Response.Expires = 0 Response.Buffer = true Response.Clear Response.ContentType = "image/gif" 'ajustando o tamanho do gráfico (figura). Response.BinaryWrite oChart.GetPicture("gif",650, 450) %>