|
<% Dim objXML Dim objItemList Dim objItem Dim strHTML Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") objXML.async = False objXML.setProperty "ServerHTTPRequest", True objXML.Load("http://www.odisha.com/rss/rss.xml") If objXML.parseError.errorCode <> 0 Then Response.Write "No news feed is available!" Else Set objItemList = objXML.getElementsByTagName("item") Set objXML = Nothing strHTML = "" strHTML = strHTML & "" response.write strHTML End if Set objItemList = Nothing %> |
|