• 0
Sign in to follow this  
CyberDigo

Criando XML

Question

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>"

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

É simples, altere esta linha:

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

Edited by webdeveloper

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this