vbscript save binary data to sql server

<form method="POST" action="saveFile.asp"

enctype="multipart/form-data" name="UploadForm">

Employee Name : <INPUT TYPE="TEXT" NAME="USERNAME" SIZE="30"><br>

<INPUT TYPE="FILE" NAME="UPLOADFILE1" SIZE="50">

<center><INPUT TYPE="SUBMIT" VALUE="Upload"

id=SUBMIT1 name=SUBMIT1></center>

Dim myupload
   'declare variables..
   intCount=0
       
    ' Create Upload Component
    Set myupload = Server.CreateObject("aspSmartUpload.SmartUpload")
    myupload.Upload

    'Create Connection
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=" & Server.MapPath("data.mdb")
  
    Set Rs = Server.CreateObject("ADODB.recordset")
    Rs.Open "SELECT user_id,user_name,user_photo FROM users", Conn,3,3

    'Select each file
    For each file In myupload.Files
        If not file.IsMissing Then 'Check for missing file
            'Add the current file in database
            Rs.AddNew
            file.FileToField Rs.Fields("user_photo")
            Rs("user_name") = myupload.Form("USERNAME")
            Rs.Update
            intCount = intCount + 1
        End If
    Next
    Response.Write(intCount & " file(s) uploaded.")
    'Destroy the objects...

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