Exportando xml

Pessoal, por favor tenho um script que consigo gerar um xml de uma pagina asp, mas quando gero o xml esta dando problemas em acentuação, ele da erro de caracter invalido.

Tem alguma coisa no xml ou no asp que eu consiga exibir os acentos normais. ?????

Obrigado

Rodrigo

segue o codigo

ASP
SQL = "select id_noticias, noti_titulo,noti_data from noticias Where noti_data = '"&vData&"' " Set Rs=conn.execute(SQL)

rs.MoveFirst

' Nome do documento XML de saida

arquivo_xml= "classificacao.xml"

' 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("<?xml version=""1.0"" encoding=""UTF-8""?>")

act.WriteLine("<noticia>")

'percorre o recordset e com o dados escreve no arquivo XML

do while not rs.eof

act.WriteLine("<time>" & rs("noti_titulo") & "</time>" )

' move para o proximo registro

rs.movenext

loop

' fecha a tag

act.WriteLine("</noticia>")

' fecha o objeto xml

act.close

Valeu...