<%
Dim XML,sourceFile,strFakePayload
sourceFile = "http://rss.news.yahoo.com/rss/topstories#"
Set XML = Server.CreateObject("SOFTWING.AspTear")
strRetVal = XML.Retrieve(sourceFile, Request_GET, "", "", "")
set source = Server.CreateObject("Microsoft.XMLDOM")
source.async = false
source.loadxml(strRetVal)
If source.parseError.errorCode <> 0 Then
'handle the error
End If
Set objLst = source.getElementsByTagName("item")
intNoOfHeadlines = objLst.Length
Set Yahooprops = source.getElementsByTagName("channel")
Set Yahooimage = source.getElementsByTagName("image")
Response.Write(Yahooprops(0).childNodes(0).text & "
")
Response.Write(Yahooprops(0).childNodes(1).text & "
")
Response.Write(Yahooprops(0).childNodes(2).text & "
")
Response.Write(Yahooprops(0).childNodes(3).text & "
")
Response.Write(Yahooprops(0).childNodes(4).text & "
")
Response.Write(Yahooprops(0).childNodes(5).text & "
")
Response.Write(Yahooimage(0).childNodes(0).text & "
")
Response.Write(Yahooimage(0).childNodes(1).text & "
")
Response.Write(Yahooimage(0).childNodes(2).text & "
")
Response.Write(Yahooimage(0).childNodes(3).text & "
")
Response.Write(" & Yahooimage(0).childNodes(4).text & chr(34) & )
")
FOR counter=0 TO (intNoOfHeadlines - 1)
Set objHdl = objLst.item(counter)
Response.Write("" & objHdl.childNodes(0).text & " " & objHdl.childNodes(3).text & " " & objHdl.childNodes(4).text& _
"
")
%>
<%'= source.getElementsByTagName("title").item(counter).text %>
<%NEXT %>
|
|
<%
Set objLst = Nothing
Set objHdl = Nothing
Set Yahooprops = Nothing
Set Yahooimage = Nothing
set source = Nothing
set XML = Nothing
%>