Bonjours a tous
Je veux afficher sur mon site web le RSS de cet URL
[ Lien ]
Je me serre de ce code source en ASP que j’ai pris ici!
*******************************************************************
<%
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.ea.com/framework/_components/rss/rss.jsp?format=0&view=1&platform=xbl&playername=XGINGO&game=bfmc-console-2006&statGroups=%27gs%27%2C%27vs%27%2C%27ws%27%2C"
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>
Ca marche bien avec d’autre RSS mais celui la me cause bien des problème est-ce que quelqu’un peux me dire ou je fais une erreur
PS la source du RSS est généré automatique par le site [ Lien ]
Merci d’avance pour vos idéé
Gingo