[ASP] DisplayFeed RSS

[cms9651]

Ciao a tutti: sono quello che non riusciva a registrarsi
Grazie mille Rebelia!!!!

E' il mio primo post su questo forum spero possiate aiutarmi!

Il problema è questo: utilizzo questo codice per leggere dei feed RSS e va bene.
Ma per avere anche la data e la descrizione del feed?
Cosa devo modificare?

<%

DisplayFeed("http://www.paginaweb.com")

Sub DisplayFeed(sURL)    
dim objXML	
Set objXML = CreateObject("MSXML2.DOMDocument.4.0")	
objXML.async = False	
objXML.validateOnParse = false	
objXML.resolveExternals = false	
objXML.preserveWhiteSpace = false	
objXML.setProperty "ServerHTTPRequest", True
if (objXML.Load(sURL)) then
Dim i, k, objChannel, objItemList,sChildNodeName,sChildNodeText,iTotalItems,iCount,objItem,j,sLinkTxt,sLinkURL 
		
Set objItemList = objXML.getElementsByTagName("channel")		
iTotalItems = objItemList.length - 1 		
If (iTotalItems < 0) Then			
dim RootNamespace: RootNamespace = objXML.documentElement.namespaceURI 			
objXML.setProperty "SelectionNamespaces","xmlns:at='" & RootNamespace & "'"	 		
Set objItemList = objXML.selectNodes("//at:feed")			
iTotalItems = objItemList.length - 1		
End If 	    

i = 0		
For iCount = 0 to iTotalItems			
Set objItem = objItemList.item(iCount)			
For j = 0 to objItem.childNodes.length - 1	
			
sChildNodeName = objItem.childNodes(j).nodeName				
sChildNodeText = objItem.childNodes(j).text 
           
If (sChildNodeName = "title") Then					
sLinkTxt = sChildNodeText			   
ElseIf (sChildNodeName = "link") Then					
sLinkURL = sChildNodeText
End If			
Next			
response.write "" & sLinkTxt & "" & vbCrLf	
Next	

Set objItemList = nothing		
Set objItem = nothing         
Set objItemList = objXML.getElementsByTagName("item")		
iTotalItems = objItemList.length - 1         

If (iTotalItems < 0) Then			
Set objItemList = objXML.getElementsByTagName("entry")			
iTotalItems = objItemList.length - 1		
end if         

If (iTotalItems < 0) Then			
RootNamespace = objXML.documentElement.namespaceURI 			
objXML.setProperty "SelectionNamespaces","xmlns:at='" & RootNamespace & "'"	 		
Set objItemList = objXML.selectNodes("//at:feed")			
iTotalItems = objItemList.length - 1		
End If 	    

i = 0		
For iCount = 0 to iTotalItems			
Set objItem = objItemList.item(iCount)			
For j = 0 to objItem.childNodes.length - 1				
sChildNodeName = objItem.childNodes(j).nodeName				
sChildNodeText = objItem.childNodes(j).text 	           

If (sChildNodeName = "title") Then					
sLinkTxt = sChildNodeText			   
ElseIf (sChildNodeName = "link") Then					
sLinkURL = sChildNodeText				
End If	
		
Next 			
response.write ""& replace(sLinkTxt,"&","&amp;") & "
" & vbCrLf			

i = i + 1		
Next 	

else		
response.write("Error code:" & objXML.parseError.errorCode & "
")		
response.write("Error reason:" & objXML.parseError.reason & "

")	
end If 	
set objItemList = nothing    
set objXML = nothing

end sub		

%>