Fejl i upload kode

Er der nogen som kan hjælpe mig, med at finde fejl i denne kode.
Koden giver følgende fejl:
------------------------------------------
Microsoft JET Database Engine error \'80040e21\'

Field \'Brugt.Navn\' cannot be a zero-length string.

/new.asp, line 45
------------------------------------------
Koden ser således ud:

<%@LANGUAGE=\"VBSCRIPT\"%>
<%
\' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=\"\"
MM_authFailedURL=\"login.asp\"
MM_grantAccess=false
If Session(\"MM_Username\") <> \"\" Then
  If (true Or CStr(Session(\"MM_UserAuthorization\"))=\"\") Or _
        (InStr(1,MM_authorizedUsers,Session(\"MM_UserAuthorization\"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = \"?\"
  If (InStr(1,MM_authFailedURL,\"?\") >= 1) Then MM_qsChar = \"&\"
  MM_referrer = Request.ServerVariables(\"URL\")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & \"?\" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & \"accessdenied=\" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
response.buffer = true
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then

uploadsti = server.mappath(\".\") & \"\\billeder\"
uploadsti2 = uploadsti & \"\\\"

Dim upl
Set upl = Server.CreateObject(\"aspSmartUpload.SmartUpload\")


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Data Source=\" & Server.Mappath(\"data/db1.mdb\") & \";Provider=Microsoft.Jet.OLEDB.4.0;\"


Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From Brugt\"
rs.Open strSQL, Conn, 1, 3
rs.AddNew
rs(\"Navn\") = Server.HTMLEncode(upl.form(\"Navn\"))
rs(\"Type\") = Server.HTMLEncode(upl.form(\"Type\"))
rs(\"Beskrivelse\") = Server.HTMLEncode(upl.form(\"Beskrivelse\"))
rs(\"Pris\") = Server.HTMLEncode(upl.form(\"Pris\"))
rs.Update
id = rs(\"Id\")
rs.Close
Set rs = Nothing


if upl.Form(\"billede\").TotalBytes = \"0\" then
billede = \"\"
else
billede = id & \".jpg\"
save = uploadsti2 & billede
upl.Form(\"billede\").SaveAs save
end if

Conn.Execute(\"UPDATE DISTINCTROW Brugt SET billede = \'\" & billede & \"\' WHERE id = \" & id)
Conn.Close
set Conn = Nothing
response.redirect (\"vis.asp?id=\" & id)

else

%>
<HTML>
<HEAD><TITLE> - </TITLE></HEAD>
<BODY bgcolor=\"#FFFFFF\">
<font size=\"6\" face=\"Arial, Helvetica, sans-serif\" color=\"#FF0000\">Indtast emne
</font>
<form enctype=\"multipart/form-data\" method=\"post\" action=\"new.asp\">
<font color=\"CC0000\"><% =request.querystring(\"fejl\") %></font><BR>
  <font face=\"Arial, Helvetica, sans-serif\">Navn:<BR>
  <input type=\"text\" name=\"Navn\" size=\"30\">
  <BR>
  <br>
  Type:<BR>
  <input type=\"text\" name=\"Type\" size=\"30\">
  <BR>
  <br>
  Beskrivelse:<BR>
  <textarea name=\"Beskrivelse\" cols=\"30\" rows=\"4\"></textarea>
  <BR>
  <br>
  Pris:<BR>
  <input type=\"text\" name=\"Pris\" size=\"20\">
  <BR>
  <br>
  Billede:</font><BR>
  <input type=\"file\" name=\"billede\" size=\"30\">
  <BR>
  <br>
  <input type=\"submit\" value=\"Gem\">
</form>
</BODY>
</HTML>
<% end if %>