Salve,
uso questo script per estrapolare rss feed dal mio sito asp e db access ma mi da errore:
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/legginews.asp, line 25
"<link>http://www.tgcom.it</link><language>it</language>"&
----------------^
cosa sbaglio?
<%
'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="&"D:\Inetpub\webs\edizionijuniorcom\ mdb-database\dbute2.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 eventi 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=""UTF-8""?>" & _
"<rss version=""2.0""><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
%>
Rispondi quotando
