Aspupload fejl ved upload

Jeg har lavet en form, som man skal vælge en fil også bliver den uploaded. Mit problem opstår når jeg ønsker at upload filen, det ligner den sprænger dette led over: For Each File in Upload.Files

her er min kode.....

<form method="post" enctype="multipart/form-data" action="uploadpros.asp?la=da&id=<%=Request.Form("hus")%>">
Billed:<br />
<input type="file" name="file1" class="form" /><br />
<input type="submit" value="Upload!" class="form" onClick="this.value='Vent venligst...'" />
</form>

----------------------------------------------------

Set Upload = Server.CreateObject("Persits.Upload")

For Each File in Upload.Files
    If File.ImageType = "UNKNOWN" Then
        Response.Write "Den valgte fil er ikke et billed!"
        Response.End
    End If
       
    If not file.IsMissing Then
                Set objRS = objConn.Execute("Select TOP 1 * FROM Upload ORDER BY ID DESC")
               
            If (Not objRS.BOF) And (Not objRS.EOF) Then
            objRS.MoveFirst
                While Not objRS.EOF
              intName = CInt(objRS("ID")) + 1
        objRS.MoveNext
              Wend
            End If

Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
Upload.SaveVirtual "images/" & intName & "." & file.FileExt

End if
next