Module: Reorg / Cleanup

archive/Modules/Archiv/SendHTTPRequest.vbs

@@ -0,0 +1,20 @@
+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