dim Conn
	Set Conn = Server.CreateObject ("ADODB.Connection")
	Conn.ConnectionString = Application ("connStr")
	Conn.Mode =  1 
	Conn.Open
  
	dim r_set, s_sql
	s_sql = "SELECT picture FROM Questions WHERE question_id=" & Request.QueryString ("id")
	Set r_set = Server.CreateObject("ADODB.Recordset")
	r_set.Open s_sql, Conn

	Response.ContentType = "image/jpeg"
	Response.BinaryWrite r_set ("picture")
	r_set.Close
	Conn.Close
Set r_set = nothing
    Set Conn = nothing