' SendHTTPRequest(URL : String)
' ----------------------------------------------------------------------------
' KURZBESCHREIBUNG
' 
' Returns: SendHTTPRequest : String
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author:   10.08.2020 / MK
' Version Date / Editor:    10.08.2020 / MK
' Version Number:           1.0.0.0

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