ASP Image med brug af gif

Hejsa

Jeg bruger en komponent som hedder ASP Image samt ASP IMageSize size fra serverobjects.com, til at lave Thumbnails on the fly, disse komponenter skulle kunne finde ud af formaterne GIF,JPG, PNG, BMP, TGA og PCX, men jeg kan simpelthen ikke få det til at virke på GIF! Koden jeg bruger ser ud som nedenstående (har prøvet med .gif istedet for . jpg ;) )



                        <%
                        Dim ImageName
                        Dim DummyPic
                        'Create a Random Number called Random_Number
                       
                        Randomize
                       
                        'Set your Min and Max Values
                       
                        Random_Number_Min = 2
                        Random_Number_Max = 9999
                       
                        'Call the RND Command
                       
                        Random_Number = Int(((Random_Number_Max-Random_Number_Min+1) * Rnd) + Random_Number_Min)
                       
                        DummyPic = "../../img/nopic.jpg"
                       
                        ImageName = "/sponsor/img/" & rs("logo")
                        if Len(ImageName) < 1 then
                          ImageName = DummyPic
                        end if
                       
                        ImageName = Server.MapPath(ImageName)
                        'response.write(ImageName)
                       
                        '*** get width/height of original image
                        Set objImageSize = Server.CreateObject("ImgSize.Check")                                                                                   
                        objImageSize.FileName = ImageName
                        ImageHeight = objImageSize.Height
                        ImageWidth = objImageSize.Width
                       
                        If ImageHeight < 1 then ImageHeight = 1 end if
                        If ImageWidth < 1 then ImageWidth = 1 end if 
                       
                       
                        '*** calculate aspect ratio based on MINPIXELS
                        If ImageHeight > ImageWidth Then
                            NewHeight = (ImageHeight*(MINPIXELS/ImageWidth))  '###CInt
                            NewWidth = MINPIXELS
                        Else
                            NewWidth = (ImageWidth*(MINPIXELS/ImageHeight))    '###CInt
                            NewHeight = MINPIXELS
                        End If
                        Set objImageSize = Nothing
                       
                        '*** create thumbnail image
                        Set Image = Server.CreateObject("AspImage.Image")
                       
                        Image.LoadImage(ImageName)
                       
                        newPicFileNameOnDisk = ""
                        NewPicLogicalFileName = ""
                        NewPicLogicalFileName = "/sponsor/img/small/small_" & Random_Number & ".jpg"                       
                        newPicFileNameOnDisk = Server.MapPath(NewPicLogicalFileName)
                        newPicFileNameOnDisk = trim(newPicFileNameOnDisk)
                        response.write(newPicFileName)
                       
                        Image.FileName = newPicFileNameOnDisk
                        Image.ImageFormat = 1
                        Image.JPEGQuality = 100
                        Image.Resize NewWidth,NewHeight
                        Image.SaveImage
                        Set Image = Nothing
                       
                        Response.Write "<img src=""" & newPicLogicalFileName & """ border=""0"">" %>



Har i en løsning på mit problem ?


/Stig :-)