aspSmartUpload - kan ikke gemme

Jeg har dette script:

<%
Dim mySmartUpload
Dim file
Dim intCount
intCount=0

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload

  if mySmartUpload.form("new") = 0 then
 
    Set rs= Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT item_img FROM shop_item WHERE id = '" & mySmartUpload.form("id") & "'"
    Set rs = MySQLConn.Execute(SQL)

    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    fso.DeleteFile ("d:\web\xxx.dk\www\files\" & rs("item_img"))

    file.SaveAs("d:\web\xxx.dk\www\files\" & file.FileName)
   
    SQL1 = "UPDATE shop_item SET item_img = '" & file.Name & "' WHERE id = '" & mySmartUpload.form("id") & "'"
    MySQLConn.Execute(SQL1)
   
    fso.Close
    Set fso = Nothing

    rs.Close
    Set rs = Nothing

  else
 
    file.SaveAs ("d:\web\xxx.dk\www\files\" & file.FileName)
   
    SQL1 = "UPDATE shop_item SET item_img = '" & file.Name & "' WHERE id = '" & mySmartUpload.form("id") & "'"
    MySQLConn.Execute(SQL1)
 
  end if
%>

Uanset hvad jeg gør får jeg denne fejl:

Microsoft VBScript runtime error '800a01a8'
Object required: ''

Fejlen er i denne linie:

file.SaveAs ("d:\web\xxx.dk\www\files\" & file.FileName)

Kan nogen hjælpe?