Object required: ''

Hejsa

Når jeg køre følgende kode:

Set Upload = Server.CreateObject("Persits.Upload")
    Upload.ProgressID = Request.QueryString("PID")
    Upload.OverwriteFiles = False
Count = Upload.SaveVirtual("/iArrangementsudvalg/Pics/")

For Each File In Upload.Files
If File.ImageType <> "JPG" Then
File1.Delete
Response.write "Det er ikke et jpg billed"
end if
Next

Får jeg denne fejl:
Microsoft VBScript runtime error '800a01a8'

Object required: ''


HVad er der galt?