Ir para conteúdo

POWERED BY:

Arquivado

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

ProgramadorASP

RSS

Recommended Posts

Seguinte galera!!To precisando montar um algoritmo para exibicao das minhas noticias em RSS.Tenho o seguinte problema:para cada noticia tenho que ter um arquivo HTML , onde sera exibida a NOTICIA de acordo com o link XML.Ai e que esta o problema, nao temos um numero exato de noticia a serem cadastradas, consequetemente tb nao temos o numero exato de arquivos HTML.No entanto preciso, fazer uma programacao que faca o seguinte:- Quando eu cadastrar uma nova noticia, seje criado um novo arquivo HTML- e quando seje excluido uma noticia, seje excuido o respectivo arquivo HTML.Sera que um Loop com varias rotinas, funcoes, nao seria a solucoes do meu problema!!Sera que eu consigo fazer uma funcao em ASP!?!?!?!? :unsure:

Compartilhar este post


Link para o post
Compartilhar em outros sites

Quero 700 pila.

Fui eu que fiz. Ele gera o xml, mas tem que acessar essa pagina sempre. Então na inserção da noticia bota um include pra essa pagina ai que fica beleza.

 

ASP

[*]<%Set cnNoticias = Server.CreateObject("ADODB.Connection")

[*]cnNoticias.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Noticias/Noticias.mdb")

[*]

[*]SQLNot = "SELECT TOP 10 * FROM Noticias WHERE Status = 'Ativado' ORDER BY NotID DESC"

[*] Set RsNot = cnNoticias.Execute(SQLNot)

[*]

[*]Set fso = CreateObject("Scripting.FileSystemObject")

[*]Set textStreamObject = fso.CreateTextFile(Server.MapPath("rss_noticias.xml"),true,false)

[*]

[*]textStreamObject.WriteLine("<?xml version='1.0' encoding='iso-8859-1'?>")

[*]textStreamObject.WriteLine("<rss version='2.0'>")

[*]textStreamObject.WriteLine(" <channel>")

[*]textStreamObject.WriteLine(" <title>UPBalada - Por cima de todas as baladas.</title>")

[*]textStreamObject.WriteLine(" <link>http://www.upbalada.com/</link>")

[*]textStreamObject.WriteLine(" <description>UPBalada.</description>")

[*]textStreamObject.WriteLine(" <language>pt-br</language>")

[*]textStreamObject.WriteLine(" <category>Outros</category>")

[*]textStreamObject.WriteLine(" <copyright>UPBalada - Todos os direitos reservados.</copyright>")

[*]textStreamObject.WriteLine(" <image>")

[*]textStreamObject.WriteLine(" <title>UPBalada.com</title>")

[*]'textStreamObject.WriteLine(" <url>http://www.upbalada.com/ImagensSite/Modelo_01.gif</url>")

[*]textStreamObject.WriteLine(" <link>http://www.upbalada.com/</link>")

[*]textStreamObject.WriteLine(" </image>")

[*]

[*]'Começo dos itens a serem exibidos como noticias

[*]'Local para um loop

[*]

[*]Do While Not RsNot.EOF

[*]Titulo = RsNot("Titulo")

[*]Titulo = Replace(Titulo, "&", "&")

[*]

[*]textStreamObject.WriteLine(" <item>")

[*]textStreamObject.WriteLine(" <title>"&Titulo&"</title>")

[*]textStreamObject.WriteLine(" <link>http://www.upbalada.com/vernoticia.asp?NotID="&RsNot("NotID")&"</link>")

[*]textStreamObject.WriteLine(" </item>")

[*]RsNot.MoveNext

[*]Loop

[*]

[*]'Fim dos itens

[*]

[*]textStreamObject.WriteLine(" </channel>")

[*]textStreamObject.WriteLine("</rss>")

[*]%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

deve ser zueira PROGRAMADOR ASP ....senão ele num poria o código ai pra você pegar !!!! rsss

não eh não...

 

sou empresario dele é 400 pra ele e 300 pra mim...

 

pede o numero da conta correte por MP que te passo...

Compartilhar este post


Link para o post
Compartilhar em outros sites

não eh não...sou empresario dele é 400 pra ele e 300 pra mim...pede o numero da conta correte por MP que te passo...

essa foi boaa rsss !!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

a explicação custa mais 500 hehehe.

era zueira.

relax é di gratis. hehehhehe

O mario é meu empresário sim.

mas ele não precisa ficar sabendo.

hehehehehheh

ahauhauahuh, essa foi boa

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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