devo fare un test di lettura di un file xml

codice:
set xmlDoc=CreateObject("Microsoft.XMLDOM")
xmlDoc.async="false"
xmlDoc.load(Server.MapPath("risultati_now.xml"))

for each x in xmlDoc.documentElement.childNodes
	document.write(x.childnodes(0).nodeValue & "
")
next
ottengo :

Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'document'
step1_vb.asp, line 19