recuperar imagen binaria

[Saintel]

Amigo Blueicaro este es el codigo que estoy usando, gracias por adelantado.

Saintel

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' -- file.asp --
' Retrieves binary files from the database

Response.Buffer = True

' ID of the file to retrieve
Dim ID
ID = Request("Idfoto")

If Len(ID) < 1 Then
ID = 7
End If

' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("db/estaqui.mdb")

' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "select [FileData],[FileData1],[FileData2],[FileData3],[FileData4] from fotografias where Idfoto = " & _
ID, connStr, 2, 4

If Not rs.EOF Then
Response.BinaryWrite rs("FileData1")
End If

rs.Close
Set rs = Nothing

%>