Codice per integrare i feed rss in pagine asp

Copia il codice che segue in una delle tue pagine ASP e potrai mostrare i contenuti delle notizie sempre aggiornati.
Ti chiediamo cortesemente di indicare la fonte delle notizie (www.studiocataldi.it) al termine del feed.
Altri canali rss sono disponibili qui

<%
rssURL = "http://feeds.feedburner.com/studiocataldi/PrimaPagina"
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 "Non ci sono notizie<br>per favore avvisate il webmaster"

'Se NON ci sono errori proseguo...
Else

limite_max=15
limite_min=1
conta=0
'Recupero i dati dai nodi Item (e sotto nodi)
Set objNodeList = objXML.getElementsByTagName("item")

On Error Resume Next

For Each objNode In objNodeList
 'stampo a video...
 conta=conta+1
 IF conta>=limite_min AND conta<=limite_max THEN
 
  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
 
  Response.write "<a href=""" & strURL & """>" &_
  Left(strTitle,280) & "</a><br>" & Left(strDesc,500) & "...<br clear""all"">"
 END IF
 'azzero tutto per il prossimo passaggio
 strTitle = ""
 strURL = ""
 strDescription = ""

Next

set objNodeList = Nothing
End if
%>

<br> Fonte: <a href="http://www.studiocataldi.it">www.studiocataldi.it</a>

Seguici:
Print Friendly and PDF
Arricchisci questa guida con un tuo commento:
blog comments powered by Disqus
bottone newsletter Icona Facebook Icona Rss Icona Google plus Icona twitter Icona linkedin