Code:
If Request.TotalBytes > 0 Then
req_bytes = Request.BinaryRead(tot_bytes)
'Parse POSTed request JSON
reqArgsString = BytesToStr(req_bytes)
reqArgsArray = Split(reqArgsString, "&")
For i = 0 To UBound(reqArgsArray)
reqArgsArray(i) = Split(reqArgsArray(i), "=")
Next
'Decode base64 image from JSON POST to BytesArray'
base64Encoded = URLDecode(reqArgsArray(1)(1))
base64Decoded = decodeBase64(base64Encoded)
'Response.Write base64Decoded
'' GoTo Done
'DB Connection Object
'Set cn = Server.CreateObject("ADODB.Connection")
'ConnStr="DRIVER=SQL Server;SERVER=161.196.101.140;UID=sa;PWD=P@ssw0rdsql;Database=ContinuumDB"
'cn.Open ConnStr
'Dim strQry
'strQry = "INSERT INTO GA_BLOB (""Blob_Segment"", ""Blob_Person_ID"") VALUES (?, ?)"
'Dim cm As ADODB.Command
'Set cm = New ADODB.Command
'cm.ActiveConnection = cn
'cm.CommandText = strQry
'cm.Parameters.Append cm.CreateParameter("@Blob_Segment", adVarBinary, adParamInput, 100, base64Decoded) 'Leave this parameter first
'cm.Parameters.Append cm.CreateParameter("@Blob_Person_ID", adInteger, adParamInput, , reqArgsArray(1)(1))
'cm.CommandType = adCmdText
'cm.Execute