Function GetContents(url)
	Dim oXH
	Set oXH = CreateObject("MSXML2.XMLHTTP")
	oXH.Open "GET", url, False
	oXH.Send
	on error resume next
	GetContents = oXH.ResponseText
	if err.Number <> 0 then
		GetContents = "The requested file '" & url & "' could not be located"
	end if
	Set oXH = Nothing
End Function