Uploadproblem, gemmer ikke navn i db

Hej Alle

Har tidligere brugt nedenstående kode til upload af foto, hvor foto bliver gemt i mappe upload som brugernavn+fotonavn og herefter skal brugernavn+foto gemmes i db. Det sidste med at bliver lagt i db lykkedes ikke, har nogen ekspert derude et forslag?

mvh. rwj

form:

<form action="login_update_foto.asp" method="post"  enctype="multipart/form-data">
<input type="hidden" name="brugernavn" value="<%=rs("brugernavn")%>">   
<input type="hidden" name="id" value="<%=rs("id")%>">
<input type="file" size=40 name="File">
</form>

kode:

<%

On Error Resume Next

brugernavn=request("brugernavn")
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  mySmartUpload.AllowedFilesList = "jpg,gif"
  mySmartUpload.MaxFileSize = 50000
'  Upload
'  ******
  mySmartUpload.Upload

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



'  Open a recordset
'  ****************
  strSQL = "SELECT FILENAME,FILE,brugernavn,ID FROM bruger WHERE brugernavn = '" & brugernavn & "'"


  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.Update
   
        file.FileToField oRs.Fields("FILE")
        oRs("FILENAME") = brugernavn &  file.FileName
        oRs.Update
        file.SaveAs("upload/" &  brugernavn  & file.filename)
   
          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

If Err Then
      Response.Write("<b>Dit billede er af den forkerte type, du skal gå tilbage og rette fejlen. Kun .jpg og .gif er tilladt. Hvis du har fulgt vejledningen og alligevel har problemer, kontakt da webmaster" )
else
    Response.write ("<b><font size ='2' font color='blue'>Youe have uploaded your picture with success please click below to enter your profile</b></font><br><a href=profile.asp><b><font color='red' font size='2'>Back to profile :-)</b></font>")
   
end if
   
response.redirect("login.asp?mode=" & ("own_profile") & "&info=" & ("foto_skiftet") &  "")

%>