Long Raw Type Mismatch error

[Sean]

I'm new to using long raw fields with ASP. I know it would be easier
to leave the files on the file system, but the client wants them in
the database. Based on what I've read so far, I have used the
following code to read files from a hard drive and stuff them in the
database.

<%

'============== =============== =============== =============== =============== ==========
'Function to read a binary file from disk
Function ReadBinaryFile( FileName)
Const adTypeBinary = 1

'Create Stream object
Dim BinaryStream
Set BinaryStream = CreateObject("A DODB.Stream")

'Specify stream type - we want To get binary data.
BinaryStream.Ty pe = adTypeBinary

'Open the stream
BinaryStream.Op en

'Load the file data from disk To stream object
BinaryStream.Lo adFromFile FileName

'Open the stream And get binary data from the object
ReadBinaryFile = BinaryStream.Re ad
End Function

'============== =============== =============== =============== =============== ==========
' MAIN

dim objConn
DBObjConn() 'Open database
Set RS = CreateObject("A DODB.Recordset" )
SQL = "SELECT * FROM pictures WHERE 1=0"

objConn.beginTr ans

RS.Open SQL, objConn, adOpenKeyset, adLockOptimisti c, adCmdText

Set FileSystem=Crea teObject("Scrip ting.FileSystem Object")
root = Request.ServerV ariables("APPL_ PHYSICAL_PATH")
rootFilePath = root & "IQInputSource\ crt_AGT1500"
filepath = FileSystem.GetA bsolutePathName (rootFilePath)
Set folder=FileSyst em.GetFolder(fi lepath)
Set objFileList = folder.Files

for each objFile in objFileList
filename = objFile.Name
gfxSpex objFile.Path, width, height, depth, filetype
If InStrRev( LCase(filename) , ".gif" ) OR InStrRev( LCase(filename) ,
".jpg" ) THEN
partnumber = Left(filename, InStr(filename, ".")-1 )
RS.AddNew
RS("vcpartnumbe r") = partnumber
RS("width") = width
RS("height") = height
RS("vcfiletype" ) = filetype
RS("imagedata") .appendChunk( ReadBinaryFile( objFile.Path) )
RS.update
End If
next

RS.close

objConn.commitT rans
%>
This seems to work fine, however, when I try and pull the images out
again, it doesn't always work. Some images come out and display just
fine others give me the following error.

error 'ASP 0106 : 80020005'
Type Mismatch, line 18
An unhandled data type was encountered.

Why would I get this only with some rows and not all of them? I
thought maby file size had something to do with it, but after doing
some checking, that doesn't seem to be the case. The code I'm using to
retrieve the data is pretty much straight from Microsoft's site.

<%
dim objConn
DBObjConn() 'Open database

id = Request.QuerySt ring("id")

cmdsql = "SELECT imagedata, vcfiletype from pictures WHERE
vcpartnumber ='"&id&"'"
set rs = Server.CreateOb ject("adodb.Rec ordset")
rs.open cmdsql, objConn

Response.Conten tType = "image/" & rs("vcfiletype" )

Response.Expire s = 0
Response.Buffer = TRUE
Response.Clear

temp = rs("imagedata" )
Response.Binary Write temp
Response.End
%>
Any help is greatly appreciated.

-Sean