AspSmartUpload, billede bliver ikke uploadet

Hej

Ja som titlen siger, når jeg trykker send bliver billedet ikke uploadet men den udføre det hele uden den melder fejl.

Her er koden:

    Set lastnews = Conn.Execute("Select * from news order by id desc")
    StrLastId = lastnews("id")
   
    If mySmartUpload.Files.Item(1).IsMissing Then
        '//Uden billede
       
        '//Lille billede
        NewHeight = 50
        NewWidth = 50
        Set Image = Server.CreateObject("AspImage.Image")
        Image.LoadImage server.mappath("news_pic/news_big_156.jpg")
        Image.ImageFormat = 1
        Image.JPEGQuality = 500
        Image.ResizeR NewWidth,NewHeight
       
        Image.FileName = server.mappath("news_pic/news_small_"& lastnews("id")&".jpg")
        Image.SaveImage
       
        '//Stort billede
        NewHeight = 315
        NewWidth = 250
        Set Image = Server.CreateObject("AspImage.Image")
        Image.LoadImage server.MapPath("news_pic/news_big_156.jpg")
        Image.ImageFormat = 1
        Image.JPEGQuality = 500
        Image.ResizeR NewWidth,NewHeight

        Image.FileName = server.mappath("news_pic/news_big_"& lastnews("id")&".jpg")
        Image.SaveImage
       
        Response.Write "Uden billed"
       
    Else
        '//Med billede

        mySmartUpload.Files("pic").SaveAs Server.MapPath("news_pic/news_"& lastnews("id") &".jpg")

        Set objImg = Server.CreateObject("AspImage.Image")
        objImg.LoadImage server.MapPath("news_pic/news_" & lastnews("id") & ".jpg")
        ImageHeight = objImg.MaxY
        ImageWidth = objImg.MaxX
       
        '//Lille billede

        NewHeight = 50
        NewWidth = 50
        Set objImg = Nothing
        Set Image = Server.CreateObject("AspImage.Image")
        Image.LoadImage server.MapPath("news_pic/news_"& lastnews("id") &".jpg")
        Image.ImageFormat = 1
        Image.JPEGQuality = 500
        Image.ResizeR NewWidth,NewHeight

        Image.FileName = server.mappath("news_pic/news_small_"& lastnews("id") &".jpg")
        Image.SaveImage

        If ImageWidth > 250 Then
            size = 250
        Else
            size = ImageWidth
        End If

        NewHeight = Cint((ImageHeight/ImageWidth)*size)
        NewWidth = size
        Set objImg = Nothing
        Set Image = Server.CreateObject("AspImage.Image")
        Image.LoadImage server.MapPath("news_pic/news_"& lastnews("id") &".jpg")
        Image.ImageFormat = 1
        Image.JPEGQuality = 500
        Image.ResizeR NewWidth,NewHeight

        Image.FileName = server.mappath("news_pic/news_big_"& lastnews("id") &".jpg")
        Image.SaveImage

        Response.Write "Med billed"
    End If


Hvad er der galt???

/Sixer