Upload problem

Jeg bruger nedenstående kode til at oploade 3 elementer(foto,salgsopstilling,regneark) plus tilhørende tekst.


<%
Set Upload = Server.CreateObject("Persits.Upload")
' Capture files
Upload.Save(server.mappath("../image/ejendomme/upload"))

' Obtain file object
Set foto = Upload.Files("foto")
Set regneark = Upload.Files("regneark")
Set salgsopstilling = Upload.Files("salgsopstilling")

  ' Build ODBC connection string
  Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../db/db.mdb")

  ' If you use SQL Server, the connecton string must look as follows:
  ' Connect = "Driver=SQL Server;Server=MYSERVER;UID=sa;PWD=xxxxxxxxx"

  ' Build SQL INSERT statement
  SQL_beliggenhed = "INSERT INTO ejendomBeliggenhed(foto, vejnavn, vejnummer, postNummer, postBy, ejendomstype, status, salgsOpstilling, regneark) VALUES('"
  SQL_beliggenhed = SQL_beliggenhed & "image/ejendomme/upload/" & foto.Filename & "', '"
  SQL_beliggenhed = SQL_beliggenhed & Replace(Upload.Form("vejnavn"), "'", "''") & "', '"
  SQL_beliggenhed = SQL_beliggenhed & Replace(Upload.Form("vejnummer"), "'", "''") & "', '"
  SQL_beliggenhed = SQL_beliggenhed & Replace(Upload.Form("postNummer"), "'", "''") & "', '"
  SQL_beliggenhed = SQL_beliggenhed & Replace(Upload.Form("postBy"), "'", "''") & "', '"
  SQL_beliggenhed = SQL_beliggenhed & Replace(Upload.Form("ejendomstype"), "'", "''") & "', '"
  SQL_beliggenhed = SQL_beliggenhed & Upload.Form("status") & "', '"
  SQL_beliggenhed = SQL_beliggenhed & "image/ejendomme/upload/" & salgsopstilling.Filename & "', '"
  SQL_beliggenhed = SQL_beliggenhed & "image/ejendomme/upload/" & regneark.Filename & "')"

  SQL_beskrivelse = "INSERT INTO ejendomBeskrivelse(sagsnummer, beskrivelse, kortBeskrivelse, pris, grundAreal, samletBygningsareal) VALUES('"
  SQL_beskrivelse = SQL_beskrivelse & Replace(Upload.Form("sagsnummer"), "'", "''") & "', '"
  SQL_beskrivelse = SQL_beskrivelse & Replace(Upload.Form("tekst"), "'", "''") & "', '"
  SQL_beskrivelse = SQL_beskrivelse & Replace(Upload.Form("kortBeskrivelse"), "'", "''") & "', '"
  SQL_beskrivelse = SQL_beskrivelse & Replace(Upload.Form("pris"), "'", "''") & "', '"
  SQL_beskrivelse = SQL_beskrivelse & Replace(Upload.Form("grundAreal"), "'", "''") & "', '"
  SQL_beskrivelse = SQL_beskrivelse & Replace(Upload.Form("samletBygningsareal"), "'", "''") & "')"
 
  ' Save to database
foto.ToDatabase Connect, SQL_beliggenhed
regneark.ToDatabase connect, SQL_beskrivelse
Response.Redirect("tilfoj.asp?tilfoj=ok&ejendomstype=" & Upload.Form("ejendomstype") & "")
%>

Det virker også fint nok indtil man undlader og oploade én en de tre førnævnte elementer, så man f.eks. kun vil oploade foto og regneark.

Så får jeg denne fejlmeddelelse:
Error Type:
"Microsoft VBScript runtime (0x800A01A8)
Object required"

Er det muligt og flette nogle if-sætninger ind så de linier hvor fejlen sker ikke bliver udført hvis man ikke vil oploade alle tre elementer?