VBScript and loadXML: Invalid at the top level of the document. How to fix it?

Question

This is my fort post on stackoverflow. I have searched many similiar Q&A's on this site but my conditions seem a bit different. here is my vbscript code: ------------ code snippet --------------- ``` xmlurl = "songs.xml" set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.async = False xmlDoc.loadXML(xmlurl) if xmlDoc.parseError.errorcode<>0 then 'error handling code msgbox("error! " & xmlDoc.parseError.reason) end if ``` ------------ end code snippet --------------- XML: ```

Accepted Answer

`xmlDoc.loadXML()` can load an XML string. It cannot retrieve a URL.

Use an XMLHTTPRequest object if you need to make an HTTP request.

```
Function LoadXml(xmlurl)
  Dim xmlhttp

Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
  xmlhttp.Open "GET", xmlurl, false

' switch to manual error handling
  On Error Resume Next

xmlhttp.Send
  If err.number <> 0 Then 
    WScript.Echo xmlhttp.parseError.Reason
    Err.Clear
  End If

' switch back to automatic error handling 
  On Error Goto 0

Set LoadXml = xmlhttp.ResponseXml
End Function
```

Use like

```
Set doc = LoadXml("http://your.url/here")
```

VBScript and loadXML: Invalid at the top level of the document. How to fix it?

Solution

Problem