Problemas com ler alguns rss

[Elbrinner 0]

O codigo abaixo não consegue ler esse rss:http://jc.uol.com.br/rss/rss_229.xml mais sim esse http://globoesporte.globo.com/ESP/Noticia/...AS0-4284,00.xml a estrutura é bem parecida.

 

Alguem sabe me dizer pq?

 

 

<% ' =========== RSS2HTML.ASP for ASP/ASP.NET ========== ' copyright 2005 (c) www.Bytescout.com ' ===============================================  ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### URLToRSS = "http://jc.uol.com.br/rss/rss_229.xml"  ' ##### max number of displayed items ##### MaxNumberOfItems = 20  ' ##### Main template constants MainTemplateHeader = "<table>" MainTemplateFooter = "</table>" ' #####   ' ##### Item template. ' ##### {LINK} will be replaced with item link ' ##### {TITLE} will be replaced with item title ' ##### {DESCRIPTION} will be replaced with item description ItemTemplate = "<tr><td><a href=" & """{LINK}""" &" target=_blank class=Estilo1>{TITLE}</a><BR>{DESCRIPTION}</td></tr>"  ' ##### Error message that will be displayed if not items etc ErrorMessage = "Ocorreu um erro no processo " &URLToRSS & "<BR>Por favor avise ao webmaster"  ' ================================================  Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0") xmlHttp.Open "Get", URLToRSS, false xmlHttp.Send() RSSXML = xmlHttp.ResponseText  Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0") xmlDOM.async = false xmlDOM.LoadXml(RSSXML)  Set xmlHttp = Nothing ' clear HTTP object  Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS Set xmlDOM = Nothing ' clear XML  RSSItemsCount = RSSItems.Length-1  ' writing Header if RSSItemsCount > 0 then   Response.Write MainTemplateHeader End If  j = -1  For i = 0 To RSSItemsCount Set RSSItem = RSSItems.Item(i)   for each child in RSSItem.childNodes   Select case lcase(child.nodeName)	 case "title"		   RSStitle = child.text	 case "link"		   RSSlink = child.text	 case "description"		   RSSdescription = child.text		   	      End Select  next   j = J+1   if J<MaxNumberOfItems then     ItemContent = Replace(ItemTemplate,"{LINK}",RSSlink)    ItemContent = Replace(ItemContent,"{TITLE}",RSSTitle)  Response.Write Replace(ItemContent,"{DESCRIPTION}",RSSDescription)  ItemContent = ""  End if  Next  ' writing Footer if RSSItemsCount > 0 then   Response.Write MainTemplateFooter else   Response.Write ErrorMessage End If  ' Response.End ' uncomment this line if you need to finalize output%>

[ska_ska 0]

q erro?

[Elbrinner 0]

Alguns ler e outros não.os que não ler cai na menssagem:ErrorMessage = "Ocorreu um erro no processo " &URLToRSS & "<BR>Por favor avise ao webmaster"