Yo creo que estás teniendo un error conceptual (digo por los responseS.writeS que tenés por allí)
La idea de esto es hacer
sólo el Response.BinaryWrite en un archivo (llamémoslo imagen.asp) que deberá ser llamado desde otro archivo mediante el atributo SRC de un tag IMG. Uf... que lío. Mejor voy con un ejemplo que ando un poco espeso hoy
archivo imagen.asp:
Código:
'Recordset
ID = Request.QueryString("ID")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
'abrimos la conexion
rs.Open "select [foto],[tipo_img] from fotos where id_foto = " & ID, Con, 2, 4
If Not rs.EOF Then
Response.ContentType = rs("tipo_img")
Response.BinaryWrite rs("foto")
'Else
response.redirect "imagen_no_disponible.gif"
End If
rs.Close
Set rs = Nothing
Luego, donde quieras mostrar la imagen, colocás:
Código:
<img src="imagen.asp?ID<% = Rs("id_foto") %>" />
Nunca lo usé con ASP, pero si con PHP. Pero la "filosofía" es la misma.