Lavora con noi

ASP

Siti tematici

Pagine:

RSS

Feed RSS in ASP

di: Enrico Lai 10 Luglio 2003

Realizzare un Feed RSS con le ultime news del nostro sito è sicuramente tanto interessante quanto semplice. Se avete quindi già un Data Base dove memorizzate le notizie diventa immediato creare uno script ASP che crea un documento RSS (o RDF). L' RSS non è altro che un documento XML che si basa su determinati TAG utilizzati per convenzione. La classica struttura semplificata per un feed RSS è la seguente:

<?xml version="1.0" encoding="UTF-8"?>
<rss version="0.91">
  <channel>
    <title>Titolo del vostro RSS </title>
      <description>Descrizione del vostro RSS</description>
    <link>URL del vostro RSS</link>
    <item>
      <title><![CDATA[ Titolo notizia 1 ]]></title>
      <description><![CDATA[ Descrizione o Corpo notizia 1]]></description>
      <link><![CDATA[ URL per leggere la notizia 1 sul web]]></link>
    </item>

    <item>
      <title><![CDATA[ Titolo N ]]></title>
      <description><![CDATA[ Descrizione o Corpo notizia N]]></description>
      <link><![CDATA[ URL per leggere la notizia N sul web]]></link>
    </item>
  </channel>
</rss>

Se avete già un po' di confidenza con l'XML dovrebbe risultarvi semplice capire di cosa si tratta. Notate l'utilizzo dei blocchi CDATA all'interno di alcuni elementi dell'albero. Questo perché in alcuni casi potrebbero presentarsi dei caratteri speciali che potrebbero mandare in errore il parser del Browser. Soprattutto all'interno degli elementi <link> delle notizie è facile avere URL di questo tipo:

http://www.sito.com/legginews.asp?idnews=2&lingua=italiano

In questi casi ad esempio il carattere & (e-commerciale) manda in errore il parser XML invalidando il nostro documento RSS. È sempre bene quindi accertarsi che all'interno dei vari elementi non ci sia la possibilità di incontrare caratteri speciali o utilizzare i blocchi CDATA per prevenire errori di questo tipo.

Passiamo alla realizzazione del feed RSS, utilizzando un semoplice file ms Access e codice ASP/VBScript

Struttura del Data Base Access

Codice ASP che crea il documento XML RSS

<%

'Stringa di connessione al nostro Data Base di news
'da modificare in base al percorso del vostro Data Base
StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
      server.MapPath("/rss/ASP") & "\News.mdb"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConnessione

'Istruzione SQL che prende le news dal Data Base;
'da cambiare con il nome della vostra tabella ed i nomi dei campi
SQL = "SELECT * FROM news Order by idnews desc"

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open SQL, Conn, 1,1

' Numero totale di records
totfiles = rs.recordcount

xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & _
      "<rss version=""0.91""><channel><title>Le Ultime Notizie</title>" & _
      "<description>Notizie dal mondo in tempo reale</description>" & _
      "<link>http://www.tgcom.it</link><language>it</language>"

'Se il Record Set non è vuoto
if totfiles <> 0 then
  Do while not rs.eof
    xml = xml & "<item>"
    xml = xml & "<title><![CDATA[" & rs("titolo") & "]]></title>"
    xml = xml & "<description><![CDATA[" & rs("descrizione") & "]]></description>"
    xml = xml & "<link><![CDATA[http://www.tuosito.com/legginews.asp?id=" & rs("idnews") & "]]></link></item>"

    rs.movenext
  Loop
End if

xml = xml & "</channel></rss>"

' Impostazione che setta il tipo di file in output su XML
response.ContentType = "text/xml"
response.write xml

'Libero Risorse
rs.close
set rs=nothing
Conn.Close
set Conn=nothing
%>