[Resolvido] Criando XML

[cyberdigo 0]

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

 

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

[Filipe_Moraes 15]

Ola, é simples: procura no teu codigo a seguinte linha:

' cria o arquivo texto no disco com opção de sobrescrever o arquivo existente
Set act = fso.CreateTextFile(server.mappath(arquivo_xml), true)

Basta você adicionar as pastas, tipo, quero salvar dentro da pasta 2 que esta dentro da pasta 1:

fso.CreateTextFile(server.mappath("\pasta1\pasta2\"&arquivo_xml), true)

Ou salvar so na pasta 1:

fso.CreateTextFile(server.mappath("\pasta1\"&arquivo_xml), true)

É isso. Bom ano

[xanburzum 169]

você tb pode atribuir o caminho em uma variavel e invocar dentro do Server.Mappath

 

Server.Mappath ("eventos" &"\" &"exemplo2.asp")

inclusive, ter um arquivo de configuração, tipo um config.asp, onde nele você coloca todos os caminhos,variaveis conexões etc, e chamar apenas ele.