<% dim adoCn dim strSQL set adoCn = Server.CreateObject("ADODB.Connection") adoCn.Open strConn 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 Response.Expires = 0 Response.Buffer = TRUE Response.Clear Response.ContentType = adoRs("mimetype") Response.BinaryWrite adoRs("bindata") adoRs.close end if Set adoRs = nothing adoCn.close set adoCn = nothing %>