Subscript out of range

Hej..

Jeg har en kode her som skulle uploade en fil til serveren, men den kommer med denne fejl: Suscript out of range.

<%
               
           
              On Error Resume Next
           
            '  Variables
            '  *********
              Dim mySmartUpload
              Dim intCount
              Dim file
               
            '  Object creation
            '  ***************
              Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
             
            '  Only allow txt or htm files
            '  ***************************
              mySmartUpload.AllowedFilesList = "gif,jpg,jpeg,doc,txt"
           
            '  DeniedFilesList can also be used :
              ' Allow all files except exe, bat and asp
              ' ***************************************
              ' mySmartUpload.DeniedFilesList = "exe,bat,asp"
           
            '  Deny physical path
            '  *******************
              mySmartUpload.DenyPhysicalPath = True
           
            '  Only allow files smaller than 50000 bytes
            '  *****************************************
              mySmartUpload.MaxFileSize = 300000
           
            '  Deny upload if the total fila size is greater than 200000 bytes
            '  ***************************************************************
              mySmartUpload.TotalMaxFileSize = 300000
           
            '  Upload
            '  ******
                   
              mySmartUpload.Upload
             
              navn = mySmartUpload.form("navn")
              email = mySmartUpload.form("email")
              msg = mySmartUpload.form("msg")
             
              For each file In mySmartUpload.Files
              If not file.IsMissing Then
                   
              file.SaveAs("mailfiles/"&file.FileName)
              intcount = intcount + 1
              End If
              Next
           
            '  Save the files with their original names in a virtual path of the web server
            '  ****************************************************************************
             
           
            '  Trap errors
            '  ***********
              If Err Then
                    Response.write navn
                    Response.write email
                    Response.write msg
                    Response.write file
                  Response.Write("<b>Wrong selection : </b>" & Err.description)
              Else
              '  Display the number of files uploaded
              '  ************************************
                  set msg = Server.CreateOBject( "JMail.Message" )
                msg.ContentType = "text/html"
                msg.Logging = true
                msg.silent = true
               
                msg.From = email
                msg.FromName = navn
               
                msg.AddRecipient "jtp@jtponline.dk"
               
                msg.Subject = "E-mail fra ASP Developer"
               
                msg.body msg
               
                msg.AddAttachment("mailfiles/"&file.FileName)
               
                if not msg.Send(smtp) then
                    Response.write "<pre>" & msg.log & "</pre>"
                else
                    response.write "<center>Din besked er nu blevet sendt. Jeg vil svare tilbage så hurtigt som muligt. <p>Tak for henvendelsen.</p></center>"
                end if
              End If

            %>

Jeg aner ikke hvor henne i koden det kommer..