How to display image in Binary format

<%@ Language = VBscript%>
<!--#Include File = ../conn.asp-->
<%
  dim rsPhoto
  set rsPhoto = server.CreateObject("ADODB.RecordSet")
 
  rsPhoto.Open "select * from  MUserPhoto where userid = '" & Request.QueryString("userid") & "' ",conn,adOpenForwardOnly,adLockReadOnly
 
%>

<% Response.ContentType = "image/jpeg"  %>
<% Response.BinaryWrite  rsPhoto("userphoto")%>
<% Response.ContentType = "text/html"  %>

<% rsPhoto.Close %>