Mira, me encontre un codigo para ayudarte...
Código:
<%
'Step 1: Read in the employee ID from the querystring
Dim iEmployeeID
iEmployeeID = Request.QueryString("EmployeeID")
'Step 2: grab the picture from the database
Dim objConn, objRS, strSQL
strSQL = "SELECT Picture FROM Employee WHERE EmployeeID = " & iEmployeeID
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=EmployeeDatabase"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
'Step 3: Set the ContentType to image/jpg
Response.ContentType = "image/jpg"
'Step 4: Use Response.BinaryWrite to output the image
Response.BinaryWrite objRS("Picture")
'Clean up...
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>