Display image

   
<%  
  
  'Step 2: grab the picture from the database
  Dim objConn, objRS, strSQL
  strSQL = "SELECT image FROM test WHERE ID = 1 ;"
  
  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.Open "DSN=budget_demo"
   
 Set objRS = Server.CreateObject("ADODB.Recordset")
 objRS.Open strSQL, objConn 

%>



 <% 
  'Step 3: Set the ContentType to image/jpg
  Response.ContentType = "image/JPEG"
  
  
  'Step 4: Use Response.BinaryWrite to output the image
  Response.BinaryWrite objRS("Image")
  
  //Response.BinaryWrite objRS("image")
%>
  
  

 <%
  'Clean up...
  objRS.Close
  Set objRS = Nothing
  
  objConn.Close
  Set objConn = Nothing
%>