Salve,
ho trovato numerosi script online per la creazione di FEED RSS estrapolando tramite una pagina asp i dati dal database access. Il problema è che nessuno di questi sembra essere leggibile tramite facebook e/o blogger.
Conoscete uno script che mi permetta di realizzarli per queste piattaforme?
Vi allego quello che ho utilizzato io ma sembra non funzionare con facebook e blogger.
<%
'Imposto il percorso del nostro DB
'Mi connetto al DB
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&"db.mdb"
'Recuperiamo le news dal nostro DB
Dim MyQuerySql, Rs
MyQuerySql ="SELECT TOP 20 * FROM eventiORDER BY ID DESC"
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open MyQuerySql, Conn, 3, 3
'Numero totale di records
Dim NumNews
NumNews = Rs.recordcount
'Imposto il tipo di file come XML
response.ContentType="text/xml"
'Imposto il mio documento XML
'Specificando titolo, descrizione e link del mio servizio di News
response.write "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"
response.write "<rss version=""0.91""><channel>"
response.write "<title>Notizie dal Web</title>"
response.write "<link>http://www.sito.com/news/</link>"
response.write "<description>Notizie dal mondo del Web</description>"
response.write "<language>it</language>"
'Se il DB non è vuoto...
if NOT NumNews = 0 then
'Lancio un ciclo che scorre tutti i records trovati...
'e crea la struttura XML per ogni News
Do while not rs.eof
response.write "<item>"
response.write "<title>" & Rs("titolo") & "</title>"
response.write "<description>" & Rs("desc") & "</description>"
response.write "<link>http://www.sito.com/evento.asp?ID=" & Rs("ID") & "</link>"
response.write "</item>"
rs.movenext
Loop
End if
'Chiudo il documento XML
response.write "</channel></rss>"
'Chiudo tutto
rs.close
set rs=nothing
Conn.Close
set Conn=nothing
%>
Rispondi quotando
