XML - Extraer a xml desde una base de datos

Hola a todos. Tengo que extraer desde mi base de datos a xml las noticias del año 2006. Nose muy bien como hacerlo en mi base de datos tengo el código, titulo y fecha de la noticia y luego tengo un problema que el contenido de la noticia esta cada uno en un archivo .asp. que corresponde con el código de la base de datos. Es decir:
En BD tengo esto:
cod fecha titulo seccion
1 17/05/07 xxxxxxxxx politica
y el contenido esta en el archivo 1.asp

Tengo casi 1000 noticias y sino voy a tener que copiar una por una.
He buscado por internet alguna solución he tengo esto:

<%
session("conexion") = "c:\inetpub\wwwroot\Anuario23-03-07\"
'1- Creacion de objetos necesarios:
' Creacion de documento XML
set paqueteXML = Server.CreateObject("MSXML2.DOMDocument")
async = False
' Lectura de archivos dinamicos
Set peticion = Server.CreateObject("Microsoft.XMLHTTP")
' Objetos ADODB
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

'2- Lectura de la Base de Datos y apertura del archivo XML
conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & session("conexion") & "noticias.mdb"
set rs = conn.execute("SELECT fecha,titulo,seccion,cod FROM noticiasb ")

if not rs.eof then
set objDom= Server.CreateObject("Microsoft.XMLDOM")
set root = objDom.createelement("root")
objDom.appendchild root

'3- Iteracion de los datos del recordset
do while not rs.EOF
'4- Creacion de nodos
set nuevo_nodo =root.createNode(1, "seccion", "")
root.appendChild(nuevo_nodo)
' resto de nodos
set titulo_noticia = nuevo_nodo.createNode(1, "titulo", "")
set titulo_texto = nuevo_nodo.createTextNode(rs("titulo"))
titulo_noticia.appendChild(titulo_texto)
nuevo_nodo.appendChild(titulo_noticia)

'5- Lectura y ejecucion del archivo pertinente con objeto Microsoft.XMLHTTP
ss = PATHVIRTUALDELARCHIVO & rs("cod") & ".asp"
peticion.Open "POST", ss,False
peticion.Send
respuesta = peticion.responseText

Set objNewCDATA = nuevo_nodo.createCDATASection(respuesta)
nuevo_nodo.appendChild(objNewCDATA)

'6 - Introducir el resto de los datos
' Creacion de nuevos elementos
'7 - movimiento del cursor de rs, cierre de la iteracion (loop) y del condicional (end if)
rs.moveNext()
loop
end if

'8 - Guardar archivo XML
paqueteXML.save(PATHFISICOCONPERMISOS & "noticias.xml")
'9 - Cierre y destruccion de objetos
rs.close()
set rs = nothing
conn.close()
set conn = nothing
set peticion = nothing
set paqueteXML = nothing
%>

Pero me sale este error:

El objeto no acepta esta propiedad o método: 'root.createNode'
en está línea:
set nuevo_nodo =root.createNode(1, "seccion", "")

Alguien me puede ayudar?¿? nose mucho de xml. Muchas gracias

Se que es un post viejo,

Espero ya hayas encontrado la respuesta si no, yo estoy trabajando con VS2008 y es muy fácil, poneme un correo si necesitas

Saludos