Save binary data to SQL Server

Introduction

First install SoftArtisans.FileUp component

• http://support.softartisans.com/docs/safileupdocs/default.asp

to upload the files. Or you can use any other file upload component that you have access to.

Then, create the table into SQL Server

create table test (
file_id int identity(1,1),
file_type varchar(50),
file_name varchar(50),
file_data image,
date_created smalldatetime)

Create the ASP File (upload.asp) to save the file into SQL Server

Html Code

<form ENCTYPE="multipart/form-data" METHOD="post" 
    ACTION="upload.asp" name="frmUpload"> 
<input type="file" size="15" src="" width="67" height="18" 
    id="FILE1" NAME="FILE1" value="Search"> 
<input TYPE="submit" NAME="btnEnviar" VALUE="Submit">
</form>

ASP Code

Dim objUpload
Set objUpload = Server.CreateObject("SoftArtisans.FileUp")

Set MSCS = Server.CreateObject("ADODB.Connection")
MSCS .ConnectionTimeout = 90
MSCS .Open "DSN=DSN_NAME;UID=USERNAME;PWD=PASSWORD;DATABASE=DATABASE_NAME"

If objUpload.Form("FILE1") <> "" Then
    Set Rs = Server.CreateObject ("ADODB.Recordset")
    Rs.Open "test", MSCS, 2, 3

    Rs.AddNew 

    Rs("file_name") = objUpload.Form("FILE1").UserFilename
    objUpload.Form("FILE1").SaveAsBlob Rs("file_data")    
    Rs("file_type") = objUpload.Form("FILE1").contentType
    Rs("date_created") = now()
    
    Rs.upDate()

    Rs.Close 

    Response.Write "Uploaded Successfully"
End If    
Set objUpload = Nothing
%>

Now create the view_upload.asp to view the file

<%
Set MSCS= Server.CreateObject("ADODB.Connection")
MSCS.ConnectionTimeout = 90
MSCS.Open "DSN=DSN_NAME;UID=USERNAME;PWD=PASSWORD;DATABASE=DATABASE_NAME"

Set Rs = Server.CreateObject ("ADODB.Recordset")
strSQL = "SELECT * FROM test WHERE file_id = " & request("id")
Rs.Open strSQL, MSCS, 2, 3

Response.ContentType = Rs("file_type")
Response.BinaryWrite Rs("file_data")
Rs.close
%>