home *** CD-ROM | disk | FTP | other *** search
- <% @ LANGUAGE=VBScript %>
- <% Option Explicit %>
-
- <!--#include file="adovbs.inc"-->
-
- <%
- ' This sample utilizes the Image field in the PUB_INFO table.
- ' This table is installed with Microsoft SQL Server in the
- ' PUBS database.
-
-
- Dim oConn
- Dim oRs
- Dim Pic
- Dim PicSize
-
-
- ' Setup HTTP Header Information so that the browser interprets
- ' the returned data as a gif graphic file. Note that browsers
- ' interpret returned information using MIME headers -- not file
- ' extensions.
-
- Response.Buffer = TRUE
- Response.ContentType = "image/gif"
-
-
- ' Create ADO Connection Object. Use IISSDK OBDC Souce with
- ' default sa account and no password
-
- Set oConn = Server.CreateObject("ADODB.Connection")
- oConn.Open "DSN=LocalServer;UID=sa;PWD=;DATABASE=pubs"
-
-
- ' Query SQL to obtain recordset containing gif BLOB
-
- Set oRs = oConn.Execute("SELECT logo FROM pub_info WHERE pub_id='0736'")
-
-
- ' Obtain local variable of GIF
-
- PicSize = oRs("logo").ActualSize
- Pic = oRs("logo").GetChunk(PicSize)
-
-
- ' Write Data back to client. Because MIME type is set to
- ' image/gif, the browser will automatically render as picture
-
- Response.BinaryWrite Pic
- Response.End
- %>
-