<%@LANGUAGE="VBSCRIPT"%> <% Server.ScriptTimeout = 90 Chave = Date() Dia = Day(Chave) Mes = Month(Chave) Ano = Year(Chave) Chave = Ano &"-"& Mes &"-"& Dia %> <% Dim Categorias Dim Categorias_cmd Dim Categorias_numRows Set Categorias_cmd = Server.CreateObject ("ADODB.Command") Categorias_cmd.ActiveConnection = MM_Loja_STRING Categorias_cmd.CommandText = "SELECT * FROM nm.categoria" Categorias_cmd.Prepared = true Set Categorias = Categorias_cmd.Execute Categorias_numRows = 0 %> <% While Not Categorias.EOF Set rss = new CriaRss rss.conn = MM_Loja_STRING rss.sql = "Select top 20 nm.noticias.Noticiaid, nm.noticias.Noticiatitulo, nm.noticias.Noticiasubtitulo, nm.noticias.Noticiadata from nm.noticias WHERE nm.noticias.Noticiacategoria ="& (Categorias.Fields.Item("CategoriaID").Value) &" AND NoticiaNoAr <= CURRENT_TIMESTAMP ORDER By nm.noticias.Noticiaid desc" rss.file = server.MapPath("/rss/noticiascat"& (Categorias.Fields.Item("CategoriaID").Value) &".xml") rss.title = "Noticia da Manhã - "& Categorias.Fields.Item("CategoriaNome").value rss.link = "http://www.noticiadamanha.com.br/capa/noticias.asp" rss.description = "" rss.copyright = "Copyright Noticia da Manhã. Todos os direitos reservados." rss.webmaster = "http://www.maquinaweb.com.br" rss.imgtitle = "Noticia da Manhã" rss.imgurl = "http://www.noticiadamanha.com.br/imagens/nm.jpg" rss.imglink = "http://www.noticiadamanha.com.br/noticias" rss.imgwidth = "101" rss.imgheight = "18" rss.imgdescription = "" rss.fieldtitle = "NoticiaTitulo" rss.linkitem = "http://www.noticiadamanha.com.br/capa/lenoticia.asp?id=" rss.fieldkey = "NoticiaID" rss.fielddescription = "NoticiaSubtitulo" rss.fieldpubDate = "NoticiaNoAr" rss.nlines = 20 rss.create() Response.Write("Categoria "& (Categorias.Fields.Item("CategoriaID").Value) &" Gerada
") Categorias.Movenext() Wend Categorias.Close() Set Categorias = Nothing %>