Criando XML

[CyberDigo]

Pessoal , por favor possuo um código que gera Notícias do meu Banco de Dados em xml para poder utilizar como RSS

ele até que funciona direito eu uso o Objeto fso

O que gostaria é definir um caminho para salvar o xml onde eu determinar.

Nesse código ele salva sempre no mesmo diretório onde a página esta alocada

Obrigado

CODE

' 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 ("<rss version=""2.0"">")

act.WriteLine("<channel>")

act.WriteLine("<title>""NTCeLogistica""</title>")

act.WriteLine("<description>""Assoc Nac Transp Cargas""</description>")

do while not rs.eof

act.WriteLine("<item>")

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

act.WriteLine("<link>"&"***********************Link******************&"</link>")

act.WriteLine("<description>"&Server.HTMLEncode(rs("noti_chamada"))&"</description>")

act.WriteLine("<pubDate>"& semana &","&" "&dia&" "&mes&" "&ano&"</pubDate>")

act.WriteLine("</item>")

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

rs.movenext

loop

' fecha a tag

act.WriteLine("</channel>")

act.WriteLine ("</rss>")

' fecha o objeto xml

act.close

' Escreve um link para o arquivo xml criado

response.write " Para ver o arquivo XML gerado , clique no link a seguir <P>"

response.write "<a href='feed.rss'>feed</a> (.rss) foi criado com sucesso<br>"

response.write "em " & now() & "<br>"

[webdeveloper]

É simples, altere esta linha:

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

Para isto:

Set act = fso.CreateTextFile("C:\caminho\" & arquivo_xml, true)

Editado Dezembro 30, 2008 por webdeveloper