<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if not (Session("login") = true and Session("Usuario") <> empty) then
response.redirect "default.asp"
end if
response.charset = "iso-8859-1"
response.expires = -1
dim codSecao
codSecao = cint(request.querystring("sec"))
if codSecao = empty then response.end
dim sql, rs, rs2
sql = "SELECT noticias.codigo AS codigo, "
sql = sql & "noticias.codigo_secao AS codigo_secao, "
sql = sql & "noticias.titulo AS titulo, "
sql = sql & "noticias.chamada AS chamada, "
sql = sql & "noticias.rss AS rss, "
sql = sql & "secao.cod AS codSec, "
sql = sql & "secao.nome_secao AS nomeSec, "
sql = sql & "secao.nome_secao_url AS secUrl, "
sql = sql & "feeds.data AS dataFeed, "
sql = sql & "feeds.codigo_secao AS codFeed, "
sql = sql & "noticias.data AS data from noticias INNER JOIN secao INNER JOIN feeds on (secao.cod = noticias.codigo_secao AND noticias.codigo_secao = feeds.codigo_secao)"
sql = sql & "WHERE noticias.codigo_secao="&codSecao&" AND noticias.rss='nao'"
sql = sql & " AND date(noticias.data) >= date(feeds.data)"' AND day(noticias.data) >= day(feeds.data)"
sql = sql & " order by noticias.data desc limit 0,5"
call AbreCon
set rs = conexao.execute(sql)
if rs.eof then
response.write "Não há novos itens."
response.end
else
Dim fso, file_rss
dim url
'Cria os objetos
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'Cria o arquivo rss
Set file_rss = fso.CreateTextFile(server.mappath("./feed/"&lcase(rs("secUrl"))&".rss"), True)
'Escreve os cabeçalhos do xml
file_rss.WriteLine("" & Chr(13))
file_rss.WriteLine("" & Chr(13))
file_rss.WriteLine("" & Chr(13))
file_rss.WriteLine("Crossmidia - "&rs("nomeSec")&"" & Chr(13))
file_rss.WriteLine("http://www.crossmidia.inf.br" & Chr(13))
file_rss.WriteLine("Notícias" & Chr(13))
file_rss.WriteLine("pt-br" & Chr(13))
file_rss.WriteLine("webmaster@crossmidia.inf.br (João Nunes Rios)" & Chr(13))
file_rss.WriteLine("Copyright Enepress. Todos os direitos reservados." & Chr(13))
'lista de noticias
do while not rs.eof
url="http://www.crossmidia.inf.br/"&rs("secUrl")&"/noticias.asp?ncod="&rs("codigo")
set rs2 = conexao.execute("update noticias set rss='sim' where codigo="&rs("codigo"))
file_rss.WriteLine("- " & Chr(13))
file_rss.WriteLine(""&rs("titulo")&"" & Chr(13))
file_rss.WriteLine(""&left(formatdatetime(now,1),3)&", "&day(now)&" "&left(monthname(month(now)),3)&" "&year(now)&" "&formatdatetime(now, 3)&"" & Chr(13))
file_rss.WriteLine(""&url&"" & Chr(13))
file_rss.WriteLine(""&url&"" & Chr(13))
file_rss.WriteLine("" & Chr(13))
file_rss.WriteLine("
" & Chr(13))
set rs2=nothing
rs.movenext
loop
'Finaliza o RSS
file_rss.WriteLine("" & Chr(13))
file_rss.WriteLine("" & Chr(13))
dataAtual = year(now)&"-"&month(now)&"-"&day(now)&" "&hour(now)&":"&minute(now)&":"&second(now)
set rs3 = conexao.execute("update feeds set data = '"&dataAtual&"' where codigo_secao = "&codSecao)
'Destroi objetos
Set fso = Nothing
set rs2 = nothing
set rs3 = nothing
end if
set rs=nothing
call FechaCon
response.write "Arquivo atualizado!"
%>