Erro: "runtime error '800a0009'"

[marcelinho 0]

Fala Galera blzera?seguinte...eu to mexendo em um codigo aqui que esta dando o seguinte erro:

Microsoft VBScript runtime error '800a0009'Subscript out of range: '2'/adrenaclick.asp, line 52

olha meu codigo:

<%		Int_ID_Secao = 7			dim matAdrena()				Str_SQL_Cmd = "SELECT * FROM vwLettera_Conteudo " &_		" WHERE idcliente = " & cINT(Application("bknd_id")) &_		 " and ativo = 'S' and idsecao = " & Int_ID_Secao & " ORDER BY datapublicacao desc"		Set rsAdrena = Session("Conn").Execute(Str_SQL_Cmd)				i=0		While not rsAdrena.EOF		   redim preserve matAdrena(4,i)			 matAdrena(0,i) = rsAdrena("id")			 matAdrena(1,i) = rsAdrena("arquivo")			 matAdrena(2,i) = rsAdrena("assunto")			 matAdrena(3,i) = rsAdrena("manchete")			 matAdrena(4,i) = rsAdrena("idsecao")		i=i+1		rsAdrena.MoveNext		Wend%><%for j=0 to i-1%>					<%k = j mod 2%>					<%if cINT(k) = 0 then%>					<tr align="left" valign="top">					<%end if%>					  <td width="99" height="158"><img src="dbimagens/<%=matAdrena(1,j)%>" alt="<%=matAdrena(2,j)%>" width="90" height="90"></td>					  <td width="138"><font class="titulo"><%=matAdrena(2,j)%></font><br>						<font class="texto"><br>						<br>						<%=matAdrena(3,j)%></font></td>					<%if cINT(k) = 1 then%>					</tr>					<%end if%>				<%next%>

a linha 52 é essa:

<td width="99" height="158"><img src="dbimagens/<%=matAdrena(1,j)%>" alt="<%=matAdrena(2,j)%>" width="90" height="90"></td>

pq sera que ta dando esse erro bobo?valeu ate agora galeraaaaaaa

[marcelinho 0]

eu olhei olhei e nao consigo ver o subscrito fora do intervalo

[marcelinho 0]

nao resolveu!!eu sei o pq do subscrito mais nao sei onde ele ta deixando fora...e esta tudo certinho pensei que alguem pudesse me abrir os olhos!!

[Salgado 4]

Também não visualizei o motivo, mas tente usar esse:

<%
Int_ID_Secao = 7	
dim matAdrena()

Str_SQL_Cmd = "SELECT * FROM vwLettera_Conteudo " &_
	" WHERE idcliente = " & cINT(Application("bknd_id")) &_
	 " and ativo = 'S' and idsecao = " & Int_ID_Secao & " ORDER BY datapublicacao desc"
Set rsAdrena = Session("Conn").Execute(Str_SQL_Cmd,Totais)

i=Totais
redim preserve matAdrena(4,i)

While not rsAdrena.EOF
	matAdrena(0,i) = rsAdrena("id")
	matAdrena(1,i) = rsAdrena("arquivo")
	matAdrena(2,i) = rsAdrena("assunto")
	matAdrena(3,i) = rsAdrena("manchete")
	matAdrena(4,i) = rsAdrena("idsecao")
	rsAdrena.MoveNext
Wend
%>

<%for j=0 to i-1%>
<%k = j mod 2%>
<%if cINT(k) = 0 then%>
<tr align="left" valign="top">
<%end if%>
				  <td width="99" height="158"><img src="dbimagens/<%=matAdrena(1,j)%>" alt="<%=matAdrena(2,j)%>" width="90" height="90"></td>
				  <td width="138"><font class="titulo"><%=matAdrena(2,j)%></font><br>
					<font class="texto"><br>
					<br>
<%=matAdrena(3,j)%></font></td>
<%if cINT(k) = 1 then%>
				</tr>
<%end if%>
<%next%>

[marcelinho 0]

nem deu certodeu o seguinte erro agora:Microsoft VBScript runtime error '800a0009'Subscript out of range: '-1'/adrenaclick.asp, line 13

[Mário Monteiro 179]

antes desta linha do erro poe um response.write Jpara descobrir qual o valor de J que dá erro...pois aparentemente está claro que algum valor sai do intervalo...apesar que no olho eu não achei onde é não...

[marcelinho 0]

entao é o seguinte ele puxa os dois dados que eu cadastrei mais dai nao sei pq ele entra no for dinovo pra proucurar o 3 é ai que sai do intervalo pq nao existe esse 3 dado

[Mário Monteiro 179]

entao é o seguinte ele puxa os dois dados que eu cadastrei mais dai nao sei pq ele entra no for dinovo pra proucurar o 3 é ai que sai do intervalo pq nao existe esse 3 dado

não entendi tambem o motivoda uma contralada no valor do I naquele loop que tem algo errado neste loop então pois ta passando do que deveria e o erro acaba aparecendo lá embaixo e pode ser lá em cima a origem...