<%
Adres = "http://www.dunya.com/rss_dunya.asp?id=9"

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load(Adres)
Set objRoot = objXML.documentElement
Set objItems = objRoot.getElementsByTagName("item")

Dim objItem
For Each objItem in objItems


HaberBaslik = objItem.selectSingleNode("title").Text
HaberDetay = objItem.selectSingleNode("description").Text

Response.Write(HaberBaslik)
Response.Write("<br>")
Response.Write(HaberDetay)
Response.Write("<hr>")

Next
%>