smart upload resize - hvad går galt ?

Hejsa..
Jeg får denne fejl under upload af billede der skal resizes.. samme script fungerer fint på et andet site.. Den får uploadet billedet men derfra går det galt.. jeg får denne fejl..

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'ResizeImage'


    Sub TilfojBog()
        If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
            Set SmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
          SmartUpload.Upload
            For each item In SmartUpload.Form
              If Item = "kategori" Then
                For each value In SmartUpload.Form(Item)
                  Kategori = Value
                Next
              ElseIf Item = "titel" Then
                For each value In SmartUpload.Form(Item)
                  Titel = Value
                Next
              ElseIf Item = "forfatter" Then
                For each value In SmartUpload.Form(Item)
                  Forfatter = Value
                Next
              ElseIf Item = "forlag" Then
                For each value In SmartUpload.Form(Item)
                  Forlag = Value
                Next
              ElseIf Item = "udaar" Then
                For each value In SmartUpload.Form(Item)
                  Udaar = Value
                Next
              ElseIf Item = "pris" Then
                For each value In SmartUpload.Form(Item)
                  Pris = Value
                Next
              ElseIf Item = "indhold" Then
                For each value In SmartUpload.Form(Item)
                  Indhold = Value
                Next
              ElseIf Item = "billede" Then
                For each value In SmartUpload.Form(Item)
                  BilledeNavn = Value
                Next
              End If
            Next
           
            Const adOpenKeyset = 1
            Const adLockOptimistic = 3
            adCmdTable = 2
           
            Rs.Open "boger", Conn, adOpenKeyset, adLockOptimistic, adCmdTable
            Rs.AddNew
           
            Rs("kategori") = Kategori
            Rs("titel") = Titel
            Rs("forfatter") = Forfatter
            Rs("forlag") = Forlag
            Rs("udaar") = Udaar
            Rs("pris") = Pris
            Rs("indhold") = Beskrivelse
           
            Rs.Update
                       
            ImgNum = Rs("ID")
           
            BilledeNavn = CStr(ImgNum) + ".jpg"
           
            Rs("billede") = BilledeNavn
           
            Rs.Update
           
          For each File In SmartUpload.Files
            'i = SmartUpload.Save("/images/boger")
            SmartUpload.files.item(1).saveas "../images/boger/" + BilledeNavn
            'File.Move("/images/boger/"+BilledeNavn)
          Next
           
            'Resize af billede
            ResizeImage "../images/boger/", BilledeNavn, 450, 300, 0
           
            'Resize af thumb           
            ResizeImage "../images/boger/", BilledeNavn, 150, 100, 1
        End If
    End Sub