ADO Saved objRS to XML CharSet Encoding Problem

I have a problem using the ADO Recordset's Save Method (Saving as XML), as this method can only (as far as I know) save the Recordset in the UTF-8 encoding charset.

I am using XML Islands to display and filter the resulting XML Document (applying some XSLT for the looks, sorting and filtering)

The problem comes when the Resulting XML file contains certain NON COMPLIANT Characters like the Ñ, á, í, ñ, characters that are iso-8859-1 charset compliant, the data island simply returns no results, even tough the xml file contains the results, but the thing is that the file contains the previously described characters in UTF-8 format, wich the MSXML Parser (on the Javascript side of this script) seems can not handle.

I need to find a workaround to solve this problem, I was thinking about making an ASP component to wich I could pass the recordset and the component would save to a file or to an object (as the Stream Object) the resulting XML (iso-8859-1 encoding), but if someone has a better approach I would really appreciate.

Here I post part of the code wich I am using for the XML transformation, is the ASP part, I need this transformation in order to use the resulting XML, because the save method of the recordset returns it in a propietary way.

Part of this code I took it from an article at
http://www.eggheadcafe.com/articles/20011108.asp

=========== My ASP Code =========
Set objRS = adocmd1.Execute
'=========== XML DOCS GENERATION ===========
Const adPersistXML = 1
Dim objXMLDOM
Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument.4.0")
Set ObjStream = Server.CreateObject("ADODB.Stream")
ObjStream.Open
ObjStream.Charset = "iso-8859-1"
'somewhere I read that if I pass the saved recordset to an stream object wich has the iso charset, the result would be encoded in iso, but this didn't work

objRS.save ObjStream, adPersistXML

objXMLDOM.load(ObjStream)

ObjStream.close
Set ObjStream = Nothing

'=========== Transformar el XML del SAVE a formato Comprensible en XSLT

Dim strCleanXML, objXMLDOM_XSLT

Set objXMLDOM_XSLT = CreateObject("MSXML2.DOMDocument.4.0")
'Set objXMLDOM_XSLT = CreateObject("MSXML2.DOMDocument.3.0")

'=========== Este es el XSLT de la transformación
objXMLDOM_XSLT.load(Server.MapPath("xml/xslt/RecordsetCleaner3.xsl"))

'=========== Este es el XSLT de la transformación
strCleanXML = objXMLDOM.transformNode(objXMLDOM_XSLT)
Set objXMLDOM = Nothing
Set objXMLDOM_XSLT = Nothing

The resulting strClean is the XML complete String, wich later I save to an XML document, for further reference in my xml data island.

I have read a lot of articles wich say this can be solved by putting another charset declaration in the xml file like this in the xml data island declaration in the html

<xml id="records" src="xml/usrfiles/1234.xml"></xml><?xml version="1.0" encoding="iso-8859-1"?>

I have also tried puting UTF-8 instead of the iso, but with no positive results.

Any help will be appreciated.

I already solve it, it was all in the encoding declaration, at both, the final xml, and the XSLT

here I post the fix, and the code

======================

and this here bellow are the first lines of the XSLT
in wich I declare the charset in wich the recordset was delivered, I think this also helped, since the save method of the ADO recordset object always gives the UTF-8 encoding, then I put that encoding in the XSLT

as this



Hope this helps someone