El error está aquí:
Set RST = CreateObject("ADODB.Recordset")
LenBinary = LenB(binData)
if LenBinary > 0 then
RST.Fields.Append "myBinary", adLongVarChar, LenBinary
RST.Open
RST.AddNew
RST("myBinary").AppendChunk BinData
RST.Update
strDataWhole = RST("myBinary")
End If
________
Si quieres un código ASP completo y listo para usar para hacer UpLoad de ficheros y sin errores puedes sacarlo de
http://www.asptutor.com