on error resume next
		
'Debug.WriteControlAudit("Trying to create Microsoft.XMLHTTP in VBScript")

Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")

if err.number <> 0 then
	'XMLHTTP object could not be created, might be old version of IE
	Debug.WriteControlAudit("ERROR - Could not create object, error number=" & err.number & ", source=" & err.Source & ", desc=" & err.Description)
	set objXmlHttp = null
	msgbox("ERROR - Could not establish communications with the LMS. You may be using an old browser." & err.number & " " & err.Description )
end if