<%
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/flux4/combas"
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 & "
" & myChannelTitle & "
" & "
"
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
%>
