ASP Read XML

sub ReadXML(strFilePath)
 Dim xml
 Set xml = Server.CreateObject("Microsoft.XMLDOM")
 xml.async = False 'False, to show the data as soon as it begins to read it. -> speeded up.
 xml.load (strFilePath)

 Dim title, heading, paragraph, testHTML
 title = xml.documentElement.childNodes(0).text
 heading = xml.documentElement.childNodes(1).text
 paragraph = xml.documentElement.childNodes(2).text
 testHTML = xml.documentElement.childNodes(3).text

 Set xml = Nothing
end sub