Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Juliano Meinen

Subscrito fora do intervalo: '5'

Por , em ASP Clássico

Recommended Posts

Juliano Meinen    0

Juliano Meinen
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Juliano Meinen    0

Juliano Meinen
Postado

A linha do erro é a que tem esse código:

 

Set oChart = CreateObject("OWC11.ChartSpace")
Acho que tem alguma coisa a ver com o IIS, pq no Server 2000 roda beleza, mas no 2003 ñ !!!! Help-me .... =)

 

 

O q tá me deixando P da vida é essa mensagem:

 

ActiveX component can't create object: 'OWC11.ChartSpace'

 

Q é ???? como assim ñ criou !!! = (

Compartilhar este post

Link para o post
Compartilhar em outros sites

Wacko    0

Wacko
Postado

Não sei não hein.

Pra mim a linha 48 é essa aqui:

 

categories(vCat) = (rssit.Fields.Item("Situação jurídica").Value)

E essa mensagem "Subscrito fora do intervalo: '5'" geralmente aparece quando você tenta acessar um indice do array que não exite.

 

Por exemplo, observei que o array "categories" só tem 4 indices e você esta tentando acessar o 5 indice dele.

 

Coloca um on error resume next e acrescenta um response.write da seguinte forma:

 

While ((Repeat1__numRows <> 0) AND (NOT rssit.EOF)) 	 categories(vCat) = (rssit.Fields.Item("Situação jurídica").Value)	 If Err.Number <> 0 Then		  Response.Write ("vCat: " & vCat)		  Response.End	 End If	 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

Compartilhar este post

Link para o post
Compartilhar em outros sites

dimarcinho    0

dimarcinho
Postado

eh, se nao tiver o componente instalado ele não vai rodar!!!!!! hehehese for interno, algumas vezes, ele pode ter mudado a forma de chamar tb, mas normalmente qdo dah isso é pq o servidor não tem instaladotenta ver com o pessoal do suporte técnico!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito