Studio Cataldi: notizie giuridiche e di attualitā
Home Notizie giuridiche Notizie di attualitā Notizie ultima ora

In questa pagina potete prelevare il codice completamente personalizzabile con un codice di scroll.
Il codice č utilizzabile su pagine ASP.
E' possibile inoltre cambiare i contenuti del codice scegliendo tra diversi canali tematici nel formato RSS (diritto di famiglia, cassazione, newsgrpup etc...) disponibili alla pagina: https://www.studiocataldi.it/feed_rss.asp
Se non sai come utilizzare questi codici o le tue pagine non sono in ASP torna alla pagina https://www.studiocataldi.it/newstuosito.asp e utilizza i codici con iframe oppure vai alla pagina dei feed rss e cerca la soluzione adatta alla tecnologia da te utilizzata
Se hai bisogno di aiuto contattaci

29-11 - Amianto: obbligo di denuncia e bonifica anche per privati e condomini -  29-11 - Tracciare gli atti giudiziari con DoveQuando di Poste Italiane -  29-11 - La negoziazione assistita vale anche per le cause di lavoro? -  29-11 - La denuncia di successione vale come accettazione di ereditā? -  29-11 - Cambiamento di sesso: l`iter da seguire -  29-11 - Mantenimento: marito fallito, ex senza assegno -  29-11 - Bestemmiare all`aperto: multe fino a 450 euro -  29-11 - Cassazione: non punibile chi uccide il cane altrui per salvare il proprio -  29-11 - Processo penale: cosa fare se il condannato non paga il risarcimento -  29-11 - La fusione di comuni -  29-11 - Il primo avvocato robot arriva in Italia -  28-11 - Avvocati: fino a 1.500 euro per i cassazionisti -  28-11 - Fumare una canna e mettersi alla guida? Si rischia la revisione della patente -  28-11 - Riforma Pa: salta la lotta dura agli assenteisti? -  28-11 - Bagarini, multe fino a 180mila euro. La Camera approva la manovra -  


Ecco il codice da copiare nelle tue pagine ASP:
<!-- 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="https://www.studiocataldi.it/">
<img border="0" src="https://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 = "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=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>


Lo staff |  Contattaci |  Notizie giuridiche |  Notizie di attualitā