Upload af billede - fejl

Jeg bruger dette script til at uploade et billede og derefter give det et tilfældigt navn via funktionen maketemp.
<%
  Function MakeTemp(Count)
    Dim randchars, S
    randchars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ012345678901234567890123456789"
    S = ""
    Randomize
    For I=1 To Count     
      S = S + Mid(RandChars, CLng( Rnd * (Len(RandChars)-2) +1 ), 1)
    Next
    MakeTemp = S
  End Function
 
  Function ExtractExt(FN)
    ExtractExt = Mid(FN, InStr(FN, "."))
  End Function
 

  Set Conn = Server.CreateObject("ADODB.Connection")
  Set Upload = Server.CreateObject("Persits.Upload.1") 
  Upload.SetMaxSize 100000, True 
  Upload.SaveToMemory
  Set ImgFile = Upload.Files("file1")

  If Err.Number = 8 Then
    Response.Write "<table border=0 width=500 cellpadding=0 cellspacing=0><tr><td align=center><b>Dit billede fylder for meget, prøv venligst igen.</b></td></tr><tr><td align=center><a href=java script:history.back();>Tilbage</a></td></tr></table>"
  Else
    if Err.Number <> 0 Then
      Response.Write "<table border=0 width=500 cellpadding=0 cellspacing=0><tr><td align=center><b>Du skal vælge et billede.</b></tr></td><tr><td align=center><a href=java script:history.back();>Tilbage</a></td></tr></table>"
    End If
  End If
  For Each File in Upload.Files
  Dim FName, UploadURL
  FName = MakeTemp(20) & ExtractExt(ImgFile.FileName)
  UploadURL = "images/profiler/" & FName
  ImgFile.SaveAsVirtual UploadURL
  Conn.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("profiles/profiles.mdb"))
Conn.Execute("INSERT INTO images (images, username) VALUES ('" & UploadURL & "', '" & Upload.Form("username") & "')")


  If Err <> 0 Then
    Response.Write headerfont & "<br>Der er sket en fejl! : " & Err.Description
  Else
    Response.Redirect "Add_Billede.asp?user=" & Upload.Form("username")
  End If
Next
%>

---------------------------------------------
Jeg får desværre denne fejlmeddelelse
Object doesn't support this property or method: 'ImgFile.FileName'