Problemas de lectura de XML en ASP

[Motki]

hola,
tengo un problemilla a ver si me podéis ayudar.
Estoy trabajando con XML y ASP
He guardado en mi BD un xml que he obtenido de la llamada
a un microsite
El formato con el que lo tengo guardado en la BD es con
Server.HTMLEncode(XmlReserva),
es decir , lo tengo guardado asÍ:

Código PHP:

  <res><dpr><hor></hor><mon>EU</mon><bas>426,00</bas><sup>140,00</sup> 
   

ahora lo quiero tratar en mi página y para ello cuando invoco
a la funcion de carga XMl
xmlReserva = Rs("xmlReserva")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.loadXML (xmlReserva)
me dá error de lectura... es como si no interpretara los tag's correctamente del xml..
como lo puedo volver a decodificar para que se quede así ????:

Código PHP:

  <res><dpr><hor></hor><mon>EU</mon><bas>426,00</bas><sup>140,00</sup><tas></tas><des></des></res> 
   

[tammander]

Pasale un replace para volverlo a convertir en XML

dato = replace(dato, "&lt;", "<")
dato = replace(dato, "&gt;", ">")

el resultado será una cadena en formato XML.


Un saludo

[Motki]

gracias, pero he encontrado una funcion que lo
que hace es volver a codificar los tags HTML

La pongo aquí para quien le pueda interesar :

Código PHP:

  Function HTMLDecode(byVal encodedstring) 
    Dim tmp, i 
    tmp = encodedstring 
    tmp = Replace( tmp, """, chr(34) ) 
    tmp = Replace( tmp, "<"  , chr(60) ) 
    tmp = Replace( tmp, ">"  , chr(62) ) 
    tmp = Replace( tmp, "&" , chr(38) ) 
    tmp = Replace( tmp, " ", chr(32) ) 
    For i = 1 to 255 
        tmp = Replace( tmp, "&#" & i & ";", chr( i ) ) 
    Next 
    HTMLDecode = tmp 
End Function 
   

[00siete]

¿ Por curiosidad, por qué no lo guardas en la base de datos en el formato XML original ?

La función que has puesto para codificar de nuevo está bien pero no cubre todos los casos. Hay muchas más entities aparte de las que estás tratando. Por ejemplo: aacute, copy, cent, pound, ...
Puedes ver una lista aquí: http://www.w3.org/TR/REC-html40/sgml/entities.html