<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/Document.mdb")
dim strConnImg
strConnImg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/ImageLibrary.mdb")
%>
<%
'**********************************************************
'This page is used to get a certain image from the database
'This will be used within IMG element, as shown below :
' 
'**********************************************************
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConnImg
dim ImageID
ImageID=request("ImageID")
dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Images WHERE ImageID = " & ImageID
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.ContentType = adoRs("mimetype")
Response.BinaryWrite adoRs("bindata")
adoRs.close
end if
Set adoRs = nothing
adoCn.close
set adoCn = nothing
%>
{Close
This Window}