Problemas con Acentos

Buenos días

Yo convierto un recordset obtenido en una pagina web a XML, de la

forma ...

Tengan en cuenta que he colocado el encoding 'ISO-8859-1' ... para

problema de acentos...

Dim cXML

cXML = "<?xml version='1.0' encoding='ISO-8859-1' standalone='no'?>" &
CHR(13)
cXml = cXml & "<lista_art>" & CHR(13)
Do While Not oRS.Eof
Campos a enviar a XML
oRS.MoveNext()
Loop
cXml = cXml + "</lista_art>"
Response.write (cXml)

El XML generado funciona al 100 % allí ... es decir me muestra los acentos
pero si lo envio a un archivo los acentos se pierden y los reemplaza
con ??

Gracias

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523