runtime error '800a01a8' - parsing XML with ASP

[cm80]

Hi,
I am getting the following error and I haven't got a clue why!

Microsoft VBScript runtime error '800a01a8'

Object required: 'True'

/bsci98/cmurphy/ResearchProject/weathertest.asp, line 41



line 41 is highlighted in red below.
If anyone can help I would really appreciate it...please!!!


<%

'set xmlDoc=CreateObject(&quot;Microsoft.XMLDOM&quot
'xmlDoc.async=&quot;false&quot;
'xmlDoc.load(&quot;weathertest.xml&quot


Dim oDocument
Dim sXMLFile
Dim xmlDoc

sXMLFile = &quot;weather.xml&quot;

'Create instance of XML document object
Set oDocument = Server.CreateObject(&quot;MSXML2.FreeThreadedDOMDocument.3.0&quot
If oDocument is Nothing Then
Response.Write &quot;oDocument object not created<br>&quot;
Else
If Err Then
Response.Write &quot;XML DomDocument Object Creation Error - <BR>&quot;
Response.write Err.Description
Else
'Load up the XML document into the XML object
oDocument.async = False
xmlDoc= oDocument.load(Server.MapPath(sXMLFile))

If (xmlDoc= False) Then
'Failed to parse so write out an error
response.write &quot;failed&quot;
Else
dim x
response.write &quot;test&quot;

for each x in xmlDoc.documentElement.childNodes

Response.write(x.nodename)
Response.write(&quot;: &quot
Response.write(x.text)
next

End If
End If
End If
%>