I am trying to make a simple page display a rss news feed.. I don't want the
web server to connect to remote site because it doesn't work. I want the
client to do it because my web server is behind a proxy (Tried proxycfg.exe
on web server with no success)
I am going nuts.. something that should be so simple for me...
The following will just not work and I give up.. so now I want client side
code (Unless someone can fix my problem):
ALWAYS Give's me
msxml3.dll error '800c0005'
The system cannot locate the resource specified.
/readnews.asp, line 12
SOURCE ---
<%
response.write "WOW!<br>"
Call getNews(10)
response.write "<BR>WOW!"
'http://www.redbooks.ib m.com/rss/xseries.xml
Sub getNEWS(howMany Results)
myRSSfile = "http://www.redbooks.ib m.com/rss/xseries.xml"
Set xmlHttp = Server.CreateOb ject("MSXML2.XM LHTTP")
xmlHttp.Open "Get", myRSSfile, false
xmlHttp.Send()
myXML = xmlHttp.Respons eText
Set xmlResponse = Server.CreateOb ject("MSXML2.Do mDocument")
xmlResponse.asy nc = false
' oxml.setPropert y "ServerHTTPRequ est", true
xmlResponse.Loa dXml(myXML)
Set xmlHttp = Nothing
Set objLst = xmlResponse.get ElementsByTagNa me("item")
Set xmlResponse = Nothing
intNoOfHeadline s = objLst.length -1
For i = 0 To (intNoOfHeadlin es)
Set objHdl = objLst.item(i)
for each child in objHdl.childNod es
Select case lcase(child.nod eName)
case "title"
title = child.text
case "link"
link = child.text
case "descriptio n"
description = child.text
'You can also use the following:
author,category ,comments,enclo sure,guid,pubDa te,source
End Select
next
kk = kk+1
if kk < howManyresults+ 1 then
Response.Write "<br /><a href=""" & link & """>" & title & "</a> <br> "
& description
end if
Next
End Sub
%>
%>
End News.
