id=Request.QueryString("ID")
name=Request.QueryString("Filename")
if id="" and name="" then response.end
if id="" then
wh="FileName=' & name & "'"
else
wh="ID=" & id
end if
Set conn=Server.CreateObject("ADODB.Connection")
DbPath = Server.mapPath("upload.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
Set rs=Server.Createobject("ADODB.Recordset")
rs.Open "Select * From Upload where " & wh,conn,1
if not rs.EOF then
Response.ContentType = "*/*"
Response.BinaryWrite rs("ImageValue")
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>