Il Tagliere: Ricette Regionali

Da oggi RicetteRegionali.net mette a disposizione dei propri utenti un Feed RSS, in cui verranno pubblicate le ultime novità del sito e le ultime ricette inserite.

Cliccate qui per scaricare il Feed di RicetteRegionali.net

Per utilizzare il feed, basta fare clic sul link con il tasto destro del mouse, selezionare "copia collegamento" ed inserirlo sul proprio Feed Reader.

Se invece siete interessati ad una regione specifica, ecco la lista dei feed per singola regione.

Per i webmaster:

Potete fornire ai vostri visitatori un servizio aggiuntivo, inserendo le news di RicetteRegionali.net sul vostro sito tramite questo semplice codice ASP.
E' fornito anche un foglio di stile che potete personalizare per renderlo compatibile con il layout del vostro sito.

<head> <style> #feedStyle dl { font-family:Verdana, Arial, Helvetica, sans-serif; width: 160px; margin-top: 4px; margin-left: 0px; padding-bottom: 8px; border-top: 10px solid #2C6E91; border-bottom: 1px solid #2C6E91; background: #FFFFFF; } #feedStyle dl dt { font-size: 0.8em; font-weight: bold; color: #E5F4FC; text-align: left; padding-right: 5px; padding-left: 5px; border-top: 1px solid #E5F4FC; background: #93C1DB; } #feedStyle dt a, #colMenu dl dd a:visited { color: #E5F4FC; text-decoration: none; } #feedStyle dt a:hover, #colMenu dl dd a:active { color: #E5F4FC; text-decoration: none; } #feedStyle dl dd { font-size: 0.8em; color: #000; line-height: 1em; margin-top: 4px; margin-left:0px; padding-left: 5px; } #feedStyle dl dd a, #colMenu dl dd a:visited { color: #2C6E91; text-decoration: none; } #feedStyle dl dd a:hover, #colMenu dl dd a:active { color: #2C6E; text-decoration: underline; } </style> </head> <div id="feedStyle"> <% NumNews = 4 FeedUrl = "http://www.ricetteregionali.net/ricetteregionali_rss.xml" call PrintFeed(FeedUrl,NumNews) %> </div> <% Sub PrintFeed(FeedUrl,NumNews) html = "" Set XMLdoc = Server.CreateObject("msxml2.DOMDocument.3.0") XMLdoc.async = false XMLdoc.setProperty "ServerHTTPRequest", True XMLdoc.validateOnParse =false XMLdoc.preserveWhiteSpace = false Loaded = XMLdoc.Load(FeedUrl) If Loaded Then set NodesList = XMLdoc.getElementsByTagName("channel") For Each aNode In NodesList For Each aNode2 In aNode.childNodes Select Case aNode2.nodeName Case "title" html = html & "<dt><a title=""Risorse per webmaster"" href=""http://www.ricetteregionali.net/"" target=""_blank"">" & aNode2.firstChild.nodevalue & "</a></dt>" End Select Next Next Set NodesList = XMLdoc.getElementsByTagName("item") j = 0 For Each aNode In NodesList j = j + 1 For Each aNode2 In aNode.childNodes Select Case aNode2.nodeName Case "title" strTitle = aNode2.firstChild.nodevalue Case "link" strURL = aNode2.firstChild.nodevalue End Select Next html = html & "<dd><a target=_blank href=" & strURL & ">" & strTitle & "</a></dd>" strTitle = "" strURL = "" strDescription = "" if (j >= NumNews) Then Exit For Next html = "<dl>" & html & "</dl>" set NodesList = Nothing End if Response.write (html) End Sub %>

Qualora voleste utilizzare un'altro linguaggio, contattatemi pure tramite questo link e vi fornirò il codice relativo.