Plusieurs flux RSS en ASP

Bonjour,
J'utilise un script ASP pour afficher un flux RSS dans mon site. Je n'arrive pas à trouver l'équivalent pour afficher plusieurs flux. Quelqu'un aurait-il une solution ?

Voici le code que j'utilise à ce jour :

<%
' Variables
Dim myRSSURL, myRSSDocument, myNews, mychannelNodes, entry, myChannelTitle, myChannelLink, myChannelDescription, 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://xxxxxxxxx.info/feed/"
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
end if
next ' next <channel> element


' Get elements <item>
set myitemNodes = myRSSDocument.selectNodes("//item/*")

DIM myNbrItem ' on peut aussi le declarer avec les autres au dessus
For each item in myitemNodes
if item.tagName = "title" then
myItemTitle = item.text
elseif item.tagName = "link" then
myItemLink = item.text
' Save all in myNews for displaying
if myNbrItem < 7 then ' Remplacer le chiffre pour savoir combien d'info afficher
myNews = myNews & "&bull; <a href='" & myItemLink & "' class=""newsTXT"" target=""_blank"">" & myItemTitle & "</a><br>"

else
' nothing to do
end if
myNbrItem = myNbrItem + 1
end if

next ' Next <item> element

' Liberate Nodes
set mychannelNodes = nothing
set myitemNodes = nothing


End If ' if no error

%>
<%
Response.write myNews
%>