Generar XML con contenido CDATA con ASP

Hola,

utilizo el siguiente código para generar un xml a partir de una consulta a una base de datos. Todo perfecto pero ahora necesito que el valor de uno de los nodos sea de tipo CDATA para poder incluirle etiquetas HTML.

He probado añadiendole <![CDATA[ como podeis ver en la linea comentada pero no me funciona.

<code>'instanciamos el XMLDOM
Set objDom = Server.CreateObject("Microsoft.XMLDOM")

'instanciamos el elemento raiz y lo agregamos al objeto XMLDOM
Set objRaiz = objDom.createElement("exposiciones")
objDom.appendChild objRaiz

Set objCategorias = objDom.createElement("exposiciones")
objRaiz.appendChild objCategorias

set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
strsql = "select * from exposiciones ORDER BY orden DESC"
set rs = Server.CreateObject("ADODB.Recordset")
rs.cursorlocation = 3
rs.Open strsql, conn, 1, 2
rs.MoveFirst()
End If
while (not rs.EOF)

Set objCategoria = objDom.createElement("noticia"&amp;rs("Id"))
objCategorias.appendChild objCategoria

Set objHijo0 = objDom.createElement("titulo")
objHijo0.Text = rs("titulo")
objHijo1.Text = "&lt;![CDATA["&amp;rs("fecha")&amp;"]]*"
objCategoria.appendChild objHijo0

rs.MoveNext()
wend
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

'instanciamos la cabecera
Set objCabecera = objDom.createProcessingInstruction("xml","version='1.0'")

'agregamos la cabecera antes del elemento raiz
objDom.insertBefore objCabecera, objDom.childNodes(0)

'finalmente grabamos el XML en disco duro
objDom.Save Request.ServerVariables("APPL_PHYSICAL_PATH") &amp; "xml/exposiciones.xml" </code>

Gracias por ayudarme