<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("admin/news.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
set rs=server.createobject("ADODB.recordset")
sql="select img from images where imgid="&request("imgid")
rs.open sql,conn,1,1
if not rs.eof then
Response.ContentType = "image/gif"and"image/jpeg"
Response.BinaryWrite rs("img").getChunk(7500000)
rs.close
set rs=nothing
set conn=nothing
else
rs.close
set rs=nothing
set conn=nothing
response.redirect "images/notupload.jpg"
end if
%>