Aruivo texto não grava acento

Amigos, boa tarde! Criei uma rotina em ASP que cria um arquivo com extensão XML e transfere todos os dados de uma tabela para este arquivo. O problema é que, quando finaliza e dou uma olhada no arquivo gerado, as letras que possuem acento (e que ficam no campo descricao_categoria) estão sendo substituídas por um "quadrado", como se a rotina não conseguisse gravar palavras acentuadas neste arquivo. Aqui vai o que eu escrevi:

-------------------------------------------------------------------

arquivo= "arq.xml"

set confile = createObject("scripting.filesystemobject")

set fich = confile.CreateTextFile(arquivo, True)

fich.write("<?xml version=""1.0"" encoding=""utf-8"" standalone=""yes""?>" & chr(13) & chr(10))

fich.write("<images>" & chr(13) & chr(10))

'abre o banco de dados

Call abre_conexao(conexao)

' Le informacoes das RS_Categorias

Set RS_Categorias = Server.CreateObject("ADODB.Recordset")

RS_Categorias.Open "SELECT codigo_categoria, nome_categoria, descricao_categoria, tipo, disponivel FROM Categorias WHERE disponivel='1' ORDER BY codigo_categoria", Conexao

Do While Not RS_Categorias.EOF

	fich.write(" <thumb displayNum=""10"" separation=""5"">" & chr(13) & chr(10))

	fich.write(" <image>images/foto" & RS_Categorias("codigo_categoria") & ".jpg</image>" & chr(13) & chr(10))

	fich.write(" <description>" & RS_Categorias("nome_categoria") & "</description>" & chr(13) & chr(10))

	fich.write(" </thumb>" & chr(13) & chr(10))

	RS_Categorias.MoveNext

Loop

RS_Categorias.Close

Set RS_Categorias = Nothing

fich.write("</images>")

fich.close()

set confile = Nothing

-------------------------------------------------------------------

Não consigo fazer com que este arquivo XML reconheça acento. Alguém pode me ajudar?!

Obrigado!!