How to create download procedure?

Question

I upload the zip file into the blob column, but I want to provide the url for the users to download the zipfile. I don't want to use intermedia and web agent. What should I do?

Answer 1

Here's a code snippet that uses OO40 and VBScript to fetch a Blob and push it out the Response object. It uses the connection pooling capabilities of OO40, so I have included the connection pool creation call which should placed in your global.asa file under the Applicaiton_OnStart() routine.
==========================================
<!-- global.asa file -->
<!-- declare the OO4O automation object -->
<OBJECT RUNAT=Server
SCOPE=APPLICATION
ID=OraSession
PROGID="OracleInProcServer.XOraSession">
</OBJECT>
' and type library
'compsrv FILE="c:\orant\bin\oip8.tlb"
<!--METADATA TYPE="TypeLib"
FILE="d:\oracle\ora815\bin\oip8.tlb"
-->
<!-- put this in Application_OnStart() -->
'create a connection pool
OraSession.CreateDatabasePool nInitPoolSize, _
nMaxPoolSize, _
nSessionTimeout, _
szImpbService, _
szImpbUserPass, _
0
=========================================
<!-- ASP application -->
<%@ LANGUAGE=VBScript%>
<%
'Sub routine to fetch a blob from the database
Sub ReadBlob(blob, size)
Dim vBuffer
'Set parameters for multi-piece read
nLobChunk = CInt(Application("LOB_CHUNK")) * 1024
blob.offset = 1
blob.PollingAmount = CLng(size)
'Read the first hunk and write to output
vBuffer = null
nBytesRead = blob.Read(vBuffer, nLobChunk)
Response.BinaryWrite(vBuffer)
'Read and write the rest
While blob.Status = ORALOB_NEED_DATA
vBuffer = null
nBytesRead = blob.Read(vBuffer, nLobChunk)
Response.BinaryWrite(vBuffer)
Wend
End Sub
'Oracle related variables
Dim ImDb
Dim setItems
'Get the input parameters
szDomain = Request.QueryString("domain")
szMediaId = Request.QueryString("id")
'build the SQL string
If szDomain = "i" Then
szSQL = "select i.image_clip.getContent() blob, " & _
"i.image_clip.getMimetype() mime, " & _
"i.image_clip.getContentLength() clipSize " & _
"from image_items i where i.image_id = " & szMediaId
ElseIf szDomain = "a" Then
szSQL = "select i.audio_clip.getContent() blob, " & _
"i.audio_clip.getMimetype() mime, " & _
"i.audio_clip.getContentLength() clipSize " & _
"from audio_items i where i.audio_id = " & szMediaId
ElseIf szDomain = "v" Then
szSQL = "select i.video_clip.getContent() blob, " & _
"i.video_clip.getMimetype() mime, " & _
"i.video_clip.getContentLength() clipSize " & _
"from video_items i where i.video_id = " & szMediaId
Else
Response.Write("Bad domain variable: " + szDomain)
Response.End
End If
'Get a database connection
Set ImDb = OraSession.GetDatabaseFromPool(2000)
'fetch the blob handle
nOptions = ORADYN_NOCACHE + ORADYN_READONLY
Set setItems = ImDb.CreateDynaset(szSQL, nOptions)
Response.ContentType = setItems("mime").Value
'read the whole blob
Call ReadBlob(setItems("blob").Value, setItems("clipSize").Value )
%>
null