ASPSmartUpload og Forms

Jeg er ved at lave et nyhedssystem, hvor jeg selv kan oploade et billede til
teksten. Har lavet en html side hvor jeg indtaster:
emne
body
og vælger et billede

Disse informationer vil jeg så gerne gemme i en access db men kan kun få
billedets navn gemt, emne og body er bare tomme i db'en.
Håber der er nogen som kan hjælpe.

Med Venlig Hilsen
Frank Sørensen

KODEN
*********************
<%
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

  mySmartUpload.AllowedFilesList = "jpg,gif"
  mySmartUpload.DenyPhysicalPath = True
  mySmartUpload.MaxFileSize = 50000
  mySmartUpload.Upload

  For each file In mySmartUpload.Files
      If not file.IsMissing Then
        file.SaveAs("Upload/" & file.FileName)

        Response.Write("Navn = " & file.Name & "<BR>")
        Response.Write("Størrelse = " & file.Size & "<BR>")
        Response.Write("Fil navn = " & file.FileName & "<BR>")
  strBillede = file.FileName
        Response.Write("Fil type = " & file.FileExt & "<BR>")
        Response.Write("Fil sti = " & file.FilePathName & "<BR>")
      %>
  <img src="Upload/<%=(file.FileName)%>">
  <%
      End If
  Next

'  Data skrives i databasen
'  ***********************

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("../_db_login47/_log_sys_47.mdb")

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From tb_arkNews"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs("emne") = mySmartUpload.Form("emne")
      rs("body") = mySmartUpload.Form("body")
      rs("pic") =  strBillede
  rs("dato") = Now
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
%>