Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Alguém sabe me dizer que erro é esse:
Informações técnicas (para a equipe de suporte)
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A0009)
Subscrito fora do intervalo: '5'
/consultas/graficopizza1.asp, line 48
O código é o seguinte:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><!--#include file="../Connections/DAFSTI001.asp" --><%Dim rssitDim rssit_numRowsSet rssit = Server.CreateObject("ADODB.Recordset")rssit.ActiveConnection = MM_DAFSTI001_STRINGrssit.Source = "select * from V_QuadroEntrada"rssit.CursorType = 0rssit.CursorLocation = 2rssit.LockType = 1rssit.Open()rssit_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0rssitnumRows = rssit_numRows + Repeat1__numRows%><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Untitled Document</title><link href="css/basico.css" rel="stylesheet" type="text/css"></head><body><%Set oChart = CreateObject("OWC11.ChartSpace") <<<<< ================= (LINHA DO ERRO)Set c = oChart.ConstantsoChart.Border.Color = c.chColorNoneDim categories(4), Vals(4), Vals2(4), vCat, vValor vCat = 0vValor = 0 While ((Repeat1__numRows <> 0) AND (NOT rssit.EOF)) categories(vCat) = (rssit.Fields.Item("Situação jurídica").Value) Vals(vValor) =(rssit.Fields.Item("Nº de terras nesta situação atualmente").Value) Vals2(vValor) =(rssit.Fields.Item("Nº de terras que já cumpriram esta fase").Value) Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 vCat = VCat + 1 vValor = vValor + 1 rssit.MoveNext()Wend' críe um array que represente os valores da primeira série. 'Vals(0) = 5'Vals(1) = 15'Vals(2) = 25'Vals(3) = 35' críe 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. ' críe 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 = "Situação atual"' 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, ValsEnd With' adicionando a segunda série ao gráfico, legenda, categorias e valores.With oChart.Charts(0).SeriesCollection.Add.Charts(0).SeriesCollection(1).Caption = "Finalizada".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 = TrueEnd WithResponse.Expires = 0Response.Buffer = trueResponse.ClearResponse.ContentType = "image/gif"'ajustando o tamanho do gráfico (figura).Response.BinaryWrite oChart.GetPicture("gif",420, 250)%><% Set objPieChart = Nothing %><%rssit.Close()Set rssit = Nothing%> </body></html>Grato ... http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif
Carregando comentários...
