Fejl når fil felt er tomt!

Jeg har et script, hvor man kan anmelde/bedømme ting i!
I formularet er der mulighed for at upload et billede til anmeldelsen, men hvis man IKKE upload et billede kommer script op med denne fejl selvom jeg har tilladt o værdi i databasen:

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

/an/formular_grej.asp, line 211

Script ser således ud:

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=1
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

  mySmartUpload.AllowedFilesList = "gif,jpg,jpeg,png"

  mySmartUpload.DenyPhysicalPath = False
  mySmartUpload.MaxFileSize = 2000000

  mySmartUpload.Upload

   
  For each file In mySmartUpload.Files
      If file.IsMissing = false Then
        file.SaveAs(server.mappath("original/") & day(now) & month(now) & year(now)  & hour(now) & minute(now) &  file.FileName)


'Her kan man så sætte noget ASPImage ind.

filnavn = (server.mappath("original/") & day(now) & month(now) & year(now)  & hour(now) & minute(now) &  file.FileName)
filnavnThumb100 = "thumbnails450/" & day(now) & month(now) & year(now)  & hour(now) & minute(now) &  file.FileName

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage (server.mappath("original/") & day(now) & month(now) & year(now)  & hour(now) & minute(now) &  file.FileName)
'Find billede højde og brede
Width = Image.MaxX
Height = Image.MaxY    '<------------linie 72

IMGHEIGHT = Image.MaxY
IMGWIDTH = Image.MaxX
If IMGHEIGHT > IMGWIDTH Then
 
newSize = 336
NewWidth  = newSize
NewHeight = (newSize / Width) * Height
Image.Resize newSize,NewHeight
 
Else

newSize = 450
NewWidth  = newSize
NewHeight = (newSize / Width) * Height
Image.Resize newSize,NewHeight

End If


'Gem billedet
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.FileName = Server.Mappath("thumbnails450") & "/" & day(now) & month(now) & year(now)  & hour(now) & minute(now) &  file.FileName
Image.SaveImage




Set Image = Nothing

if CStr(intCount) = "0" then 
        streng = streng & "'" & "original" & "/"  & day(now) & month(now) & year(now)  & hour(now) & minute(now) &  file.FileName & "', "
else
streng = streng & "'" & "original" & "/"  & day(now) & month(now) & year(now)  & hour(now) & minute(now) &  file.FileName & "'"
end if
        intCount = intCount + 0
  End If
  Next
 
  set Conn = Server.CreateObject("ADODB.Connection")
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("jerg.mdb")
  Conn.Open strConn
 
 

  'henter form felterne
  navn = Replace(mySmartUpload.form("navn"),"'","''")
  kategori = Replace(mySmartUpload.form("kategori"),"'","''")
  produkt = Replace(mySmartUpload.form("produkt"),"'","") 
  pris = Replace(mySmartUpload.form("pris"),"'","")
  karakter = Replace(mySmartUpload.form("karakter"),"'","")
  mail = Replace(mySmartUpload.form("mail"),"'","''")
  url = Replace(mySmartUpload.form("url"),"'","''")
  ture = Replace(mySmartUpload.form("ture"),"'","''")
  beskriv = Replace(mySmartUpload.form("beskriv"),"'","''")
 
  beskriv = Replace(beskriv,vbCrLf,"<br>")
  dato = Replace(mySmartUpload.form("dato"),"'","''")
  billede = streng ' notat
 
if  kategori="" or produkt="" or beskriv="" or not isNumeric(karakter)  then
  Response.Write "Fejl i indtastningen."
  Response.End
else
  'kolonne typerne : navn :tekst, dato :date/time, karakter :tal, beskrivelse :notat/tekst
  sql = "insert into anm (navn, kategori, produkt, pris, karakter, url, ture, beskrivelse, dato, billede  ) values ("
  sql = sql & "'" & navn & "', "
  sql = sql & "'" & kategori & "', "
  sql = sql & "'" & produkt & "', "
  sql = sql & "'" & pris & "', "
  sql = sql & "" & karakter & ", "
  sql = sql & "'" & url & "', "
  sql = sql & "'" & ture & "', "
  sql = sql & "'" & beskriv & "', "
  sql = sql & "'" & day(now) & "-" & month(now) & "-" & year(now)  & "', "
  sql = sql & "" & billede & ""
  sql = sql & ")"




 
 

  Conn.Execute(sql)
  Conn.Close
  Set conn=nothing
 
  Response.redirect "anmeldelse.asp" 
end if
end if 
%>