home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / Blob_VBScript.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  1.2 KB  |  51 lines
  1. <% @ LANGUAGE=VBScript    %>
  2. <% Option Explicit        %>
  3.  
  4. <!--#include file="adovbs.inc"-->
  5.  
  6. <%
  7.     ' This sample utilizes the Image field in the PUB_INFO table.  
  8.     ' This table is installed with Microsoft SQL Server in the
  9.     ' PUBS database.
  10.  
  11.  
  12.     Dim oConn        
  13.     Dim oRs        
  14.     Dim Pic        
  15.     Dim PicSize        
  16.     
  17.  
  18.     ' Setup HTTP Header Information so that the browser interprets
  19.     ' the returned data as a gif graphic file.  Note that browsers
  20.     ' interpret returned information using MIME headers -- not file
  21.     ' extensions.
  22.     
  23.     Response.Buffer = TRUE
  24.     Response.ContentType = "image/gif"
  25.  
  26.  
  27.     ' Create ADO Connection Object.  Use IISSDK OBDC Souce with 
  28.     ' default sa account and no password
  29.  
  30.     Set oConn = Server.CreateObject("ADODB.Connection")
  31.     oConn.Open "DSN=LocalServer;UID=sa;PWD=;DATABASE=pubs"
  32.  
  33.  
  34.     ' Query SQL to obtain recordset containing gif BLOB
  35.  
  36.     Set oRs = oConn.Execute("SELECT logo FROM pub_info WHERE pub_id='0736'")
  37.  
  38.  
  39.     ' Obtain local variable of GIF
  40.  
  41.     PicSize = oRs("logo").ActualSize
  42.     Pic = oRs("logo").GetChunk(PicSize)
  43.     
  44.     
  45.     ' Write Data back to client.  Because MIME type is set to
  46.     ' image/gif, the browser will automatically render as picture    
  47.     
  48.     Response.BinaryWrite Pic
  49.     Response.End
  50. %>
  51.