Set rssOku = Server.CreateObject("MSXML2.FreeThreadedDOMDocumen t")
rssOku.async = False
rssOku.setProperty "ServerHTTPRequest", True
rssOku.Load("http://rss.gazetevatan.com/rss/gundem.xml")
Set ObjeListesi = rssOku.getElementsByTagName("item")
Set rssOku = Nothing
For i = 1 to 5
%>
<%=Obje.childNodes(1).Text%> <br />
<% Next
Set ObjeListesi = Nothing %>