Salve, sto realizzando un sito e vorrei far comparire 6 feed rss di altri siti sulla pagina del mio sito.
Se ne inserisco 1 solo funziona tutto ma se ne metto 2 ho problemi...
Mi chiedevo: esiste un modo per metterli tutti e 6 insieme?
Questo il codice:
codice HTML:
<div class="row 50%">
<div class="4u">
</div>
<%
Dim objXML, caricoFile, NumeroMassimoNews, Nodo, cont, objNodi, objNodo, Titolo, link, descrizione
'Utilizzo oggetto DOM per caricare il file xml (feed rss)
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse =false
objXML.preserveWhiteSpace = false
' Carico news
caricoFile = objXML.Load("https://www.inps.it/Bussola/RssFeed.aspx?itiponews=1")
'numero massimo di news
NumeroMassimoNews=1
' Controllo se e' stato caricato il file
If Not caricoFile Then
' In caso di errore avviso quale errore si e' verificato
Response.write "Errore: " & objXML.parseError.errorCode & ""
Response.Write "Linea: " & objXML.parseError.line & "/"
Response.WRite "Colonna: " & objXML.parseError.linepos & "</p>"
Else
' In caso non vi sia nessun errore, proseguo e carico le info del file xml (feed rss)
Set Nodo = objXML.getElementsByTagName("item")
cont=0
For Each objNodi In Nodo
cont=cont+1
if cont<=NumeroMassimoNews then
' Sfoglio i nodi
For Each objNodo In objNodi.childNodes
Select Case objNodo.nodeName
Case "title"
titolo = objNodo.firstChild.nodevalue
Case "link"
link = objNodo.firstChild.nodevalue
Case "description"
descrizione = objNodo.firstChild.nodevalue
Case "dc:date"
data = objNodo.firstChild.nodevalue
data = Replace(data,"T"," alle ")
data = Replace(data,"+00:00","")
End Select
Next
'Response.Write ("<font face='Trebuchet MS' color='#0066CC' style='font-size: 14pt; ' >" & titolo & "</font>")
'Response.Write ("<font face='Trebuchet MS' color='#000000' style='font-size: 10pt; ' > " & descrizione & " ('"& link &"')</font>")
%>
<div>
<h4>
<a href="<%=(link)%>" target="_blank">
<% Response.Write ("<font face='Trebuchet MS' color='#0066CC' style='font-size: 14pt; ' >" & titolo & "</font>") %>
</a>
</h4>
</div>
<%
end if
Next
set Nodo = Nothing
End if
%>
</div>