Hjælp til database

Godaften..

Jeg har lige hentet AspSmartUpload til at kunne få brugerne til at uploade deres billede til en profil. Men det volder mig problemer. Filen som bliver uploadet skulle nemlig gerne sættes ind i databasen så jeg kan hive det ud igen.

Oplysninger:
Db-navn: community.mdb
Tabelnavn: Bruger
Kolonne: \"Brugernavn\", \"billede\" er nok de to vigtigste. Det er \"billede\" filen skal ind i!
Jeg har disse to filer, som befinder sig i samme mappe som databasen.:


Default.htm:

<HTML>
<BODY BGCOLOR=\"white\">

<H1>aspSmartUpload : Sample 1</H1>
<HR>

<FORM METHOD=\"POST\" ACTION=\"uploader_fil.asp\" ENCTYPE=\"multipart/form-data\">
  <INPUT TYPE=\"FILE\" NAME=\"FILE1\" SIZE=\"50\"><BR>
  <INPUT TYPE=\"FILE\" NAME=\"FILE2\" SIZE=\"50\"><BR>
  <INPUT TYPE=\"FILE\" NAME=\"FILE3\" SIZE=\"50\"><BR>
  <INPUT TYPE=\"FILE\" NAME=\"FILE4\" SIZE=\"50\"><BR>
  <INPUT TYPE=\"SUBMIT\" VALUE=\"Upload\">
</FORM>

</BODY>
</HTML>





upload_fil.asp:

<!-- Minus AutoDato -->
<HTML>
<BODY BGCOLOR=\"white\">

<H1>aspSmartUpload : Sample 4</H1>
<HR>

<%
\'  Variables
\'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  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(\"community.mdb\")
  oConn.Open \"DBQ=\"& curDir &\";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;\"

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

  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.Billede(\"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
%>
</BODY>
</HTML>




Dette volder mig meget besvær, da der hver gang jeg trykker \"upload\" kommer en intern http-500 fejl!

Håber der er nogen der kan se, hvad der er galt!

På forhånd tak!