get_picture.asp

 
 Dim Conn
 Dim Cmd
 Dim Row
 Set Conn = Server.CreateObject("ADODB.Connection")
 Set Cmd  = Server.CreateObject("ADODB.Command")'

 Conn.Provider = "LCPI.IBProvider.2"
 Conn.Open "num_buffers=256;data source=localhost:e:\database\pic_db1.gdb;ctype=win1251", "sysdba", "masterkey"


 Conn.BeginTrans

 Cmd.ActiveConnection = Conn
 Cmd.CommandText = "select data from pictures"

 Set Row = Cmd.Execute

 If Not Row.Eof Then
   Response.ContentType = "image/gif"
   Response.BinaryWrite Row("data")
   Response.ContentType = "text/HTML"
 End If

 Conn.CommitTrans