Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

maurohpg

asp gerando xml

Por , em ASP Clássico

Recommended Posts

maurohpg    0

maurohpg
Postado

Fiz um sistema que gera um XML que pega noticias do banco acontece que fiz ele pegar de acordo com o cod_canal 3 como vcs podem ver abaixo, agora num sei como fazer isso: pegar outras 2 categorias sendo cod_canal 2 e cod_canal 1 queria pegar 3 noticias de cada um não sei como fazer isso o asp pegar 3 noticias e o xml gerar 3 noticias de cada de acordo com a categoria. O código abaixo está funcionando perfeitamente.Isso é o que está gerando:http://www.americamagica.com.br/ecologia/rss/news.xmlE essa página gera o XML:http://www.americamagica.com.br/ecologia/generate.aspSe alguém poder me ajudar agradeço desde já!!!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="../Connections/conn_am.asp" --><%Dim rsNoticiasDim rsNoticias_numRowsSet rsNoticias = Server.CreateObject("ADODB.Recordset")rsNoticias.ActiveConnection = MM_conn_am_STRINGrsNoticias.Source = "SELECT * FROM notícias WHERE cod_canal = 3 AND publicado = Yes ORDER BY data DESC"rsNoticias.CursorType = 0rsNoticias.CursorLocation = 2rsNoticias.LockType = 1rsNoticias.Open()rsNoticias_numRows = 0 %><%dim var_path, var_file, var_countvar_path = server.mappath("rss")var_file = var_path & "\" & "news.xml"var_count = 0set 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>América Mágica</title>"objtstream.writeline "<link>http://www.americamagica.com.br</link>"objtstream.writeline "<description>Agência de Viagem - roteiros e notícias</description>"objtstream.writeline "<language>pt-br</language>"while (var_count < 3) and (not rsNoticias.eof)objtstream.writeline "<item>"objtstream.writeline "<title>"&rsNoticias.fields.item("titulo").value&"</title>"objtstream.writeline "<link>http://www.americamagica.com.br/ecologia/noticias.asp?cod="&rsNoticias.fields.item("cod_noticia").value&"</link>"objtstream.writeline "</item>"var_count = var_count + 1rsNoticias.movenext()wendobjtstream.writeline "</channel>"objtstream.writeline "</rss>"objtstream.closeSet objtstream = nothingSet objfso = nothing%><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Untitled Document</title><style type="text/css"><!--.style2 { font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold;}--></style></head><body><a href="http://www.americamagica.com.br/ecologia/rss/news.xml" class="style2">RSS</a></body></html><%rsNoticias.Close()Set rsNoticias = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

maurohpg    0

maurohpg
Postado

Galera consegui fazer o que eu queria, quem quiser ta ai!

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="../Connections/conn_am.asp" --><%Dim rsTradeDim rsTrade_numRowsSet rsTrade = Server.CreateObject("ADODB.Recordset")rsTrade.ActiveConnection = MM_conn_am_STRINGrsTrade.Source = "SELECT *  FROM notícias  WHERE cod_canal = 1 AND publicado = Yes  ORDER BY data DESC"rsTrade.CursorType = 0rsTrade.CursorLocation = 2rsTrade.LockType = 1rsTrade.Open()rsTrade_numRows = 0 %><%Dim rsEcologiaDim rsEcologia_numRowsSet rsEcologia = Server.CreateObject("ADODB.Recordset")rsEcologia.ActiveConnection = MM_conn_am_STRINGrsEcologia.Source = "SELECT *  FROM notícias  WHERE cod_canal = 3 AND publicado = Yes  ORDER BY data DESC"rsEcologia.CursorType = 0rsEcologia.CursorLocation = 2rsEcologia.LockType = 1rsEcologia.Open()rsEcologia_numRows = 0 %><%Dim rsTurismoDim rsTurismo_numRowsSet rsTurismo = Server.CreateObject("ADODB.Recordset")rsTurismo.ActiveConnection = MM_conn_am_STRINGrsTurismo.Source = "SELECT *  FROM notícias  WHERE cod_canal = 2 AND publicado = Yes  ORDER BY data DESC"rsTurismo.CursorType = 0rsTurismo.CursorLocation = 2rsTurismo.LockType = 1rsTurismo.Open()rsTurismo_numRows = 0 %><%dim var_path, var_file, var_countvar_path = server.mappath("rss")var_file = var_path & "\" & "news.xml"var_count = 0set 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>América Mágica</title>"objtstream.writeline "<link>http://www.americamagica.com.br</link>"objtstream.writeline "<description>Agência de Viagem - roteiros e notícias</description>"objtstream.writeline "<language>pt-br</language>"while (var_count < 3) and (not rsEcologia.eof)objtstream.writeline "<item>"objtstream.writeline "<title>"&rsEcologia.fields.item("titulo").value&"</title>"objtstream.writeline "<link>http://www.americamagica.com.br/ecologia/noticias.asp?cod="&rsEcologia.fields.item("cod_noticia").value&"</link>"objtstream.writeline "</item>"var_count = var_count + 1rsEcologia.movenext()wendwhile (var_count < 6) and (not rsTurismo.eof)objtstream.writeline "<item>"objtstream.writeline "<title>"&rsTurismo.fields.item("titulo").value&"</title>"objtstream.writeline "<link>http://www.americamagica.com.br/turista/noticias.asp?cod="&rsTurismo.fields.item("cod_noticia").value&"</link>"objtstream.writeline "</item>"var_count = var_count + 1rsTurismo.movenext()wendwhile (var_count < 9) and (not rsTrade.eof)objtstream.writeline "<item>"objtstream.writeline "<title>"&rsTrade.fields.item("titulo").value&"</title>"objtstream.writeline "<link>http://www.americamagica.com.br/trade/noticias.asp?cod="&rsTrade.fields.item("cod_noticia").value&"</link>"objtstream.writeline "</item>"var_count = var_count + 1rsTrade.movenext()wendobjtstream.writeline "</channel>"objtstream.writeline "</rss>"objtstream.closeSet objtstream = nothingSet objfso = nothing%><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Untitled Document</title><style type="text/css"><!--.style2 {	font-family: Arial, Helvetica, sans-serif;	font-size: 12px;	font-weight: bold;}--></style></head><body><a href="http://www.americamagica.com.br/ecologia/rss/news.xml" class="style2">RSS</a></body></html><%rsEcologia.Close()Set rsEcologia = Nothing%><%rsTurismo.Close()Set rsTurismo = Nothing%><%rsTrade.Close()Set rsTurismo = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fernando_Bittencourt    0

Fernando_Bittencourt
Postado

galera, aproveitando a deixa;queria fzr um esquema com XML, mas nao sei se vale a pena, pois existe a possibilidade de mtos dadosalguem sabe qual o tamanho max. recomendado pra um xml rodar lgl???obs.: eh numa aplicacao windows...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito