supponiamo che ti colleghi ad una pagina asp/php che come otuput restituisca un rss in xml...
lo puoi parsare con uina tua pagina asp
codice:
<%
dim strError, strURL
strURL = "http://www.donimioesterno.com/pagina.asp"
dim xmlDom, nodeCol, oNode, oChildNode
set xmlDom = Server.CreateObject("MSXML2.Domdocument")
xmlDOM.async = False
call xmlDom.setProperty("ServerHTTPRequest", true)
xmlDom.async = false
call xmlDom.load(strURL)
if not xmlDom.documentElement is nothing then
set nodeCol = xmlDom.documentElement.selectNodes("channel/item")
ii = 1
Response.ContentType = ("text/xml" )
Response.Write("<?xml version='1.0' encoding='iso-8859-1'?>")
for each objNode in nodeCol
Response.Write("<item>")'& vbCrLf)
set oChildNode = objNode.selectSingleNode("pubDate")
if not oChildNode is nothing then
strPubDate = Server.HTMLEncode(oChildNode.text)
'strPubDate = replace(strPubDate, "'", "'")
'strPubDate = replace(strPubDate, "&", "&")
'strPubDate = replace(strPubDate, vbCrLf, "
")
' Response.Write("" & strPubDate & "
" & vbCrLf)
end if
set oChildNode = objNode.selectSingleNode("link")
if not oChildNode is nothing then
Response.Write("<url>" & oChildNode.text & "</url>")
strLink = "yes"
end if
set oChildNode = objNode.selectSingleNode("title")
if not oChildNode is nothing then
strTitle = Server.HTMLEncode(oChildNode.text)
'strTitle = replace(strTitle, "'", "'")
'strTitle = replace(strTitle, "&", "&")
'strTitle = replace(strTitle, vbCrLf, "
")
Response.Write("<title>" & strTitle & "</title>")
'Response.Write("<url>" & strLink & "</url>")
end if
' if strLink = "yes" then
' Response.Write("</item>" )'& vbCrLf)
' end if
ii = ii + 1
Response.Write("</item>")' & vbCrLf)
next
else
Response.Write(strError & vbCrLf)
end if
%>
poi da flash ti connetti a questa pagina che risiede sul tuo di dominio