[Resolvido] Criando XML

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