Page 4 sur 4

<%

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
Set objLst = Server.CreateObject("Microsoft.XMLDOM")
Set objHdl = Server.CreateObject("Microsoft.XMLDOM")

'Flux RSS Source
fluxrss = "https://www.pcastuces.com/xml/pca_logitheque.xml"

objXML.setProperty "ServerHTTPRequest", true

objXML.async = False

'Lecture du flux distant
objXML.Load CStr(fluxrss)
If objXML.parseError.errorCode <> 0 Then
' Gestion des erreurs
End If

Set objLst = objXML.getElementsByTagName("item")
noOfHeadlines = objLst.length

'Début de la liste
response.write "<UL>"

'Boucle sur tous les éléments
For i = 0 To (noOfHeadlines-1)
Set objHdl = objLst.item(i)

response.write "<LI><a href=""" & objHdl.childNodes(2).text & """>"& objHdl.childNodes(0).text & "</a></LI>"

next

response.write "</UL>"

%>