Problemer med aspSmartUpload

Jeg er ved at forsøge at lægge billeder op i en access database ved hjælp af aspSmartUpload.

Det ser ikke ud til at billederne bliver lagt rigtigt op.
Upload scriptet melder at billedet bliver oploadet, men når jeg prøver at se det kommer der ikke noget billed frem, kun et rødt kryds.

Feltet i databasen som skulle indeholde mit billede indholder følgende:
"???oô`~????????????????????????????????????????????????"



Hvordan får jeg det til at virke??


Upload script
--------------------------------------------------
<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim strSQL
  Dim oRs
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("..\db\pic.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
  strSQL = "SELECT FILENAME,FILE FROM PICS"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  **********************************
        oRs.AddNew
        file.FileToField oRs.Fields("FILE")
        oRs("FILENAME") = file.FileName
        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>


Vis billed script
-----------------------------------------------------
<%

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/pic.mdb")
set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM pics"
rs.Open SQL, Conn, 1, 3

do while not rs.eof

%>
<img src="<%=rs("file")%>">
<%

rs.movenext
loop