<!-- inizio notizie una riga -->
<center><table width=423 border=1 bordercolor="#808080" style="border-collapse: collapse" cellpadding="0" cellspacing="0"><tr><td>
<a title="Notizie giuridiche e consulenza legale online" target="_blank" href="http://www.studiocataldi.it/">
<img border="0" src="http://www.studiocataldi.it/images/martello30x19.jpg" width="36" height="24"></a></td><td bgcolor="#FFFFFF">
<!-- 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... -->
<marquee width="400" height=20 scrolldelay=80 scrollamount="2" OnMouseOver="javascript:this.stop()" OnMouseOut="javascript:this.start()">
<%rssURL = "http://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=15
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,200) & "&nbsp;-&nbsp;</a>&nbsp;"
 END IF

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

Next

set objNodeList = Nothing
End if
%>
</marquee>
</td>
</tr>
</table>