ASP.NET - Update campo Blob

Dim tot_bytes, req_bytes, reqArgsString, reqArgsArray, base64Decoded

tot_bytes = Request.TotalBytes

Response.Write(Request.TotalBytes)

If Request.TotalBytes > 0 Then

 Parse POST request JSON

 reqArgsString = BytesToStr(req_bytes)

 reqArgsArray = Split(reqArgsString, "&")

 For i = 0 To UBound(reqArgsArray)

   reqArgsArray(i) = Split(reqArgsArray(i), "=")

 Next

 base64Decoded = decodeBase64(reqArgsArray(0)(1))

  DB Connection Object

 Set cn = Server.CreateObject("ADODB.Connection")

 ConnStr="driver={SQL Server};server=161.196.101.140;database=ContinuumDB; uid=sa;pwd=P@ssw0rdsql"

 cn.Open ConnStr

 Dim strQry

 strQry = "UPDATE GA_BLOB set (""Blob_Segment"", ""Blob_Person_ID"") where Blob_Person_ID= '"

 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) 'Deje este parámetro primero

 cm.Parameters.Append cm.CreateParameter("@Blob_Person_ID", adInteger, adParamInput, , reqArgsArray(1)(1))

cm.CommandType = adCmdText

 cm.Execute''

  Response.Write": Foto Actualizada correctamente"

Else

  Response.Write ": Binario no recibido!"

End If

Function decodeBase64(base64)

  Dim DM, EL

  DM = CreateObject("Microsoft.XMLDOM")

  'Crear nodo temporal con el tipo de datos Base64

  EL = DM.createElement("tmp")

  EL.DataType = "bin.base64"

  ' Establecer cadena codificada, obtener bytes

  EL.Text = base64

  decodeBase64 = EL.NodeTypedValue

End Function

Function BytesToStr(bytes)

  Dim Stream

  Set Stream = Server.CreateObject("Adodb.Stream")

    Stream.Type = 1 'Tipo de anuncio binario

    Stream.Open

    Stream.Write bytes

    Stream.Position = 0

    Stream.Type = 2 'Tipo de anuncio Texto

    Stream.Charset = "iso-8859-1"

    BytesToStr = Stream.ReadText

  Stream.Close

  Set Stream = Nothing

End Function