<%
'Stringa di connessione al nostro 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 i campi dal Data Base
SQL ="SELECT * FROM guide_list Order by id guide titolo"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation=3
rs.Open SQL, Conn, 1,1
' Numero totale di records
totfiles = rs.recordcount
strxml = "<?xml version=""1.0"" encoding=""UTF-8""?><rss version=""0.91""><channel>
<title>La lista delle nostre guide
</title>
<description>Guide
</description>
<link> http:// www.pc-facile.com/guide </link>"
'Se il Record Set non è vuoto
if totfiles <>0 then
Do while not rs.eof
strxml = strxml & "<item>"
strxml = strxml & "<title><![CDATA[" & rs("titolo") & "]]></title>"
strxml = strxml & "<description><![CDATA[" & rs("descrizione") & "]]></description>"
strxml = strxml & "<link><![CDATA[http www.pc-facile.com/guide/dbguide.asp?id=" & rs("idhowto") & "]]></link></item>"
rs.movenext
Loop
End if
strxml = strxml & "</channel></rss>"
' per dare l’impostazione al tipo di file in output su XML
response.ContentType = "text/xml"
response.write xml
'chiusura della connessione
rs.close
set rs=nothing
Conn.Close
set Conn=nothing
%>