Upload af fil med AspSmartUpload

Nu har jeg brugt hele dagen på at sidde og undre mig over hvorfor jeg ikke kan få gølgende kode til at virke. Den er klippet fra et andet projekt jeg har lavet, og der virker den fint:

************************** Kode start **************************
<%
    'Uploader og resizer et nyt billede
    If bolWasPosted AND request("savePicture") = true Then
        'Max billede størrelse i bytes
        Const MaxFileSize = 512000 '500 KB
       
        Set Upload = Server.CreateObject("AspSmartUpload.SmartUpload")
        Upload.MaxFileSize = MaxFileSize
        Upload.AllowedFilesList = "jpg,jpeg,png"
        Upload.Upload
        If Err <> 0 Then
            If Err = -2147220494 Then intErrorCode = 20
            If Err = -2147220399 Then intErrorCode = 21
            Err.Clear
        End If
   
        If Not Upload.Files("file").IsMissing And intErrorCode = 0 Then
            strFilename = strGenerator()
            strFilename = strFilename &"_"& Upload.Files("file").FileName
   
            Upload.Files("file").SaveAs Server.MapPath("/images/Pictures/" & strFilename)
            If Err = 0 Then
                'Resizer picture
              Set Image = Server.CreateObject("AspImage.Image")
                Image.LoadImage Server.MapPath("/images/Pictures/" & strFilename)
               
                If Image.MaxX > 200 Then
                    If(Image.MaxX > Image.MaxY) Then
                        intRatio = ((200 * 100) / Image.MaxX)
                        intNewY = CInt(Image.MaxY * (intRatio / 100))
                        Image.ResizeR 200, intNewY
                        Image.ImageFormat = 1           
                    Else
                        intRatio = ((200 * 100) / Image.MaxY)
                        intNewX = CInt(Image.MaxX * (intRatio / 100))
                        Image.ResizeR intNewX, 200
                        Image.ImageFormat = 1
                    End if
                End if
              Image.FileName = Server.MapPath("/images/Pictures/" & strFilename)
                Image.SaveImage
               
                Image.LoadImage Server.MapPath("/images/Pictures/" & strFilename)
                intRatio = ((40 * 100) / Image.MaxX)
                intNewY = CInt(Image.MaxY * (intRatio / 100))
                Image.ResizeR 40, intNewY
                Image.ImageFormat = 1
                Image.FileName = Server.MapPath("/images/Pictures/thumbnails/" & strFilename)
                Image.SaveImage
               
                Conn.Execute("INSERT INTO Pictures (Name,FileName,WebShow,FolderId,Alignment,Alt) VALUES ('"& Upload.Form("Name") &"', '"& strFilename &"', "& Upload.Form("show") &", "& Upload.Form("Category") &", '"& Upload.Form("iAlign") &"','"& Upload.Form("Alt") &"');")
               
                Set Image = Nothing   
                Set Upload = Nothing
            Else
                intErrorCode = 30
            End If
        Else
            If intErrorCode = 0 Then
                intErrorCode = 40
            End if
        End If
       
        If intErrorCode = 0 Then
            'Hvis alt går godt kode ind her
        End if
    End If
    Response.write "Fejl:" & intErrorCode
%>

************************** Kode Slut ************************

selvom jeg prøver at udskrive intErrorCode, så er den altid 0, og hvis jeg vælger en fil i formen, så går der noget tid, svarende til den tid det tager at overføre filen til serveren, men den får aldig flyttet filen til den angivede mappe...

Et lidt andet spg. Er det ike muligt at tjekke for fil størrelsen inden filen uploades..?