BLOB_VBSCRIPT.ASP

<% @ 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 
%>