ASPupload - problemer med fejlhåndtering

Hej
Har problemer med fejlhåndtering i forbindelse med upload af billeder. Jeg oploader til memory først, for at kunne ændre navnet på filen ... tror måske det er det, som giver problemet. Når jeg prøver at oploade en for stor fil, får jeg ikke en fejlmeddelelse ... men filen oploades ikke (hvilket den jo heller ikke skal). Ville dog gerne have en fejlmeddelelse ... what to do?


    Set Upload = Server.CreateObject("Persits.Upload")
    ' we use memory uploads, so we must limit file size
    Upload.SetMaxSize 50000, True
    Upload.OverwriteFiles = False
    On Error Resume Next
   
    ' Save to memory. Path parameter is omitted
    Upload.Save
   
    ' Access subdirectory specified by user
    subdir = Upload.Form("subdir")
   

    ' her laver vi en variabel, så filnavne bliver unikke.. i dette tilfælde en masse tal
    NewName = right("0" & year(now), 2) & right("0" & month(now), 2) & right("0" & day(now), 2)
    NewName = NewName & hour(time) & minute(time) & second(time) & ".jpg"

   
    ' Build path string
    Path = Server.MapPath("\web\test\")
    'Path = "c:\webs\talkactive\web225253\makeaweb.dk\web\sandkasse\test\" & subdir
    'strMappath = "c:\webs\talkactive\web225253\makeaweb.dk\web\sandkasse\test\"
   
    'så gemmer vi
    For Each File in Upload.Files
      File.SaveAs Path & "\" & NewName
      'Response.Write "File saved as " & File.Path & "<BR>"
      KomprimerBillede(File.Path)
    Next

    ' Så må vi hellere lige undersøge om filen måske
    ' var for stor. Hvis filen var for står, får vi fejl nummer 8
    If Err.Number = 8 Then
      ' Den var for stor
      Response.Write "Filen er for stor. Prøv igen."
    Else
      ' Den var ikke for stor
      ' Opstod der en anden fejl ?
      If Err <> 0 Then
        ' Ja - fortæl brugeren det
        Response.Write "Der opstod en fejl : " & Err.Description
      Else
        ' Nej - det gik godt
        Response.Write intFileCount & " fil(er) uploadet.<br>" & vbCrLf
      End If
    End If
   
    ' Slå fejl-check til igen
    On Error Goto 0
   
    ' Så er vi færdige, så vi rydder pænt op efter os
    Set objUpload = Nothing