Hi all,
I am very new to Reddot. What I am trying to do is fetch the RSS feeds
of a third party site and show the titles with link in our site. So, I
started testing a simple ASP code inside the IoRangePreExecute tags.
the below code worked fine.
<!IoRangePreExecute>
<%
Dim strMessage
strMessage = "Test begins here<br/>Testing ASP<br/>"
Response.Write (strMessage)
Response.Write ("<br>Testing HTML code here <br/>")
Response.Write ("The time on the server is: " & Time())
%>
<!/IoRangePreExecute>
Then I googled and found the below code similar to my requirement
<!IoRangePreExecute>
<%
Dim objHTTP ' this object is used to call the RSS Feed remotely
Dim RSSURL,RSSFeed ' these variables hold the URL and Content for the
RSS Feed
Dim xmlRSSFeed ' this variable hold the XML data in a DOM Object
Dim objItems,objItem, objChild ' these variables are used to
temporarily hold data from the various RSS Items
Dim title,description,link ' these are local variables that will hold
the data to be displayed
Dim OutputHTML_1,OutputHTML_2,OutputHTML_3 ' these variables will hold
the HTML that was converted from the RSS Feed
' change the RSSURL variable to the exact URL of the RSS Feed you want
to pull
RSSURL = "http://news.google.com/news?
pz=1&cf=all&ned=in&hl=en&output=rss"
' this code requests the raw RSS/XML and saves the response as a
string <RSSFeed>
Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
objHTTP.open "GET",RSSURL,false
objHTTP.send
RSSFeed = objHTTP.responseText
' this code takes the raw RSSFeed and loads it into an XML Object
Set xmlRSSFeed = Server.CreateObject("MSXML2.DomDocument.4.0")
xmlRSSFeed.async = false
xmlRSSFeed.LoadXml(RSSFeed)
' this code disposes of the object we called the feed with
Set objHTTP = Nothing
' this is where you determine how to display the content from the RSS
Feed
' this code grabs all the "items" in the RSS Feed
Set objItems = xmlRSSFeed.getElementsByTagName("item")
' this code disposes of the XML object that contained the entire feed
Set xmlRSSFeed = Nothing
' loop over all the items in the RSS Feed
For x = 0 to objItems.length - 1
' this code places the content from the various RSS nodes into local
variables
Set objItem = objItems.item(x)
For Each objChild in objItem.childNodes
Select Case LCase(objChild.nodeName)
Case "title"
title = objChild.text
Case "link"
link = objChild.text
Case "description"
description = objChild.text
End Select
Next
' Here are some various display samples.
Response.Write ("<a href=""" & link & """>" & title & "</a><br />" &
description & "<br /><br />")
Next
%>
<!/IoRangePreExecute>
Once I publish the above code on our stage server, I am getting email
saying
-------------------------
Errors:
RequestPageFromPageBuilder: Page 1024, Pagebuilder send:
BuildPage_PreExecute: The remote server returned an error: (500)
Internal Server Error.
-------------------------
not sure what might be causing this error. So, I modified the above
code to see where the error actually getting started. I removed almost
most of the lines and here is the code I tried:
<!IoRangePreExecute>
<%
Dim objHTTP ' this object is used to call the RSS Feed remotely
Dim RSSURL,RSSFeed ' these variables hold the URL and Content for the
RSS Feed
Dim xmlRSSFeed ' this variable hold the XML data in a DOM Object
Dim objItems,objItem, objChild ' these variables are used to
temporarily hold data from the various RSS Items
Dim title,description,link ' these are local variables that will hold
the data to be displayed
Dim OutputHTML_1,OutputHTML_2,OutputHTML_3 ' these variables will hold
the HTML that was converted from the RSS Feed
' change the RSSURL variable to the exact URL of the RSS Feed you want
to pull
RSSURL = "http://news.google.com/news?
pz=1&cf=all&ned=in&hl=en&output=rss"
' this code requests the raw RSS/XML and saves the response as a
string <RSSFeed>
Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
%>
<!/IoRangePreExecute>
In the above code, I only have objHTTP object is getting initialized.
For this piece of code itself I am getting the same error as shown
below:
-------------------------
Errors:
RequestPageFromPageBuilder: Page 1024, Pagebuilder send:
BuildPage_PreExecute: The remote server returned an error: (500)
Internal Server Error.
-------------------------
It would be great if someone help me on this.
Thanks :)
--
You received this message because you are subscribed to the Google Groups
"RedDot CMS Users" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to
[email protected].
For more options, visit this group at
http://groups.google.com/group/reddot-cms-users?hl=en.
