[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		

%>

[agenti]

ElseIf (sChildNodeName = "Description") Then
sDesc = sChildNodeText
ElseIf (sChildNodeName = "pubDate") Then
sDate = sChildNodeText
End If

''''sdate ha un formato diverso dal solito..
'''' mar, 01 apr 2008 GMT
''''devi creare una funzione di riconversione o un semplce split.

[cms9651]

Originariamente inviato da agenti
ElseIf (sChildNodeName = "Description") Then
sDesc = sChildNodeText
ElseIf (sChildNodeName = "pubDate") Then
sDate = sChildNodeText
End If

''''sdate ha un formato diverso dal solito..
'''' mar, 01 apr 2008 GMT
''''devi creare una funzione di riconversione o un semplce split.

Ti ringrazio, ma come converto la data?:

Sat, 13 Mar 2010 18:15:00 CST 
2010-03-13

[agenti]

ElseIf (sChildNodeName = "description") Then
sDesc = sChildNodeText
ElseIf (sChildNodeName = "pubDate") Then
sDate = sChildNodeText
End If

"description" minuscolo sorry

[cms9651]

Ti ringrazio, ma come converto la data?:

Sat, 13 Mar 2010 18:15:00 CST 
2010-03-13

[agenti]

in che formato la vuoi ?

[cms9651]

Originariamente inviato da agenti
in che formato la vuoi ?

Il formato è per mysql quindi YYYY-MM-DD

Stavo provando questo codice ma non stampa il mese (mnth), perchè?

<%

myDate = split ("Sat, 13 Mar 2010 18:15:00 CST" , " ")

if Lcase(left(trim(MyDate(2)),3)) = "Jan" then Mnth = 01
if Lcase(left(trim(MyDate(2)),3)) = "Feb" then Mnth = 02
if Lcase(left(trim(MyDate(2)),3)) = "Mar" then Mnth = 03

if Lcase(left(trim(MyDate(2)),3)) = "Apr" then Mnth = 04
if Lcase(left(trim(MyDate(2)),3)) = "May" then Mnth = 05
if Lcase(left(trim(MyDate(2)),3)) = "Jun" then Mnth = 06

if Lcase(left(trim(MyDate(2)),3)) = "Jul" then Mnth = 07
if Lcase(left(trim(MyDate(2)),3)) = "Aug" then Mnth = 08
if Lcase(left(trim(MyDate(2)),3)) = "Sep" then Mnth = 09

if Lcase(left(trim(MyDate(2)),3)) = "Oct" then Mnth = 10
if Lcase(left(trim(MyDate(2)),3)) = "Nov" then Mnth = 11
if Lcase(left(trim(MyDate(2)),3)) = "Dec" then Mnth = 12

response.write MyDate(3) & "-" & Mnth & "-" & MyDate(1)

%>

Grazie

[agenti]

ma non puoi usare un
select case ?

[cms9651]

Originariamente inviato da agenti
ma non puoi usare un
select case ?

Esempio? grazie

[agenti]

esempio ?

san google.