Guardar resultado ASP a XML

[registros_r2]

Buenos días,
Como dice el titulo, tengo una pagina web en ASP que funciona perfectamente y me saca datos de una base de datos y lo presento en formato xml. Hasta ahora lo que hacia era ir a esta pagina web que es lista.asp. Lo que me salia en el navegador le daba con el botón derecho del ratón y guardar como en una carpeta en formato lista.xml.

ahora necesito ayuda para saber si se puede hacer que se guarde automáticamente en lista.xml en cuanto yo visite la pagina lista.asp se guarde en el directorio listas del servidor ya en formato xml sin tener que dar boton derecho guardar como.

mi código es:

Código:

<%@LCID = 1042%>
<%%>
<%
set oConn =  Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM CONTACTOS"
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/lista.mdb")
rs.Open SQL, oConn, 1, 1
%>

<% 
Response.ContentType="text/xml"
Response.Write("<?xml version='1.0' encoding='UTF-8'?>") 
Response.Write("<Book>") 
%>
<% while not rs.EOF%>
<%
Response.Write("<Contact>")
Response.Write("<id>PN"& rs("id") &"</id>")
Response.Write("<Name>"& rs("NOMBRE") &"</Name>")
Response.Write("<Phone>")
Response.Write("<phonenumber>"& rs("TELF") &"</phonenumber>")
Response.Write("</Phone>")
Response.Write("</Contact>")
%>
<%rs.movenext 
wend%>
<%
Response.Write("</Book>")

%>

Espero que me puedan ayudar.
gracias

[registros_r2]

Hola buenos días,
he encontrado una solución en este foro y me guarda el documento en xml, pero necesito ayuda para poner "un sub hijo", os pongo un ejemplo de como se guarda mi xml y como lo necesito, creo que tengo que poner un subitem dentro del child pero no se como hacerlo.

el codigo que tengo ahora es

Código:

<%
set oConn =  Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM CONTACTOS"
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/lista.mdb")
rs.Open SQL, oConn, 1, 1
%>
<%
Dim objXML, objXML1, objNews, objNews1, objCabecera
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
Set objXML.documentElement = objXML.createElement("AddressBook")
Set objNews = objXML.createElement("Contact")

' Crea los Sub Item

objNews.appendChild objXML.createElement("id")
objNews.appendChild objXML.createElement("FirstName")
objNews.appendChild objXML.createElement("Phonenumber")

'Asignar Valores a los SubItem
%>
<%
while not rs.EOF
objNews.childNodes(0).text = "PN" &rs("id")
objNews.childNodes(1).text = rs("NOMBRE")
objNews.childNodes(2).text = rs("TELF")


objXML.documentElement.appendChild objNews.cloneNode(true)

rs.movenext 
wend
%><%
Set objCabecera = objXML.createProcessingInstruction("xml","version= '1.0' encoding='UTF-8'") 
'agregamos la cabecera antes del elemento raiz 
objXML.insertBefore objCabecera, objXML.childNodes(0) 
'finalmente grabamos el XML en disco duro 
objXML.Save "c:\book.xml" 
Response.Write "Archivo XML Creado 01"
%>

yo quiero que el xml se guarde de esta forma

Código:

<?xml version="1.0" encoding="UTF-8"?>
<Book>
   -<Contact>
      <id>PN1</id>
      <FirstName>UTS</FirstName>
      -<Phone>
            <phonenumber>7089</phonenumber>
       </Phone>
   </Contact>
</Book>

pero me sale asi

Código:

<?xml version="1.0" encoding="UTF-8"?>
<Book>
    -<Contact>
      <id>PN1</id>
      <FirstName>UTS</FirstName>
      <phonenumber>7089</phonenumber>
    </Contact>
</Book>

[registros_r2]

Hola,
Alguien me puede echar una mano?
gracias