Problemas em Gerar XML pelo ASP - (UTF-8)

E ai pessoal, blza?

Seguinte, estou com um pequeno impasse quanto a um arquivo em ASP que me gera alguns XML apartir de um bando de dados .mdb!

O problema está em como o ASP salva o arquivo XML, ele está gerando com a formatação ANSI e preciso q o arquivo já seje salvo em UTF-8, pois como meu banco de dados possui caracteres especias como ç, é, etc. Utilizo esse XLM para comunicar com o flash, e o mesmo não reconheçe esses caracteres se o arquivo XML estiver com formatação ANSI.

segue o código:

<%
Response.ContentType = "text/html"
Response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8"

strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= X:\XXX\XXX\XXX\XXX\XXX\database\banco.mdb"

set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strConnection
set RSxff= Server.Createobject("ADODB.RecordSet")
RSxff.Open "SELECT distinct linha FROM produtos order by linha", objConn

do while not RSxff.EOF
Set fs = CreateObject("Scripting.FileSystemObject") 'cria
Set d = fs.CreateTextFile(server.MapPath("xml/linhas/" & RSxff("linha") & ".xml"),true)

	d.write "<?xml version="& chr(34) & "1.0"& chr(34) &" encoding="& chr(34) &"UTF-8"& chr(34) &"?>" & vbcrlf
	d.write "<images>"& vbcrlf

 set RSx= Server.Createobject("ADODB.RecordSet")
 RSx.Open "SELECT * FROM produtos where linha='"& RSxff("linha") &"' order by linha", objConn

 do while not RSx.EOF
 d.write "	<pic>"& vbcrlf
 d.write " <nomelinha>"& ucase(RSx("linha"))&"</nomelinha>"& vbcrlf
 d.write " <areferencia>"& ucase(RSx("referencia"))&"</areferencia>"& vbcrlf
 d.write " <couro>"& ucase(RSx("couro"))&"</couro>"& vbcrlf
 d.write " <cor>"& ucase(RSx("cor"))&"</cor>"& vbcrlf
 d.write " <solado>"& ucase(RSx("sola"))&"</solado>"& vbcrlf
 d.write " <image>galeria/grande/"& ucase(RSx("img"))& "</image>"& vbcrlf
 d.write " <thumbnail>galeria/pequeno/"& ucase(RSx("img"))& "</thumbnail>"& vbcrlf
 d.write "	</pic>"& vbcrlf

 RSx.MoveNext
 if RSx.EOF then Exit do
 Loop
	d.write "</images>"
	d.close()

RSxff.MoveNext if RSxff.EOF then Exit do Loop

response.write "XML GERADO COM SUCESSO!"
%>

Obrigado pela atenção!