<!-- Inizio codice del box rss -->
<TABLE width=460 align=center border=0>
<TR><TD align=middle bgColor=#d6ecff>
<A style="FONT-WEIGHT: bold; FONT-SIZE: 11pt; COLOR: #004e73; FONT-FAMILY: Times New Roman; TEXT-DECORATION: none" href="https://www.studiocataldi.it">Notizie Giuridiche</A>
</TD></TR>
<TR>
<TD bgColor=#ffffff>
<FONT style="FONT-SIZE: 9pt" color=#000080>
<!-- la parte di codice che segue serve a modificare lo stile dei link delle notizie -->
<STYLE type=text/css>
<!--
A.rss:link {color:#000080;FONT-SIZE: 8pt; FONT-FAMILY: Tahoma; TEXT-DECORATION: none};}
A.rss:visited {color:#000080;FONT-SIZE: 8pt; FONT-FAMILY: Tahoma; TEXT-DECORATION: none}
A.rss:active {color:#000080;FONT-SIZE: 8pt; FONT-FAMILY: Tahoma; TEXT-DECORATION: none}
A.rss:hover{color:#00CCFF;
FONT-SIZE: 8pt; FONT-FAMILY: Tahoma; TEXT-DECORATION: underline}
}
-->
   </STYLE>
<!-- se siete webmaster esperti potete modificare anche la parte di codice che segue a cominciare dal canale RSS, codici da visualizzare in caso di errore, formattazione, numero massimo caratteri etc... -->
<%rssURL = "https://news.studiocataldi.it/feed.asp"
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.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 "Servizio momentaneamente non disponibile"
'Se NON ci sono errori proseguo...
Else
limite_max=8
limite_min=1
conta=0

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...
 conta=conta+1
 IF conta>=limite_min AND conta<=limite_max THEN
  Response.write "<a class=""rss"" href=""" & strURL & """>" &_
  Left(strTitle,92) & "...</a><br>"
 END IF

 strTitle = ""
 strURL = ""
 strDescription = ""

Next

set objNodeList = Nothing
End if
%></FONT></TD></TR>
<TR>
<TD align=middle bgColor=#d6ecff>
<font color="#ffffff" style="font-size: 8pt">
<A style="color:#000080;FONT-SIZE: 8pt; FONT-FAMILY: Tahoma; TEXT-DECORATION: none" href="https://www.studiocataldi.it/newstuosito.asp" target=_blank>Prendi le notizie</A>&nbsp;|&nbsp;
<A style="color:#000080;FONT-SIZE: 8pt; FONT-FAMILY: Tahoma; TEXT-DECORATION: none" href="https://www.studiocataldi.it/feed_rss.asp" target=_blank>Feed RSS giuridici</A>&nbsp;|&nbsp;
<A style="color:#000080;FONT-SIZE: 8pt; FONT-FAMILY: Tahoma; TEXT-DECORATION: none" href="https://www.studiocataldi.it/archivio_news_adn1_50.asp" target=_blank>Notizie Attualità</A>&nbsp;|&nbsp;
<A style="color:#000080;FONT-SIZE: 8pt; FONT-FAMILY: Tahoma; TEXT-DECORATION: none" href="https://www.studiocataldi.it/edicola.asp" target=_blank>Edicola on line</A>&nbsp;|&nbsp;
<A style="color:#000080;FONT-SIZE: 8pt; FONT-FAMILY: Tahoma; TEXT-DECORATION: none" href="https://www.studiocataldi.it/discussioni-giuridiche.asp" target=_blank>Newsgroup giuridici</A>
</FONT></TD></TR></TABLE>
<!-- Fine codice del box rss -->