<%@ LANGUAGE="VBSCRIPT" %>
<%
' 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 = "image/gif"

Set cn = Server.CreateObject("ADODB.Connection")
' The following open line assumes you have set up a System DataSource
' by the name of myDSN.
cn.Open "DSN=myDSN;UID=sa;PWD=;DATABASE=pubs"
Set rs = cn.Execute("SELECT logo FROM pub_info WHERE pub_id='0736'")
Response.BinaryWrite rs("logo")
Response.End
%>

The above code shown on http://support.microsoft.com/default...;EN-US;q173308

The database is from SQL Server ~{!0~}pubs~{!1~}

However, if I changed the select statement to: ~{!0~}Select pub_id, logo,
pr_info FROM pub_info~{!1~} and add the following codes to display ALL images,
the above code then do not work!

Do While Not rs.EOF
......
Loop

Question to you: How to display ALL BLOB images in a table?

Your response is appreciated.