Ayberk Atasay

<% response.Charset="iso-8859-9"
url="http://www.ntvmsnbc.com/tools/rss/NEWS.XML"
Set xmlHttpNesnesi = Server.CreateObject("Msxml2.ServerXMLHTTP")
xmlHttpNesnesi.open "GET", url, False
xmlHttpNesnesi.send

Set xmlNesnesi = Server.CreateObject("Msxml2.DOMDocument")
xmlNesnesi.async = FALSE
xmlNesnesi.Loadxml(xmlHttpNesnesi.ResponseText)

for i=2 to xmlNesnesi.getElementsByTagName("item").length
baslik = xmlNesnesi.getElementsByTagName ("title").item(i).Text
aciklama = xmlNesnesi.getElementsByTagName ("description").item(i).Text
link = xmlNesnesi.getElementsByTagName ("link").item(i).Text
%>
<a href="<%=Server.HTMLEncode(link)%>" target="_blank"><%=Server.HTMLEncode(baslik)%></a> <br><%=Server.HTMLEncode(aciklama)%><br><br>
<%
next
response.flush
Set xmlNesnesi=nothing
Set xmlHttpNesnesi =nothing %>