ASP Upload hjælp

Når dette script køres kommer kun en af filerne op men den giver ingen fejl.


  Set Upload = Server.CreateObject("Persits.Upload")
  Upload.OverwriteFiles = True
  Upload.SetMaxSize 900000, True
  Upload.SaveVirtual "../tmpimage"
  Set File1 = Upload.Files("image1")
  Set File2 = Upload.Files("image2")
  Name = Session.SessionID


Set  Str_overskrift  =     Upload.form("overskrift")
Set  Str_tekst1      =     Upload.form("tekst1")
Set  Str_tekst2      =     Upload.form("tekst2")
Set  Str_gruppe      =     Upload.form("gruppe")
Set  Str_aktiv      =     Upload.form("aktiv")


For Each File in Upload.Files

Dim FileName
FileName = File.ExtractFileName

if Err <> 0 Then

Response.Write "There was an ERROR! : " & Err.Description

Else

'If File.ImageType <> "JPG" Then
'File1.Delete
'response.redirect "../msg-page.asp?msgid=msg2"
'end if

Response.Write "Filen "&Name & File1.Ext&" er uploaded!<br>"
End If
Next


File1.Copy "e:\rc-internet\kunder\hindsgaul.dk\pict\ref\" & FileName & "-" & Name & File1.Ext
' Del\rename temp file
File1.Delete

File2.Copy "e:\rc-internet\kunder\hindsgaul.dk\pict\ref\" & FileName & "-" & Name & File2.Ext
' Del\rename temp file
File2.Delete