<%
Dim cn, rs
set cn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
cn.Open "строка подключения"
rs.Open "select Image from Table where ImgID="  & Request.QueryString("ImgID"), cn
Response.contentType = "image/gif" 'или image/jpeg
Response.BinaryWrite rs("Image").Value
%>

<%@ Language=VBScript 
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=file.xls"
Response.Write("test")
Response.End()%>

file = "00000015.001"
path = "c:\"

Response.ContentType = "image/tif"
Response.AddHeader "Content-Disposition","inline;filename=" & file
Set stream = Server.CreateObject("ADODB.Stream")
stream.Type= 1 
stream.open

stream.LoadFromFile(path & file)
Response.BinaryWrite Stream.Read(stream.Size)
stream.close
set stream = nothing