RSS çekmem gerek.Yardım ?

Merhabalar;
Çok çok az asp biliyorum.

Dünya Gazetesi burada linkte bulunan Son Dakika rss'ini kendi sitem için çekmem gerek.

Asp bilen arkadaşlar yardımcı olurlarsa sevinirim.

Az asp biliyorum dediğine göre o rss'i veritabanına kaydetmen biraz zor olucak baya zaman alıcak bi iş çünkü ayrı tablolar oluşturman ve veritabanını değiştirmen gerekecek. o yüzden
Kategorilerin listelendiği dosyanda son dakika kategorisini if'li bi döngüde çağırıp rss okuma aparatınıda oraya ekleyerek okutmak istediğin rss adresini seçersin. yani Spor haberlerine girdiğinde bu rss ile çağırdığın haberler gelmez, sadece son dakikaya göre ayarlarsan tabi. kelime olarak pek anlatamamış olabilirim ama kodlarınıda paylaşamıcağına göre daha fazla yardım edebileceğimi zannetmiyorum. aspindir.com da rss okuma ile ilgili dosyalar ve dökümanlar bulabilirsin bazı ücretsiz haber sistemlerindede rss ile haber çekme var biraz zaman ayırıp ilgilenirsen eminim çözüceksindir.

<%
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
%>