[xanburzum]

No exemplo abaixo foi criada uma pasta RSS contendo um arquivo index.asp

Ex. http://www.site.com.br/rss

<!--#include file="conecta.asp" -->
<% 
Function PrimLetraMaiusc(v)
	Dim var, i, r
    
	r = ""
    
	var = Split(v, " ")
	For i = LBound(var) To UBound(var)
    	r = r & UCase(Left(var(i), 1)) & LCase(Mid(var(i), 2))
	If i <> UBound(var) Then r = r & " "
	Next
	PrimLetraMaiusc = r
End Function
%>
<%response.Write("<?xml version=""1.0"" encoding=""iso-8859-1""?>")%>
<%response.Write("<rss version=""2.0"">")%>

<%response.Write("<channel>")%>
<%response.Write("<generator>RSS Builder</generator>")%>
<%response.Write("<title>"&BRtituloFEED&"</title>")%>
<%response.Write("<link>http://www.soubrasileiro.com.br</link>")%>
<%response.Write("<description>15 Últimos Registros</description>")%>
<%response.Write("<language>pt-br</language>")%>
<%response.Write("<image>")%>
<%response.Write("<title>Portal Sou Brasileiro</title>")%>
<%response.Write("<url>http://www.soubrasileiro.com.br/rss/img/logo.jpg</url>")%>
<%response.Write("<link>http://www.soubrasileiro.com.br/</link>")%>
<%response.Write("</image>")%>

<!-- INÍCIO // CHAMA CONTEÚDO \\ -->
<%
Set BRrs = conecta.execute("SELECT * FROM rss WHERE status = 'S' ORDER BY data DESC")
SET rscount = conecta.execute("select count(id) as soma from rss WHERE status='S'")

vqtd=15
'vtotal = cint(rscount("soma"))
vpag = vtotal\vqtd
resto = (vtotal/vqtd) - vpag
if (resto = 0) then
   vpag = vpag-1
end if
if (trim(request("pagina"))="") then
pagina = 0
else
pagina=trim(request("pagina"))
end if

vinicio = (pagina*vqtd)

for i=0 to (vinicio-1)
   BRrs.movenext
next

if not(BRrs.eof) then 
lin = 0
do until lin=15
col = 0

do until col=1
if not (BRrs.eof) then
%>
<%response.Write("<item>")%>
<%response.Write("<title><![CDATA["&BRrs("titulo")&"]]></title>")%>
<%response.Write("<link>http://www.soubrasileiro.com.br/view"&PrimLetraMaiusc(BRrs("categoria"))&".asp?id="&BRrs("idConteudo")&"</link>")%>
<%response.Write("<PubDate>"&FormataData(BRrs("data"))&"</PubDate>")%>
<%response.Write("<description><![CDATA["&Left(BRrs("texto"),350)&"]]>...</description>")%>
<%response.Write("<author>Fonte: <![CDATA["&BRrs("fonte")&"]]></author>")%>
<%response.Write("<category>"&PrimLetraMaiusc(BRrs("categoria"))&"</category>")%>
<%response.Write("</item>")%>
<%response.Write("<br /><br />")%>
<%
BRrs.movenext
else
end if
col = col+1
loop

lin = lin +1
loop
else

end if
%>
<!-- FIM // CHAMA CONTEÚDO \\ -->

<%response.Write("</channel>")%>
<%response.Write("</rss>")%>
<%
conecta.close
set conecta = nothing
%>