estou com o seguinte problema...
Tô fazendo um box de download para inserir na minha página, só que está dando o seguinte problema:
Num outro box de notícias que fiz, funcionou com todas as fontes só que esse num quer ir... Suponho eu que não seja problema da fonte, pois o mesmo exibe normalmente no Feed q tem aki....
.
.
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário: 'tituloDown.Item(...)'
/telos/box.downloads.asp, line 17
.
.
.
<% 'Defino os vetores a serem utilizado
Dim boxTituloDown(5),boxLinkDown(5),boxDescDown(5)
X = 0 'Cria contador X - PARA USO FUTUTO(DESCONSIDERAR)
Set xmlDown = Server.CreateObject("Microsoft.XMLHTTP")
'Digamos q nossa fonte de pesquisa é essa...
xmlDown.Open "GET", "http://www.gratis.com.br/rss", False
xmlDown.Send
Set objXMLDown = xmlDown.responseXML
Set tituloDown = objXMLDown.getElementsByTagName("title")
Set urlDown = objXMLDown.getElementsByTagName("link")
Set descDown = objXMLDown.getElementsByTagName("description")
'Insere os dados nos vetores
'A partir do 2, pois o 1 normalmente fica o titulo e a página do RSS
For I = 2 to 3
boxTituloDown(X) = Mid(tituloDown.Item(I).Text,1,25) & "..."
boxDescDown(X) = Mid(descDown.Item(I).Text,1,100) & "..."
boxLinkDown(X) = urlDown.Item(I).Text
X = X + 1 'PARA USO FUTUTO(DESCONSIDERAR)
Next
'Mata todos os campos de pesquisa
Set tituloDown = Nothing
Set urlDown = Nothing
Set descDown = Nothing
Set xmlNews = Nothing
Set objXMLNews = Nothing %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% For I = 1 to X-2 %>
<tr><td class="pequeno"><a href="redirect.asp?<%=boxLinkDown(I)%>" target="_blank"><b><%=boxTituloDown(I)%></b></a></td></tr>
<tr><td class="pequeno"><a href="redirect.asp?<%=boxLinkDown(I)%>" target="_blank"><font color="#000000"><%=boxDescDown(I)%></font></a></td></tr>
<tr><td><img src="imagens/layout/padrao/spacer.gif" width="3" height="3"></td></tr>
<tr><td><img src="imagens/layout/padrao/spacer.cinza.gif" width="100%" height="1"></td></tr>
<tr><td><img src="imagens/layout/padrao/spacer.gif" width="5" height="5"></td></tr>
<% Next %>
<tr><td class="pequeno"><a href="redirect.asp?<%=boxLinkDown(I)%>" target="_blank"><b><%=boxTituloDown(I)%></b></a></td></tr>
<tr><td class="pequeno"><a href="redirect.asp?<%=boxLinkDown(I)%>" target="_blank"><font color="#000000"><%=boxDescDown(I)%></font></a></td></tr>
</table>
