<% 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 & "" strHTML = strHTML & "Courtesy : www.odisha.com : " For Each objItem In objItemList 'childNodes: 0=title, 1=link, 2=description strHTML = strHTML & "" strHTML = strHTML & "" & objItem.childNodes(0).text strHTML = strHTML & "  :  " Next strHTML = strHTML & ": For more news visit : www.odisha.com :" strHTML = strHTML & "" response.write strHTML End if Set objItemList = Nothing %>

IWg Lae

_ai IW@

ilZKe

agh Lae

IWge a

     PV _Z
 

_z\

@c KG

_eY _

~M~M

 

IWge a                    Cek

Z_^ Kce ^dK, eiy fe, W_Uc @` jc^UR G ii@f iA^i, R-78, eR ba^, @A@AU eeK, Cek-247667, caAf-09412928857, R^i^- b\K, IWg tapug@rediffmail.com
-------------------------------------------------------