Arrrh!

Hvad er det der går galt her?

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

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

Det giver følgende fejl:
Invalid 'for' loop control variable