xml e asp

[puccettino]

Salve,
sto cercando di aggiornate un file .xml da uno .asp
Ho trovato ed inserito questo codice:

<%
titolo = "pippo"
Data = Now()

set xmlDom = Server.CreateObject("Microsoft.XMLDOM")
xmlDom.async = false
xmlDom.Load(Server.MapPath("test.xml"))

Set root = xmldom.documentElement
Set NuovoMessaggio = xmlDom.CreateElement("msgblock")

Set ntitolo = xmlDom.CreateNode(1,"titolo","")
ntitolo.Text = titolo
Set nMsg = xmlDom.CreateNode(1,"msg","")
nMsg.Text = Msg
Set nData = xmlDom.CreateNode(1,"data","")
nData.Text = Data

NuovoMessaggio.AppendChild ntitolo
NuovoMessaggio.AppendChild nMsg
NuovoMessaggio.AppendChild nData

root.AppendChild NuovoMessaggio
xmlDom.Save(Server.MapPath("test.xml"))
%>
Ma mi esce il seguente errore.
Qualcuno sa aiutarmi?
Grazie