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?