Gerar arquivo .xml para RSS

[eduardojipa 0]

Gostaria de saber como gerar o arquivo xml para publicar o rss do meu site, a partir de um sistema de noticias já funcionando... existe algum plugin para Dreamwaver? por favor..Já li a matério do majour mas não tenho idéia de como gerar esse arquivo.

[quintelab 91]

Mano acho que o que eu fiz não seja a solução mais correta, mas como pesquisei muito e achei poucas coisas, fiz da seguin te forma, e funciona:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<%Response.Expires = 0 %>
<!--#include file="conexao.asp"-->
<%
Dim sql, rs
sql = "SELECT ID, CAMPO2 FROM TABELA ORDER BY ID DESC"
set rs=conn.execute(sql)



dim var_path, var_file, var_count, objfso, objtstream

var_path = server.mappath("Xml")
var_file = var_path & "\" & "Noticias.xml"

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>Ordem de Serviço</title>"
objtstream.writeline "<link>http://www.seusite.com.br</link>"
objtstream.writeline "<description>Meu Site</description>"
objtstream.writeline "<language>pt-br</language>"
objtstream.writeline "<image>"
objtstream.writeline "<title>Seu Titulo</title>"
objtstream.writeline "</image>"

while (not rs.eof)
	objtstream.writeline "<item>"
	objtstream.writeline "<title><![CDATA["&rs("id")&"]]> </title>"
	objtstream.writeline "<description>"&rs.fields.item("campo2").value&"</description>"
	objtstream.writeline "</item>"

	rs.movenext()
wend

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

objtstream.close
Set objtstream = nothing
Set objfso = nothing

Response.Redirect("Xml/Noticias.xml")
%>

Você deverá apontar o software de RSS para esta página, ela irá montar o XML e redireciona-lo.

Falows

[eduardojipa 0]

valeu, ajudou