modificar xml desde asp

[sqa212]

Tengo este archivo xml: calendario.xml

Código:

<?xml version="1.0" encoding="ISO-8859-1"?>
	<calendario>
	<cita fecha="11-11-2006" titulo="Breve descripcion" descripcion="Descripcion" />
	<cita fecha="13-11-2006" titulo="Examen" descripcion="Examenes" />
	<cita fecha="24-11-2006" titulo="Fin" descripcion="Termina" />
</calendario>

Desde asp veo el contenido de cada cita: obtenerdatosXML.asp

Código:

<%
set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
xmldoc.async=false
xmldoc.load(server.MapPath("calendario.xml"))
for each x in xmldoc.documentElement.childNodes
   response.write(x.NodeName) & "<BR>"
   Response.Write(x.getAttribute("fecha") & "<br>")
   Response.Write(x.getAttribute("titulo") & "<br>")
   Response.Write(x.getAttribute("descripcion") & "<br>")
next
%>

¿Como hago para añadir una nueva cita desde Asp?

[u_goldman]

Necesitas utilizar appendChildNode al elemento padre que necesites agregarle nodos:

http://www.topxml.com/xml_dom/appendchild.asp

Saludos

[sqa212]

gracias u_goldman

de esta forma añado una nueva cita:

<%
set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
xmldoc.async=false
xmldoc.load(server.MapPath("calendario.xml"))

Dim objCita
Set objCita = xmldoc.createElement("cita")
xmldoc.documentElement.appendChild objCita
xmldoc.save (server.MapPath("calendario.xml"))
%>


¿Como podria insertarle atributos?