codigo no funciona

[gabo543]

hola amigos tengo un problema con un codigo no se porque no funciona ..
el codigo es para traer una imagen de una database si alguien podria ayudarme por favor.....o si conocen algun codigo funcionando que me muestre lo que contiene mi databada por id ya sea texto o imagenes...

este codigo es solo para imagenes,...
<%

' Recupera imagenes desde una base de datos

Response.Buffer = True
ID = Request.querystring("ID")
If Len(ID) < 1 Then
ID = 1
End If

connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("\xxx\imagenes.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select imagen,tipo from imagenes where ID = " & ID, connStr

If Not rs.EOF Then
Response.ContentType = rs("tipo")
Response.BinaryWrite rs("imagen")
End If


rs.Close
Set rs = Nothing
%>