Exportando xml

[cyberdigo 0]

Pessoal, por favor tenho um script que consigo gerar um xml de uma pagina asp, mas quando gero o xml esta dando problemas em acentuação, ele da erro de caracter invalido.

 

 

Tem alguma coisa no xml ou no asp que eu consiga exibir os acentos normais. ?????

 

Obrigado

 

Rodrigo

 

 

segue o codigo

ASP

SQL = "select id_noticias, noti_titulo,noti_data from noticias Where noti_data = '"&vData&"' "

Set Rs=conn.execute(SQL)

 

 

rs.MoveFirst

' Nome do documento XML de saida

arquivo_xml= "classificacao.xml"

' cria um arquivo usando o file system object

set fso = createobject("scripting.filesystemobject")

' cria o arquivo texto no disco com opção de sobrescrever o arquivo existente

Set act = fso.CreateTextFile(server.mappath(arquivo_xml), true)

' cabecalho do XML

act.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>")

act.WriteLine("<noticia>")

'percorre o recordset e com o dados escreve no arquivo XML

do while not rs.eof

 

act.WriteLine("<time>" & rs("noti_titulo") & "</time>" )

 

' move para o proximo registro

rs.movenext

loop

' fecha a tag

act.WriteLine("</noticia>")

 

' fecha o objeto xml

act.close

 

 

Valeu...

[Ted k' 126]

Tente assim

 

ASP

act.WriteLine("<?xml version=""1.0"" encoding=""ISO-8859-1"" ?>")

[cyberdigo 0]

Amigos, acertei o erro usanso rss mas agora esta dando erro de ponto e virgula. segue o código

 

ASP

SQL = "select id_noticias, noti_titulo,noti_data from noticias Where noti_data = '"&vData&"' "

Set Rs=conn.execute(SQL)

 

' Move para o primeiro registro

rs.MoveFirst

' Nome do documento XML de saida

arquivo_xml= "feed.rss"

' cria um arquivo usando o file system object

set fso = createobject("scripting.filesystemobject")

' cria o arquivo texto no disco com opção de sobrescrever o arquivo existente

Set act = fso.CreateTextFile(server.mappath(arquivo_xml), true)

' cabecalho do XML

act.WriteLine("<?xml version=""1.0"" encoding=""iso-8859-1""?>")

act.WriteLine ("<rss version=""2.0"">")

act.WriteLine("<times>")

'percorre o recordset e com o dados escreve no arquivo XML

do while not rs.eof

act.WriteLine("<item>")

act.WriteLine("<time>"&rs("noti_titulo")&"</time>")

act.WriteLine("</item>")

rs.movenext

loop

' fecha a tag

act.WriteLine("</times>")

act.WriteLine ("</rss>")

' fecha o objeto xml

act.close

 

 

eu substitui & por & mas não adiantou alguem sabe como fazer ??

 

Valeu

 

Tente assim

 

ASP

act.WriteLine("<?xml version=""1.0"" encoding=""ISO-8859-1"" ?>")

[Ted k' 126]

está dando erro no & ou no ponto e virgula?

[cyberdigo 0]

da esse erroUm ponto-e-vírgula era esperado. Linha: 47 Caractere: 20<time>NTC&Logística faz homenagem à Volkswagen Caminhões no Rio </time>Valeu

[Ted k' 126]

Poxa... então coloca o Server.HTMLEncode

 

ASP

act.WriteLine("<time>"&Server.HTMLEncode(rs("noti_titulo"))&"</time>")

[cyberdigo 0]

Amigo, deu o mesmo erro de ponto e virgula....Valeu

[Ted k' 126]

Agora você me desafiou (hehehe), estou vendo um desafio, faça assim rapaz

 

 

ASP

act.WriteLine("<time>"&Replace(rs("noti_titulo"), "&", "&")&"</time>")

[cyberdigo 0]

Ola, amigo pelo menos esse não deu erro, mas na pagina do feed aparece assim

 

<?xml version="1.0" encoding="utf-8"?><rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom" xmlns:cf="http://www.microsoft.com/schemas/rss/core/2005"><channel xmlns:cfi="http://www.microsoft.com/schemas/rss/core/2005/internal" cfi:lastdownloaderror="None"></channel></rss>

Ele não lista o xml no internet 7, aparece uma pagina rss mas sem nada.

Que coisa hein...Valeu pela ajuda.