- <%
- Option Explicit
- Response.Buffer = true
- Response.ExpiresAbsolute = Now () - 1
- Response.Expires = 0
- %>
-
- <%
- '-----------------------------------------------------------------------------
- ' Name : ASPRSSReader.asp
- ' Description : very sample RSS Reader in ASP
- ' Company : ITCom3
- ' Modify by : Pierre Rouarch
- ' Date : March, 27, 2004
- '--------------------------------------------------------------------------------
- %>
-
- <%
- ' Variables
- Dim myRSSURL, myRSSDocument, myNews, mychannelNodes, entry, myChannelTitle, myChannelLink, myChannelDescription, myBase, myitemNodes, item, myitemTitle, myitemLink, myitempubDate, myitemDescription
-
-
- ' get RSS Address e.g : http://www.mysite.com/ASPRSSReader.asp?rssurl=http://www.rsssite.com/rssfile
- myRSSURL=request("rssurl")
- if Len(myRSSURL)=0 then
- ' Change with your default RSS URL
- myRSSURL = "http://www.u-blog.net/itcom3/rss"
- end if
-
- ' Load RSS file
- set myRSSDocument = createObject("Msxml.DOMDocument")
- myRSSDocument.async = false
- myRSSDocument.setProperty "ServerHTTPRequest", true
- myRSSDocument.load(myRSSURL)
-
- ' Check if it 's loaded
- If (myRSSDocument.parseError.errorCode <> 0) then
- ' Save error in myNews for displaying
- myNews = "XML error: " & myRSSDocument.parseError.reason
- ' Continue if OK
- Else
-
- 'Get elements <channel>
- set mychannelNodes = myRSSDocument.selectNodes("//channel/*")
-
- for each entry in mychannelNodes ' Normaly one Channel
- if entry.tagName = "title" then
- myChannelTitle = entry.text
- elseif entry.tagName = "link" then
- myChannelLink = entry.text
- elseif entry.tagName = "description" then
- myChannelDescription = entry.text
- ' Save all in myBase for displaying
- myBase = myBase & "<h1>" & myChannelTitle & "</h1>"
- myBase = myBase & "<p>" & myChannelDescription & "</p>"
- myBase = myBase & "<p><a href='" & myChannelLink & "'>" & myChannelTitle & "</a></p>" & "<hr>"
- end if
- next ' next <channel> element
-
-
- ' Get elements <item>
- set myitemNodes = myRSSDocument.selectNodes("//item/*")
-
- For each item in myitemNodes
- if item.tagName = "title" then
- myItemTitle = item.text
- elseif item.tagName = "link" then
- myItemLink = item.text
- elseif item.tagName = "pubDate" then
- myItempubDate = item.text
- elseif item.tagName = "description" then
- myItemDescription = item.text
- ' Save all in myNews for displaying
- myNews = myNews & myItempubDate & "<br>"
- myNews = myNews & "<h2>" & myItemTitle & "</h2>"
- myNews = myNews & "<p>" & myItemDescription & "</p>"
- myNews = myNews & "<p><a href='" & myItemLink & "'>" & myItemTitle & "</a></p>" & "<hr>"
- end if
-
-
-
- next ' Next <item> element
-
- ' Liberate Nodes
- set mychannelNodes = nothing
- set myitemNodes = nothing
-
-
- End If ' if no error
-
- %>
-
-
- <html>
- <head>
- <title>Very Sample RSS Reader in ASP</title>
- <meta http-equiv="Content-Type" content="text/html charset=iso-8859-1">
- </head>
- <body>
-
-
- <%
- Response.write myBase
- Response.write myNews
- %>
-
- </body>
- </html>
-
-
<%
Option Explicit
Response.Buffer = true
Response.ExpiresAbsolute = Now () - 1
Response.Expires = 0
%>
<%
'-----------------------------------------------------------------------------
' Name : ASPRSSReader.asp
' Description : very sample RSS Reader in ASP
' Company : ITCom3
' Modify by : Pierre Rouarch
' Date : March, 27, 2004
'--------------------------------------------------------------------------------
%>
<%
' Variables
Dim myRSSURL, myRSSDocument, myNews, mychannelNodes, entry, myChannelTitle, myChannelLink, myChannelDescription, myBase, myitemNodes, item, myitemTitle, myitemLink, myitempubDate, myitemDescription
' get RSS Address e.g : http://www.mysite.com/ASPRSSReader.asp?rssurl=http://www.rsssite.com/rssfile
myRSSURL=request("rssurl")
if Len(myRSSURL)=0 then
' Change with your default RSS URL
myRSSURL = "http://www.u-blog.net/itcom3/rss"
end if
' Load RSS file
set myRSSDocument = createObject("Msxml.DOMDocument")
myRSSDocument.async = false
myRSSDocument.setProperty "ServerHTTPRequest", true
myRSSDocument.load(myRSSURL)
' Check if it 's loaded
If (myRSSDocument.parseError.errorCode <> 0) then
' Save error in myNews for displaying
myNews = "XML error: " & myRSSDocument.parseError.reason
' Continue if OK
Else
'Get elements <channel>
set mychannelNodes = myRSSDocument.selectNodes("//channel/*")
for each entry in mychannelNodes ' Normaly one Channel
if entry.tagName = "title" then
myChannelTitle = entry.text
elseif entry.tagName = "link" then
myChannelLink = entry.text
elseif entry.tagName = "description" then
myChannelDescription = entry.text
' Save all in myBase for displaying
myBase = myBase & "<h1>" & myChannelTitle & "</h1>"
myBase = myBase & "<p>" & myChannelDescription & "</p>"
myBase = myBase & "<p><a href='" & myChannelLink & "'>" & myChannelTitle & "</a></p>" & "<hr>"
end if
next ' next <channel> element
' Get elements <item>
set myitemNodes = myRSSDocument.selectNodes("//item/*")
For each item in myitemNodes
if item.tagName = "title" then
myItemTitle = item.text
elseif item.tagName = "link" then
myItemLink = item.text
elseif item.tagName = "pubDate" then
myItempubDate = item.text
elseif item.tagName = "description" then
myItemDescription = item.text
' Save all in myNews for displaying
myNews = myNews & myItempubDate & "<br>"
myNews = myNews & "<h2>" & myItemTitle & "</h2>"
myNews = myNews & "<p>" & myItemDescription & "</p>"
myNews = myNews & "<p><a href='" & myItemLink & "'>" & myItemTitle & "</a></p>" & "<hr>"
end if
next ' Next <item> element
' Liberate Nodes
set mychannelNodes = nothing
set myitemNodes = nothing
End If ' if no error
%>
<html>
<head>
<title>Very Sample RSS Reader in ASP</title>
<meta http-equiv="Content-Type" content="text/html charset=iso-8859-1">
</head>
<body>
<%
Response.write myBase
Response.write myNews
%>
</body>
</html>