feed RSS

[Gio&Ste]

ho intenzione di realizzare un feed RSS per delle news di un sito
Ho letto l'articolo su pro.html.it

Ma avrei bisogno di alcune delucidazioni

<%
Response.ContentType = "text/xml"
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE rss PUBLIC "-//Netscape Communications//DTD RSS 0.91//EN" "http://my.netscape.com/publish/formats/rss-0.91.dtd">
<rss version="0.91">
  <channel>
    <title>Feed di prova</title>
    <link>http://www.miosito.it/</link>
    <description>Un feed RSS di prova</description>
    <language>it</language>

<%
' estrazione dei dati
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConn

set rs = objConn.execute("SELECT TOP 5 * FROM comunica ORDER BY Data DESC")

Do while rs.eof
  response.write "    <item>" &VbCrLf
  response.write "      <title>"& artRec("titolo") &"</title>" &VbCrLf
  response.write "      <link>" & artRec("URL") &"</link>" &VbCrLf
  response.write "      <description>"& artRec("articolo") &"</description>" &VbCrLf
  response.write "    </item>" &VbCrLf
  rs.movenext
loop
rs.close
set rs = nothing

objConn.close
set objConn = nothing

%>
  </channel>
</rss>

in questo codice che ho trovato mi sembra che manca la connessione al database, inoltre devo prevedere nella tabella del db l'URL? o la posso assegnare come una costante e l'unica cosa che varia e l'ID?

[peste1]

Con queste modifiche puoi tranquillamente memorizzare solo l'ID:

<%
sito = "http://www.prova.com/feed.asp?id="
Response.ContentType = "text/xml"
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE rss PUBLIC "-//Netscape Communications//DTD RSS 0.91//EN" "http://my.netscape.com/publish/formats/rss-0.91.dtd">
<rss version="0.91">
  <channel>
    <title>Feed di prova</title>
    <link>http://www.miosito.it/</link>
    <description>Un feed RSS di prova</description>
    <language>it</language>

<%
' estrazione dei dati
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConn

set rs = objConn.execute("SELECT TOP 5 * FROM comunica ORDER BY Data DESC")

Do while rs.eof
  response.write "    <item>" &VbCrLf
  response.write "      <title>"& artRec("titolo") &"</title>" &VbCrLf
  response.write "      <link>" & sito & artRec("URL") &"</link>" &VbCrLf
  response.write "      <description>"& artRec("articolo") &"</description>" &VbCrLf
  response.write "    </item>" &VbCrLf
  rs.movenext
loop
rs.close
set rs = nothing

objConn.close
set objConn = nothing

%>
  </channel>
</rss>

Crea la connessione al database ma effettivamente manca il riferimento al db.

[Gio&Ste]

al posto di artRec("URL") scrivo artRec("ID") ??

e la connessione è normale come quelle che uso in genere?

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/db.mdb")%>