Salve,
servendomi di un esempio postato su Html.it ho modificato il codice in questa maniera:
<%
'Stringa di connessione al nostro Data Base di news
'Modificatela in base al percorso del vostro Data Base
StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/ildemocratico.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConnessione
'Istruzione SQL che prende le news dal Data Base; modificate il nome della vostra tabella e i vari nomi dei campi
SQL ="SELECT * FROM ilpensiero Order by id 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=""iso-8859-1""?><rss version=""2.0"" xmlns:dc=""http://purl.org/dc/elements/1.1/"" xmlns:sy=""http://purl.org/rss/1.0/modules/syndication/""><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("testo") & "]]></description>"
xml = xml & "<link><![CDATA[http://www.mazziniano.it/default.asp?go=commenti" & rs("id") & "]]></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
%>
In generale funziona però c'è un problema con alcuni caratteri.
Ad esempio quando ho "..." oppure un apostrofo ("'") questi vengono sostituiti con un punto interrogativo.
Penso sia proprio un problema di encoding. Ma come si può risolvere?
Grazie e Ciao
Rispondi quotando
