tmmdır halletim baskasının isine lazım olur diye ekliyorum buraya arkadaşar
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<title>Untitled Document</title>
</head>
<body>
<%
' RSS Reader
Dim objXML, objRoot, objItems
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load("http://rss.hurriyet.com.tr/rss.aspx?sectionId=1")
If (objXML.parseError.errorCode = 0) Then
Set objRoot = objXML.documentElement
If IsObject(objRoot) = False Then
response.write "<li>Connection Error!"
End If
Set objItems = objRoot.getElementsByTagName("item")
If IsObject(objItems) = True Then
Dim objItem
For Each objItem in objItems
response.write "<b><a href='" & objItem.selectSingleNode("link").Text & "'>" & objItem.selectSingleNode("title").Text & "</a></b><br>" & vblf
response.write "<div class='Notices>" & objItem.selectSingleNode("description").Text & "</div><br>" & vblf
Next
else
response.write "<li>Connection Error!"
End If
Set objItems = Nothing
Set objRoot = Nothing
End If
Set objXML = Nothing
%>
</body>
</html>
