Download fil fra database
Når man klikker på en link så skal scriptet få opp en download box. Ikke åpne filen i browser vinduet.feks: download.asp?KatalogID=100
-----------------------
Download.asp
-----------------------
<%
dim strConnImg
strConnImg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/kataloger.mdb")
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConnImg
dim KatalogID
KatalogID=request("KatalogID")
dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT MimeType,BinData FROM tblKataloger WHERE KatalogID = " & KatalogID
set adoRs = adoCn.Execute(strSQL)
if not adoRs.eof then
' Clear out the existing HTTP header information
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
' Change the HTTP header to reflect that an image is being passed.
Response.Expires = 0
Response.Buffer = TRUE
Response.ContentType = adoRs("mimetype")
Response.BinaryWrite adoRs("bindata")
Response.Flush
adoRs.close
end if
Set adoRs = nothing
adoCn.close
set adoCn = nothing
%>
