4 replies to this topic

[telosonline]

Olá,
estou com o seguinte problema...
Tô fazendo um box de download para inserir na minha página, só que está dando o seguinte problema:

.
.
.
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário: 'tituloDown.Item(...)'
/telos/box.downloads.asp, line 17
.
.
.

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...

<% '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>

[Maracuja]

Qual é a linha 17 no seu codigo???

[telosonline]

é esse:

  boxTituloDown(X) = Mid(tituloDown.Item(I).Text,1,25) & "..."

só que eh com alguns q dah isso... outros naum... agora num sei se eh problema do código RSS/XML deles...

abração ...

[jonasmelofilho]

Cara precisa ver o arquivo XML, pois esse codigo funcionou com o RSS da FOLHA.

Talvez o RSS não tenha o parametro "TagName("title")"

Set tituloDown = objXMLDown.getElementsByTagName("title")
Set urlDown = objXMLDown.getElementsByTagName("link")
Set descDown = objXMLDown.getElementsByTagName("description")

VEJA NAS TAGS DO RSS se há a tag title.

[telosonline]

Existe esta tag sim... o que eu naum entendo eh que em algum rss, funciona, e em outros não... já tentei vários tipos de looping... só que mesmo assim segue a rotinha, alguns funciona e outros não...

Não sei se serve, ou se não tem a ver, mais no site Feed Validator vi que aparece os seguintes erros:

Sorry
This feed does not validate.

• Feeds should not be served with the "text/html" media type
  
  
• Your feed appears to be encoded as "ISO-8859-1", but your server is reporting "US-ASCII"
  
  
• line 140, column 91: Undefined description element: font
  ...  As novidades você só encontra aqui! :: <font color='red'>Agora o Skype  ...
  ---------------------------------------------------^

o que pertuba ainda mais , eh que em todos os leitores rss que tem aki ele funcionou tranquiliamente...

Em anexo segue o código do RSS....
Baixe ele com um Download Manager, ou clique com o botão direito do mouse e clique "Salvar destino como..." e renomeie ele para .txt (caso venha com a extenção .cdf)...

Um abraço!

Attached Files

•  rss.txt   11.4KB   22 downloads

Edição feita por: telosonline, 15/11/2005, 21:07.