ASP de rss okuma ile ilgi bir yardım

<%

' 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

%>