<% '********************************************************** '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 %>