aspSmartUpload updater

Jeg har et mega problem, jeg kan ikke finde ud af at få en bestemt post opdateret i min database Access.
Jeg kan fint uploade filer, men mine tekst felter kan jeg ikke få til at makke ret. Felterne med filnavne bliver indsat som nye felter i stedet for at blive updateret.
Håber i kan hjælpe

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim intCount
 
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

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


'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  ****************************************************************************
       
        file.SaveAs("../grafik/bil/" & file.FileName)
        ' sample with a physical path
        'file.SaveAs("e:\Billeder\" & file.FileName)

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../db/unox.mdb")
Conn.Open DSN

Dim idnr
idnr= mySmartUpload.Form("idnr")



'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
  strSQL = "select * from bil "
  rs.Open strsql, conn, 1, 3
'where idnr='"& idnr &"'

'Tilføjer brugeren til databasen og sender ham/hende til login siden
  ' rs.Open "select * from bil where idnr='"& idnr &"'",conn,1,3

 
    rs.AddNew
    rs("maerke") = mySmartUpload.Form("maerke")
    rs("year") = mySmartUpload.Form("year")
    rs("km") = mySmartUpload.Form("km")
    rs("bem") = mySmartUpload.Form("bem")
    rs("udstyr") = mySmartUpload.Form("udstyr")
    rs("pris") = mySmartUpload.Form("pris")
    rs("farve") = mySmartUpload.Form("farve")
    rs("foto01") = file.FileName
    rs("foto02") = file.FileName
    rs.update

        intCount = intCount + 1

End If
'  Display the number of files which could be uploaded
'  ***************************************************
'  Response.Write("<BR>" & mySmartUpload.Files.Count & " file(r) kunne blive uploaded.<BR>")

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

response.redirect "retbiler01.asp"
%>
</body>
</html>