Asp no me construye xml como quiero

[jorgeea]

HOLA, SOY NUEVO EN EL TEMA DE LA FUSION ENTRE ASP, XML, ACCESS Y FLASH.

TENGO UN ARCHIVO XML QUE ES LEIDO POR UNA PELICULA FLASH, PARA CAMBIAR DINAMICAMENTE EL CONTENIDO DEL ARCHIVO XML POR MIS CLIENTES DESDE INTERNET, HICE UN FORMULARIO QUE ALIMENTA UNA BASE DE DATOS ACCESS. EL PROBLEMA QUE TENGO ES QUE EL ARCHIVO ASP QUE TOMA LOS DATOS DE ACCESS Y LOS SOBRE ESCRIBE EN XML, NO ME LOS ESCRIBE EN LA ESTRUCTURA QUE FLASH ME LOS LEE. NECESITO QUE SEA ESTRICTAMENTE ESA EXTRUCTURA PUES AL LEERLO FLASH ME PERMITE LINKEAR EL DATO A OTRA PAGINA. ESTA ES LA ESTRUCTURA COMO NECESITO QUE ASP ME ESCRIBA EL ARCHIVO XML:

<items>
<item title="Nocitas de nuestro portal" url="http://www.serviexpress.co" description="Noticias y más noticias" />
</items>

ASI ME LO LEE FLASH

PERO ASP ME LO ESCRIBE ASI:

<Items>
<item>
<title>Nocitas de nuestro portal</title>
<url>http://www.serviexpress.co</url>
<description>Noticias y más noticias</description>
</item>
</Items>

ESTE ES EL CODIGO ES ASP

<%
'=== declare variables
Dim objConn, strConnect, strSQL, rs, tb, mdbFile, objFSO, xmlFile, objWrite

'=== filename variables
xmlFile = Server.MapPath("db/data.xml")
mdbFile = Server.MapPath("db/data.mdb")

'=== tab character for xml file
tb = chr(9)

'=== instantiate objects
set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Set objConn = Server.CreateObject( "ADODB.Connection" )

'=== connect to database
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile

'=== open/create xml file
If Not objFSO.FileExists( xmlFile ) Then objFSO.CreateTextFile( xmlFile )
set objWrite = objFSO.OpenTextFile( xmlFile, 2 )

'=== open the xml file
objWrite.WriteLine("<Items>")

strSQL = "SELECT * FROM data WHERE 1=1"
Set rs = objConn.Execute(StrSQL)

'=== loop through results
Do While not rs.EOF
objWrite.WriteLine(tb & "<item>")
objWrite.WriteLine(tb & tb & "<title>" & rs("Titulo") & "</title>")
objWrite.WriteLine(tb & tb & "<url>" & rs("url") & "</url>")
objWrite.WriteLine(tb & tb & "<description>" & rs("cuerpo") & "</description>")
objWrite.WriteLine(tb & "</item>")
rs.MoveNext
Loop

'=== finish xml file
objWrite.WriteLine("</Items>")
objWrite.Close()
%>

SE QUE DEBE SER EN LA MANERA QUE ASP DEBE ESCRIBIR LOS RESULTADOS, PERO COMO LES COMENTO SOY NUEVO EN ESTO Y NO HE PODIDO HACER QUE ASP ME LO ESCRIBA COMO ESPECIFIQUE ARRIBA. DE ANTEMANO LES AGRADEZCO ENORMEMENTE, ES UN PROYECTO PARA UN CLIENTE Y ESTOY RETRASADO PUES NO LOGRO SOLUCIONARLO...MUCHAS GRACIAS A TODOS LOS GENIOS DE ESTE SITIO.