Script para montar um RSS Feds para seu site

[kania 0]

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif Olá pessoal, pegeui um script de RSS Feds e adaptei para colocar em meu site, e agora estou postando aqui para quem interessar.

 

Artigo Original: http://www.linhadecodigo.com.br/Artigo.aspx?id=723

 

codigo modificado:

 

Arquivo gera_feeds.asp

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

dim var_path, var_file, var_count

var_path = server.mappath("rss")
var_file = var_path & "\" & "news.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 | Seu Crescimento Profíssional Começa Aqui!</title>"
objtstream.writeline "<link>http://www.acaoesucesso.com.br</link>"
objtstream.writeline "<description>Inscreva-se em nosso Rss Feeds e receba diariamente todas as informações de eventos da Telme.</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
%>

No TAG HEAD da pagina INDEX/DEFAULT insira a seguinte linha

 

<link rel="alternate" type="application/atom+xml" title="Ação e Sucesso" href="http://www.acaoesucesso.com.br/rss/news.xml">

Também recomendo colocar na pagina INDEX/DEFAULT do seu site um includ para o arquivo gera_feeds.asp para que toda vez que o usuário acessar seu site a pagina gera_feeds.asp seja acionada atualizando seu RSS Feeds

 

<!--'#include file="gera_feeds.asp"-->

Espero poder ter ajudado http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Marcus Guarani 0]

Bom dia Kania, tudo bem..

 

Então eu peguei esse codigo para eu testar em meu site, mas está com erro e não estou conseguindo fazer aparecer as noticias, teria como você me ajudar passo a passo...

fico no aguardo, obrigado!

 

email: marcusguarani@bol.com.br

MSN: marcus_guarani@hotmail.com