binær udtræk fra OLE felt i access
davdav...har mega problemer med at få det her script til at virke... Det har den funktion, at det skal trække en jpeg fil ud fra access.
Det fungerer sådan:
1. jeg opretter en post direkte i access, hvor jeg vælger et jpeg billede og lægger det i db'en...
2. jeg uploader db'en
3. jeg vil gerne lave et udtræk af billedet
getimage.asp ser sådan her ud:
<%
Response.Expires = 0
Response.Buffer = TRUE
setID = request.QueryString("setID")
showWHAT = request.QueryString("show")
downloadSQL = "select " & showWHAT & " from sets WHERE ID =" & setID
downloadDIR = Server.MapPath("data/data.mdb")
Set downloadCONN = Server.CreateObject("ADODB.Connection")
downloadCONN.Open "Provider=MICROSOFT.JET.OLEDB.4.0; " & "DATA SOURCE=" & downloadDIR
set downloadRECORDSET = downloadCONN.execute(downloadSQL)
if Not downloadRECORDSET.EOF then
Response.clear
Response.ContentType = "image/jpeg"
Response.BinaryWrite downloadRECORDSET(showWHAT)
else
response.Write("no picture")
end if
downloadRECORDSET.close
downloadCONN.close
set downloadRECORDSET = nothing
Set downloadCONN = nothing
%>