<% 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/flux2/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 %>