Intendi questo
Private Function GetStringFromBinary(strBinaryData)
Dim Rs, lngBinaryLength
Const adLongVarChar = 201
lngBinaryLength = LenB(strBinaryData)
'Error check
If lngBinaryLength = 0 Then Exit Function
'MultiByte data must be converted To VT_UI1 | VT_ARRAY first
If VarType(strBinaryData) = 8 Then strBinaryData = MultiByteToBinary(strBinaryData)
Set Rs = CreateObject("ADODB.Recordset")
Rs.Fields.Append "tmpBinField", adLongVarChar, lngBinaryLength 'Create temp field
Rs.Open
Rs.AddNew
Rs("tmpBinField").AppendChunk strBinaryData 'Add binary data to temp table
Rs.Update
GetStringFromBinary = Rs("tmpBinField") 'Get string and return it
'response.Write(GetStringFromBinary)
Set Rs = Nothing
End Function
Saluti
http://www.isola-di-krk.net