http://www.siciliatravel.com/2006/ultimenews.asp
questo feed lo apro con:
<%
rssURL2 = "http://www.siciliatravel.com/2006/ultimenews.asp"
'Creo l'oggetto DOM XML
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
'Imposto le proprietà dell'oggetto
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse =false
objXML.preserveWhiteSpace = false
'Carico il file RSS dalla URL
rssFile2 = objXML.Load(rssURL2)
'Se ci sono errori stampo a video
If Not rssFile2 Then
Response.write "ERRORE..."
'Se NON ci sono errori proseguo...
Else
'Recupero i dati dai nodi Item (e sotto nodi)
Set objNodeList = objXML.getElementsByTagName("item")
For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes
Select Case objNode2.nodeName
Case "title"
strTitle = objNode2.firstChild.nodevalue
Case "link"
strURL = objNode2.firstChild.nodevalue
End Select
Next
%>
<ul>[*]
"><%=mid(strTitle,22,35)%>...
[/list]
<%
'azzero tutto per il prossimo passaggio
strTitle = ""
strURL = ""
strDescription = ""
Next
set objNodeList = Nothing
End if
%>
ma stranamente mi va in errore...
:maLOL:
mi chiedevo inoltre se fosse possibile ottenere solo un certo numero di righe, magari imponendo un For Each objNode In objNodeList limitato a "5".
Rispondi quotando
