<! -- image.asp -->
 
<%
' отображаем картинку из базы
' праметры в Request.QueryString:
'  t    - таблица в базе
'  id  -id в таблице
'		необязательные параметры
'  f    -поле в базе, если не указано, то по умолчанию =  "Img" 
'  c   - имя Connection в Application(""), по умолчанию ="Cn"

OPTION EXPLICIT

const ImgPath=""  'относительный путь картинки, отображаемой при отсутствии картинки в базе

dim Rs,sCn,d, table, id, SQL, sField
sCn=Request.QueryString( "c" )
set Rs=Server.CreateObject( "ADODB.Recordset" )
table=Request.QueryString( "t" )
id=Request.QueryString( "id" )
sField=Request.QueryString( "f" ) 

if len(sField)= 0  then sField= "Img" 
if len(sCn)= 0  then sCn= "Cn" 
SQL= "select "  & sField &  " from "  & table &  " where id="  & id
On Error Resume Next
	Response.ContentType =  "image/jpeg" 
Rs.Open SQL, Application(sCn)

if not IsNull(Rs( 0 )) then 
	Response.BinaryWrite  Rs( "img" )
else
	if len(ImgPath)= 0  then Response.End
	'адрес картинки 
	dim mstream
	Set mstream = CreateObject("ADODB.Stream")
	mstream.Type = 1 'adTypeBinary
	mstream.Open 
	mstream.LoadFromFile (Server.MapPath(ImgPath))
	Response.BinaryWrite  mstream.Read
	set mstreem=nothing
end if
Rs.Close
On Error Goto  0 
set Rs=nothing
%>