xml creato in asp e problema con gli apostrofi

[Psycho Mantys]

Premetto che so poco di asp e nulla di xml , avrei la necessità di creare un rss ma ho un problema con i risultati che ottengo dato che al posto degli apostrofi ottengo il codice & # 3 9 ;
Il fatto è che nel database access il valore dell'apostrofo è già & # 3 9; ma io in uscita vorrei che mi dasse " ' "

Ho provato col replace (come da codice sotto) ma non mi funziona. Come posso fare?

Scusate per il Il codice è un po' sporco, ma sto andando un po' a tentativi :/

<%

'Stringa di connessione al nostro Data Base di news
'da modificare in base al percorso del vostro Data Base

'StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
 '     server.MapPath("/database") & "\libri.mdb"
      
      
Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/database/libri.mdb") 
Set RS = Server.CreateObject("ADODB.Recordset") 
      

'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open StrConnessione

'Istruzione SQL che prende le news dal Data Base;
'da cambiare con il nome della vostra tabella ed i nomi dei campi
SQL = "SELECT * FROM Libri ORDER BY ID DESC"

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open SQL, Conn, 1,1

titolo_libro = Replace (titolo_libro,"'","'")


' Numero totale di records
totfiles = rs.recordcount

'xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & _
xml = "<?xml version=""1.0"" encoding=""windows-1252"" ?> " & _
      "<rss version=""0.91""><channel><title>Gli ultimi libri inseriti</title>" & _
      "<description>I libri della vetrina</description>" & _
      "<link>[url]www.miosito.com[/url]</link><language>it</language>"

'Se il Record Set non è vuoto
if totfiles <> 0 then
  Do while not rs.eof
    xml = xml & "<item>"
    xml = xml & "<title><![CDATA[" & rs("titolo_libro") & "]]></title>"
    xml = xml & "<description><![CDATA[[img]" & rs("url_immagine") & "[/img]
" & rs("descrizione_libro") & "

Genere: " & rs("Genere") & "
Prezzo: € " & rs("Prezzo") & " ]]></description>"
    xml = xml & "<link><![CDATA[[url]http://[/url]" & rs("url_sito") & "]]></link></item>"
  
    rs.movenext
  Loop
End if

xml = xml & "</channel></rss>"

' Impostazione che setta il tipo di file in output su XML
response.ContentType = "text/xml"
response.write xml

'Libero Risorse
rs.close
set rs=nothing
Conn.Close
set Conn=nothing
%>