displaying images from access / ms sql using ASP

<%
dim ImageID
dim Image

ImageID = request.querystring("ID")

if ImageID <> "" then
    set Connection = server.createobject("ADODB.Connection")
    Connection.Open "DatabaseDSN", "UserName", "Password"
    set Result = server.createobject("ADODB.Recordset")
    sql = "SELECT ImageData FROM Images WHERE ImageID=" & ImageID
    Result.Open sql, Connection, adOpenKeyset
    if not (Result.eof and Result.bof) then
        Image = Result("ImageData").GetChunk(1024000)
        Response.ContentType = "image/gif"
        Response.BinaryWrite Image
    else
        Response.Write "ID '" & ImageID & "' not found in DB."
    end if
    Result.Close
    Connection.Close
else
    Response.Write "ID is blank "
end if

Response.End
%>