<%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">
<canale>
<titolo>Prova</titolo>
<collegamento>http://www.miosito.it/</collegamento>
<descrizione>PRova Feed</descrizione>
<lingua>it</lingua>

<!-- #include file='connessione.asp' -->
<%
SQL = "select top 6 * from tabella order by id DESC"
set strNews = connessione.Execute(SQL)

while not strNews.EOF
  strCharNum=150 ' caratteri da visualizzare
  strCommento = strNews("commento")
  strPosizione = InStr(strCharNum-1, strCommento, " ")
%>
<item>
<title>: : "<%=strNews("titolo")%>" - "<%=strNews("autore")%>"</title>
<link>http://www.miosito.it/notizia.asp?titolo=<%=Server.URLEncode(strNews("titolo"))%></link>
<description>
<%
if strPosizione > 0 then
   Response.Write strNews("commento")
else
   Response.Write strCommento & "..."
end if
%>
</description>
</item>
<%
strNews.movenext
wend
strNews.Close
set strNews = Nothing
connessione .Close
set connessione = Nothing
%>
</canale>
</rss>