ASP rss okuma ile ilgili bir yardım

asp de rss okuma için aşağıdaki kodu kullanıyorum
ama ben aynı anda 2 rss i okumak istediğimde hata veriyor
bu işi nasıl çözerim

<%
	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
%>

yardım çağrısı---- s.o.s ----yardım çağrısı

galiba tek sayfada iki kez bu kodları ard arda yazarak veriyi çekmee çalışıyosun eğer öyle yapıyorsan şu satırları 2. sefer yazdığından sil

Dim objXML, objRoot, objItems
Dim objItem

bide bunu fonksiyon haline getirirsen daha kullanışlı olur