<!-- inizio box lato notizie orizzontali -->
<div
style="background-color:#00FFFF; border: 0px inset #111111; width:
130">
<a target="_blank" style="font-size: 8 pt; font-family: Times New
Roman; color: #000080; text-decoration: none"
href="http://www.studiocataldi.it/"><b>NOTIZIE
GIURIDICHE</b></a></div>
<div
style="background-color:#FFFFFF; border: 0px inset #111111; width:
130">
<!-- 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 height=160 direction=up scrolldelay=60
scrollamount=1 hspace=2 align=right
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) &
"</a><br><br>"
END IF
strTitle = ""
strURL = ""
strDescription = ""
Next
set objNodeList = Nothing
End
if
%>
</marquee>
</div>
<div align="center"
style="background-color:#00FFFF; border: 0px inset #111111; width:
130">
<a target="_blank" style="font-size: 8 pt; font-family: Times New
Roman; color: #000080; text-decoration: none"
href="http://www.studiocataldi.it/newstuosito.asp">Get news</a><span
style="font-size: 8pt"><font
color="#FFFFFF"> | </font></span><a
target="_blank" style="font-size: 8 pt; font-family: Times New Roman; color:
#000080; text-decoration: none"
href="http://www.studiocataldi.it/seenews_pag1.asp">Archivio</a></div>
<!--
fine notizie scorrevoli laterali -->
