Erro ASP

Olá pessoal, estou com os seguinte erro
(Number: 13 Source: Microsoft VBScript runtime error
// Description: Type mismatch)




O trecho do código:
 

Function arquivo_gravar()
    strStatus = mensagemStatus(strStatus,"<br> // Lendo arquivo enviado.","blue")
    Err.Clear
    Set objUpload = Server.CreateObject("Dundas.Upload.2")
    objUpload.MaxFileSize    = 10000000
    objUpload.UseUniqueNames = true
    objUpload.Save Server.MapPath("../temp/")
    If Not Err Then
        arrArquivo     = Array(objUpload.Files(0).Size, objUpload.Files(0).Path, objUpload.Files(0).OriginalPath)
        strStatus      = mensagemStatus(strStatus,"Arquivo gravado - Tamanho            : " &arrArquivo(0)/1000& " KB","black")
        strStatus      = mensagemStatus(strStatus,"Arquivo gravado - Nome Original      : " &Mid(arrArquivo(2),InStrRev(arrArquivo(2),"\")+1,Len(arrArquivo(2))),"black")
        strStatus      = mensagemStatus(strStatus,"Arquivo gravado no diretório com sucesso!","darkgreen")
        arquivo_gravar = arrArquivo
    End if
    Set objUpload = nothing
End Function

Alguém sabe do que se trata?