Hi!

Ok, here it is. Hope this makes some sense for you. I can convert this to VFP sample code if needed.

Image retrieving part sample:
'Response.ContentType="image/gif";
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open ...
SQL = "SELECT MyTable.MyImage FROM MyTable WHERE MyTable.ID=" & Request.QueryString("id")
rs.open SQL, conn ,3 ,3
Set Field = rs("MyImage")
BSize = 4096
FLength = Field.ActualSize
NumBlocks = FLength \ BSize
Left = FLength Mod BSize
Response.BinaryWrite Field.GetChunk(Left)
For i = 1 To NumBlocks
Response.BinaryWrite Field.GetChunk(BSize)
Next

Image saving part sample:

Function SToB(Str)
Dim I, B
For I=1 to len(Str)
B = B & ChrB(Asc(Mid(Str,I,1)))
Next
SToB = B
End Function

....
rset.Fields("MyImage").AppendChunk(Server.HTMLEncode(Form("MyImage").Item));
if (Form("MyImage").File != "") {
rset.Fields("MyImage").AppendChunk (SToB(Form("MyImage").Item))
}