|
||||
 |
||
<%
Response.Buffer = true
Response.ExpiresAbsolute = Now () - 1
Response.Expires = 0
Dim myRSSURL, myRSSDocument, myNews, mychannelNodes, entry, myChannelTitle, myChannelLink, myChannelDescription, myBase, myitemNodes, item, myitemTitle, myitemLink, myitempubDate, myitemDescription
myRSSURL=request("rssurl")
if Len(myRSSURL)=0 then
myRSSURL= "http://creanews.creation-lambert.com/?q=liste_articles_feed/flux1/revquad"
end if
set myRSSDocument = createObject("Msxml.DOMDocument")
myRSSDocument.async = false
myRSSDocument.setProperty "ServerHTTPRequest", true
myRSSDocument.load(myRSSURL)
If (myRSSDocument.parseError.errorCode <> 0) then
myNews = "XML error: " & myRSSDocument.parseError.reason
Else
set mychannelNodes = myRSSDocument.selectNodes("//channel/*")
for each entry in mychannelNodes
if entry.tagName = "title" then
myChannelTitle = entry.text
elseif entry.tagName = "link" then
myChannelLink = entry.text
elseif entry.tagName = "description" then
myChannelDescription = entry.text
myBase = myBase & "
" & myChannelTitle & "" myBase = myBase & "" & myChannelDescription & " " myBase = myBase & "" & "" end if next 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 myNews = myNews & " " & myItemTitle & "" myNews = myNews & myItemDescription myNews = myNews end if next set mychannelNodes = nothing set myitemNodes = nothing End If Response.write myNews %> |
||
 |