RSS Feed completo

[kania 0]

Olá pessoal,

 

Então peguei um script de RSS Feed na net e adaptei ele para o meu site, esta funcioandno perfeitinho e sem problemas.

Então oq ue eu estou querendo? http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

 

É assim, gostari de fazer um RSS Feed igual ao do site Imasters http://imasters.com.br/feeds onde eu coloque as opções de em qual Feed o usuário quer se cadastrar (a pagina dos linlks eu já montei http://www.acaoesucesso.com.br/rss.asp) e o link para o Feed de eventos já esta pronto, bem como o de todos os outros menos do Feed completo do site. É este que eu não estou entendendo como fazer?

 

Ou seja, como fazer um Feed que leia todas as tabelas do BD de uma mesma vez? Exatamente como tem no site do Imaster (inclusive achei tão bancana que tomei como idéia para montar o meu da mesma forma http://forum.imasters.com.br/public/style_emoticons/default/grin.gif ).

 

abaixo o código do Feed da minha pagina http://www.acaoesucesso.com.br/rss/eventos/

 

Pagina rss_eventos.asp

 

<!--'#include file="conexao/conexao.asp"-->
<%
Set RS = Server.CreateObject("adodb.recordset")
SQL = "select * from agenda order by ano desc, mes desc, dia asc" 
RS.Open SQL,Conn,3,3

dim var_path, var_file, var_count

var_path = server.mappath("rss/eventos/")
var_file = var_path & "\" & "eventos.xml"
var_count = 0

set objfso = server.createobject("scripting.filesystemobject")
set objtstream = objfso.createtextfile(var_file, true) 

objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"ISO-8859-1"&chr(34)&"?>"
objtstream.writeline "<rss version="&chr(34)&"2.0"&chr(34)&">"
objtstream.writeline "<channel>"
objtstream.writeline "<title>.:: Ação e Sucesso | Eventos Telme pelo Brasil</title>"
objtstream.writeline "<link>http://www.acaoesucesso.com.br</link>"
objtstream.writeline "<description>Seu Crescimento Profíssional Começa Aqui!</description>"
objtstream.writeline "<language>pt-br</language>"

while (var_count < 3) and (not rs.eof)

objtstream.writeline "<item>"
objtstream.writeline "<title>"&rs.fields.item("tipo").value&"</title>"
objtstream.writeline "<link>http://www.acaoesucesso.com.br/mostra_evento.asp?id="&rs.fields.item("id").value&"</link>"
objtstream.writeline "<description>em "&rs.fields.item("cidade").value&" no dia "&rs.fields.item("dia").value&" de "&rs.fields.item("mes").value&" de "&rs.fields.item("ano").value&"</description>"
objtstream.writeline "</item>"

var_count = var_count + 1
rs.movenext()
wend

objtstream.writeline "</channel>"
objtstream.writeline "</rss>"

objtstream.close
Set objtstream = nothing
Set objfso = nothing

rs.close
Set rs = Nothing
%>

É somente adaptar este código ou terei que construir um código novo para este caso? :blink:

[Anderson Roberto 0]

Qual a dificuldade?

[kania 0]

A dificuldade esta em como desenvolver um Feed que pegue todas as atulizações efetuadas dentro do BD, por exemplo:

 

Quero que o Feed traga as atualizações das paginas:

 

Informações de Eventos

Treinamentos do Grupo

Tutoriais

Dicas Importantes

Downloads

Links

 

Cada uma tera seu próprio Feed, mas quero colocar a disposição também uma Feed do tipo Ação & Sucesso completo ou seja todas as paginas listadas acima em um unico Feed, esta é minha dúvida, como montar este Feed deforma ele trazer todas as atualizações destas paginas?

[Anderson Roberto 0]

Se cada página possui uma query, a completa você deverá executar todas as query's.

[kania 0]

Só uma coisa Anderson, tem como eu executar ou melhor abrir varias tabelas em um mesmo select? Do tipo

 

Set RS = Server.CreateObject("adodb.recordset")
SQL = "select * from agenda,noticias,tutoriais,duvidas,downloads,links"
RS.Open SQL,Conn,3,3

Ou não da para fazer este tipo de consulta? tem que ser Select por select memso?

 

Opa respondido, acabei de testar e da certo, rsrsrs

[kania 0]

Na verdade o select deu certo, mas é claro que a consulta esta se perdenod pq todas tabelas tem o campo ID e deve estar se perdendo no momento de chamar este campo.

[Anderson Roberto 0]

Use o Union:

Select * From Tabela1 Union All
Select * From Tabela2

[kania 0]

Certo mas a montagem do Select ficaria assim para o meu caso?

 

Select * From agenda Union All
Select * From agendaOficial Union All
Select * From tutoriais Union All
Select * From duvidas Union All
Select * From downloads Union All
Select * From links order by data

Seria assim afomação do select?

 

To colocando aqui o link do meu site que mostra os Feed para ficar mais simples de entender o que estou tentnado fazer http://www.acaoesucesso.com.br/rss.asp

[Anderson Roberto 0]

É isso mesmo, faça um teste.

[kania 0]

Fera, estou com um erro dentro do Feed que só agora notei, ele não est atualizando quando é adicionado um lovo intem no BD, já rebisei o código e não acjei o porque. Estou colocando o código de uma das apginas abaixo apra você analizar comigo.

 

<!--'#include file="conexao/conexao.asp"-->
<%
Set RS = Server.CreateObject("adodb.recordset")
SQL = "select * from duvidas order by data desc" 
RS.Open SQL,Conn,3,3


'dim var_path, var_file, var_count

var_path = server.mappath("rss/dicas/")
var_file = var_path & "\" & "dicas.xml"
var_count = 0

set objfso = server.createobject("scripting.filesystemobject")
set objtstream = objfso.createtextfile(var_file, true) 

objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"ISO-8859-1"&chr(34)&"?>"
objtstream.writeline "<rss version="&chr(34)&"2.0"&chr(34)&">"
objtstream.writeline "<channel>"
objtstream.writeline "<title>.:: Ação e Sucesso | Dicas Importantes</title>"
objtstream.writeline "<link>http://www.acaoesucesso.com.br</link>"
objtstream.writeline "<description>Seu Crescimento Profíssional Começa Aqui!</description>"
objtstream.writeline "<language>pt-br</language>"

while (var_count < 3) and (not rs.eof)

objtstream.writeline "<item>"
objtstream.writeline "<title>"&rs.fields.item("duvida").value&"</title>"
objtstream.writeline "<link>http://www.acaoesucesso.com.br/duvidas.asp</link>"
objtstream.writeline "<description>"&rs.fields.item("duvida").value&"</description>"
objtstream.writeline "</item>"

var_count = var_count + 1
rs.movenext()
wend

objtstream.writeline "</channel>"
objtstream.writeline "</rss>"

objtstream.close
Set objtstream = nothing
Set objfso = nothing

rs.close
Set rs = Nothing
%>

Na verdade é assim, esta atualizando a pagina do Feed, porem não atualiza o Outlook por exmplo que é onde eu recebo as informações como se fosse e-mail.

[kania 0]

Na verdade acabei de notar o seguinte, este probela esta acontecendo no Internet Explore, acredito que por isso não esta atualizando o Outlook, no Firefox atualiza normal, inclusive a própria pagina do Feed no IE não est atualizando com a nova infomração ijserida no BD, enquando no Firefox fica correto.

[Adilson_Web_2007 0]

Eu gostaria de fazer esse RSS Feed você poderia me explicar como funciona? Eu percebi que você colocou um rquivo xml. Os dados estão nesse arquivo xml. Desde já eu agreço. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[kania 0]

De uma olhada no script que coloquei no forum, nele esplica certinho como montar o RSS Feed, qualquer dúvida me avise.

 

http://forum.imasters.com.br/index.php?showtopic=278227

[Adilson_Web_2007 0]

Eu li seu topico no laboratorio mas eu percebi que você usa xml. Quais informações tem no xml para eu criar um aqui para testar.

 

Parece meio burra minha pergunta estou tentando entender para que server o RSS Feed , por favor se você puder me dar uma informação mais detalhada te agradeço.