Insert or update an image in blob field

[douglas06]

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