<%
CEKILECEK=" rss adresin "


Set rssOku = Server.CreateObject("MSXML2.FreeThreadedDOMDocumen t")
rssOku.async = False

rssOku.setProperty "ServerHTTPRequest", True
rssOku.Load CEKILECEK

If rssOku.parseError.errorCode <> 0 Then
Response.Write "<b>Hata:</b> " & rssOku.parseError.reason &"<br>"
Response.Write "<b>Satır:</b> " & rssOku.parseError.line &"<br>"
Response.Write "<b>Açıklama:</b> " & rssOku.parseError.srcText
End If

Set ObjeListesi = rssOku.getElementsByTagName("item")
Set rssOku = Nothing


For Each Obje In ObjeListesi
response.write Obje.childNodes(0).Text
Next

Set ObjeListesi = Nothing

%>