<% 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                         iC\ @ea

cR cK aR, `A^^ c^Re, iC\ @ea, `^-(03)8332548/ 8343410 `K- (03) 8350019, caAf-00-966-503612586R^i^- _ecji, aeaU, KUK, IWg, Acf-[email protected]
-------------------------------------------------------
gb gLe A, AR^de G Ufw, _.a-12061, \cc, iC\ @ea@, `^-966-502885734, R^ i^-a.R.a. ^Me, gUIe, ba^ge.
[email protected]
------------------------------------------------------------------------------------------------