<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Declara variáveis
Dim fso, file_rss
'Cria os objetos
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'Cria o arquivo rss
Set file_rss = fso.CreateTextFile(server.mappath("feed/noticias.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" & 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("Copyright Enepress. Todos os direitos reservados." & Chr(13))
file_rss.WriteLine("webmaster@crossmidia.inf.br (João Nunes Rios)" & Chr(13))
'lista de noticias
file_rss.WriteLine("- " & Chr(13))
file_rss.WriteLine("Abert e FGV lançam perfil sócio-econômico do rádio no Brasil " & Chr(13))
file_rss.WriteLine("http://www.crossmidia.inf.br/Radio/noticias.asp?ncod=324" & Chr(13))
file_rss.WriteLine("Se artista pesquisado integrar conteúdo de 5 milhões de faixas agregado por parceria com Rhapsody, usuário ouve faixa inteira. " & Chr(13))
file_rss.WriteLine("http://www.crossmidia.inf.br/Radio/noticias.asp?ncod=324" & Chr(13))
file_rss.WriteLine("
" & Chr(13))
'Finaliza o RSS
file_rss.WriteLine("" & Chr(13))
file_rss.WriteLine("" & Chr(13))
'Destroi objetos
Set fso = Nothing
response.write "XML salvo!
"
response.write "Veja aqui
"
%>