RSS - ASP + XML Interagindo com o BD

[BrunoHP 0]

Fala galera do F.I.!

 

Sempre que precisei da ajuda do Fórum vocês me atenderam. Estarei postando toda a Script de XML com ASP interagindo com o Banco de Dados MySQL.

 

Se alguem quiser melhorar o código fique avontade.

 

No exemplo abaixo eu criei uma pasta RSS contendo um arquivo index.asp para que fique bunitim quando o usuário clicar no FEED rsrsrsrs.

 

Ex. http://www.soubrasileiro.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
%>

 

Espero ter ajudado!

[xanburzum 169]

ficou bom....

simples e funcional...

 

Aquitem um link para uma classe de rss feed, pode ser útil, para alguém