Thumbnail

Hejsa -

Jeg har prøvet at lave thumbnails via ASPImage, men det virker ikke.

Min DB ser således ud

Filmnr|Titel|Billed1|Billed2|...|Billed25

Jeg vil gerne have en løsning der kan danne thumbnails for hvert recordset der er i min DB.

Indtil videre har jeg følgende kode:

<%
                If rs(\"Billed1\") <> \"\" Then
               
                    Set Image = Server.CreateObject(\"AspImage.Image\")
               
                    ImgFullPath = (Server.MapPath(\"media/\"&rs(\"Billed1\")&\"\"))
               
                    Image.LoadImage ImgFullPath
               
                    Image.GetImageFileSize imgFullPath, X, Y
                    Image.MaxX = X
                    Image.MaxY = Y
               
                    If X > Y OR X > 100 Then
                        ResizedX = 100
                        ResizedY = (ResizedX * Y/X)
                    End if
               
                    Image.Resize ResizedX, ResizedY
               
                    Image.ImageFormat = 1
                    Image.JPEGQuality = 50
                    Image.FileName = Server.MapPath(\"./media/\"&rs(\"Billed1\")&\"\")
                    Image.SaveImage
               
                    Response.Write \"<img src=\"\"media/\"&rs(\"Billed1\")&\"\"\">\"
               
                    Set Image = Nothing
                Else
                    Response.Write Image.Image
                End if
                %>