Torna agli script pronti

Copia il codice che segue nelle tue pagine per mostrare gli RSS

<!-- parte di codice per definire lo stile dei link> -->
<STYLE type="text/css">
<!--
A.rsslink:link {color:#000080;FONT-SIZE: 10pt; FONT-FAMILY: times new roman; TEXT-DECORATION: none;}
A.rsslink:visited {color:#000080;FONT-SIZE: 10pt; FONT-FAMILY: times new roman; TEXT-DECORATION: none;}
A.rsslink:active {color:#000080;FONT-SIZE: 10pt; FONT-FAMILY: times new roman; TEXT-DECORATION: none;}
A.rsslink:hover{color:#00CCFF;FONT-SIZE: 10pt; FONT-FAMILY: times new roman; TEXT-DECORATION: underline;}
-->
</STYLE>
<!-- fine codice per definire stile dei link> -->


<%
rssURL = "https://www.studiocataldi.it/rss/feed_10news.asp"

Set objXML = Server.CreateObject("msxml2.DOMDocument.6.0")

objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse =false
objXML.preserveWhiteSpace = false

rssFile = objXML.Load(rssURL)

'Se ci sono errori stampo a video
If Not rssFile Then
Response.write "ERRORE..."

'Se NON ci sono errori proseguo...
Else

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
Case "description"
strDesc = objNode2.firstChild.nodevalue
End Select

Next

'stampo a video...(questa parte può essere modificata per personalizzare il codice assegnando ad esempio uno stile o inserendo elenchi puntati).
Response.write "- <a class=""rsslink"" href=""" & strURL & """>" &_
strTitle & "</a><br>"

'azzero tutto per il prossimo passaggio
strTitle = ""
strURL = ""
strDescription = ""

Next

set objNodeList = Nothing
End if
%>