Function SendHTTPRequest(URL)

	'Create the array for the return values of this function
	Dim HTTPRequest(1)

	Set Request = CreateObject("MSXML2.XMLHTTP")
	Request.Open "POST", URL, False
	Request.Send
	HTTPRequest(0) = Request.ResponseText
	HTTPRequest(1) = Request.Status

	If (DEBUG_ON = True) Or (DebugMode = "Enabled") Then
		AddDebugLine "Response from WebServices!"
		AddDebugLine "Status: " & HTTPRequest(1)
		AddDebugLine "Body: " & HTTPRequest(0)
		ShowDebugBox "WebServices"
	End If
	
	SendHTTPRequest = HTTPRequest
End Function