ASPUpload - For Each-løkke virker ikke

Nu har jeg snart prøvet det hele. Laver jeg

response.write "bla"
response.end

efter "For Each..." bliver den ikke skrevet ud, hvilket jo tyder på at koden ikke bliver kørt.

Her er min kode:

<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False

    For Each File in Upload.Files

    if Request("optnew") = "N" then

      Set rs= Server.CreateObject("ADODB.Recordset")
      SQL = "SELECT item_img FROM shop_item WHERE id = '" & Request("id") & "'"
      Set rs = MySQLConn.Execute(SQL)

      Set fso = Server.CreateObject("Scripting.FileSystemObject")
      fso.DeleteFile ("d:\web\xxx.dk\www\files\" & rs("item_img"))

      Upload.Save("d:\web\xxx.dk\www\files")
   
      SQL1 = "UPDATE shop_item SET item_img = '" & File.FileName & "' WHERE id = '" & Request("id") & "'"
      MySQLConn.Execute(SQL1)
   
      Set fso = Nothing

      rs.Close
      Set rs = Nothing

    else
   
      Upload.Save("d:\web\xxx.dk\www\files")
   
      SQL1 = "UPDATE shop_item SET item_img = '" & file.FileName & "' WHERE id = '" & Request("id") & "'"
      MySQLConn.Execute(SQL1)

    end if

    next

MySQLConn.Close
Set MySQLConn = Nothing

%>

Håber nogen kan hjælpe!