Ahmet Korkut Tahaoğlu

Aşağıdaki kodlar ile NTVMSNBC‘den haberleri XML methoduyla çekebilirsiniz.

NTVMSNBC‘e ait tüm RSS adreslerine bu adresten ulaşabilirsiniz: http://www.ntvmsnbc.com/id/24939559

Benim kodlar içerisinde kullandığım RSS adresi, NTV teknoloji haberleri bölümüne aittir.

<%
TheFeed = “http://www.ntvmsnbc.com/id/24927532/device/rss/rss.xml”

Set objXML = Server.CreateObject(“Microsoft.XMLDOM”)

objXML.Async = False

objXML.SetProperty “ServerHTTPRequest”, True

objXML.ResolveExternals = True

objXML.ValidateOnParse = True

objXML.Load(TheFeed)

CellCount = 0

If (objXML.parseError.errorCode = 0) Then

Set objRoot = objXML.documentElement

If IsObject(objRoot) = False Then

Response.Write “İşlem başarısız.”

Else

Set objItems = objRoot.getElementsByTagName(“item”)

If IsObject(objItems) = True Then

For Each objItem in objItems

On Error Resume Next

TheTitle= objItem.selectSingleNode(“title”).Text
TheLink =  objItem.selectSingleNode(“link”).Text
TheDesc =  objItem.selectSingleNode(“description”).Text
TheDate =  objItem.selectSingleNode(“pubDate”).Text

Response.Write “<a href=” & TheLink & “>” & _
“<b>” & TheTitle & “</b>” & _
“</a>” & _
“<br />”

Response.Write TheDesc & _
“<br />”

Response.Write TheDate & _
“<hr />”
‘Buraya veritabanı kayıt ekleme kodu. Kendi isteğinize göre.
Next
Response.Write(“Ntv haberleri alındı.”)
End If
Set objItems = Nothing
End If
Else
Response.Write “İşlem başarısız.”
End If

Set objXML = Nothing
%>

Kodları çalıştırmak konusunda sorun yaşarsanız bu başlık altına yorum yazarak beni bilgilendirin.