Tekst på billeder?

http://www.eksperten.dk/spm/211864

Her fik jeg en MASSE hjælp til at ændre størrelse og sætte vandmærke.

http://www.aspupload.com/aspjpeg.html

'*******************************************
'CREATE WATERMARK START
'*******************************************
                    If strImageWidth < strImageHeight Then
                        '--------------------------------------------------------------------       
                        'Open uploaded file
                        '--------------------------------------------------------------------
                        jpeg.Open( File.Path )

                        '--------------------------------------------------------------------
                        'Resize watermark
                        '--------------------------------------------------------------------
                        jpeg.Height = "500"

                        '--------------------------------------------------------------------
                        'Set new height, preserve original width/height ratio on watermark.
                        '--------------------------------------------------------------------
                        jpeg.Width = jpeg.OriginalWidth * jpeg.Height / jpeg.OriginalHeight

                        '--------------------------------------------------------------------           
                        'Set the quality.
                        '--------------------------------------------------------------------
                        jpeg.Quality = 60
                       
                        imgFolderWatermarks= "../FPF_images/FPF_watermarks"
                        SavePathWaterMark = server.MapPath(imgFolderWatermarks) & "\W_" & FilNavn

                        '--------------------------------------------------------------------       
                        ' If the original file was not a JPEG, append .JPG extension.
                        '--------------------------------------------------------------------       
                        If UCase(Right(SavePathWaterMark, 3)) <> "JPG" Then
                        SavePathWaterMark = SavePathWaterMark & ".jpg"
                        End If

                        '--------------------------------------------------------------------                   
                        ' Open the watermark logo file
                        '--------------------------------------------------------------------       
                        Set Logo = Server.CreateObject("Persits.Jpeg")
                        LogoPath = Server.MapPath("images\watermark") & "\watermark.jpg"
                        Logo.Open LogoPath

                        '--------------------------------------------------------------------                   
                        ' resize watermark logo image, preserve aspect ratio
                        '--------------------------------------------------------------------       
                        Logo.Width = jpeg.Width
                        Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth           
                                   
                        '--------------------------------------------------------------------                   
                        ' Place watermark in middle of image in center
                        '--------------------------------------------------------------------       
                        jpeg.DrawImage 0,Jpeg.Height / 3, Logo, 0.5,&HFFFFFF,100
                       
                        '--------------------------------------------------------------------                   
                        ' Draw text in upper left corner
                        '--------------------------------------------------------------------                       
                        Jpeg.Canvas.Font.Color = &HFFFFFF
                        Jpeg.Canvas.Font.Family = "verdana"
                        Jpeg.Canvas.Font.Size = "14"
                        Jpeg.Canvas.Font.Bold = False
                        Jpeg.Canvas.Print 5,5 , "Copyright 2001-" & strYear & " fagpressefoto.no"

                        '--------------------------------------------------------------------
                        'Save the watermark
                        '--------------------------------------------------------------------
                        jpeg.Save SavePathWaterMark                   
                       
                    Else
                   
                        '--------------------------------------------------------------------       
                        'Open uploaded file
                        '--------------------------------------------------------------------
                        jpeg.Open( File.Path )

                        '--------------------------------------------------------------------
                        'Resize watermark
                        '--------------------------------------------------------------------
                        jpeg.Width = "500"

                        '--------------------------------------------------------------------
                        'Set new height, preserve original width/height ratio on watermark.
                        '--------------------------------------------------------------------
                        jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth

                        '--------------------------------------------------------------------           
                        'Set the quality.
                        '--------------------------------------------------------------------
                        jpeg.Quality = 60

                        imgFolderWatermarks= "../FPF_images/FPF_watermarks"
                        SavePathWaterMark = server.MapPath(imgFolderWatermarks) & "\W_" & FilNavn

                        '--------------------------------------------------------------------       
                        ' If the original file was not a JPEG, append .JPG extension.
                        '--------------------------------------------------------------------       
                        If UCase(Right(SavePathWaterMark, 3)) <> "JPG" Then
                        SavePathWaterMark = SavePathWaterMark & ".jpg"
                        End If

                        '--------------------------------------------------------------------                   
                        ' Open the watermark logo file
                        '--------------------------------------------------------------------       
                        Set Logo = Server.CreateObject("Persits.Jpeg")
                        LogoPath = Server.MapPath("images\watermark") & "\watermark.jpg"
                        Logo.Open LogoPath

                        '--------------------------------------------------------------------                   
                        ' resize watermark logo image, preserve aspect ratio
                        '--------------------------------------------------------------------       
                        Logo.Width = 500
                        Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth           
                                   
                        '--------------------------------------------------------------------                   
                        ' Place watermark in middle of image in center
                        '--------------------------------------------------------------------       
                        jpeg.DrawImage 0,Jpeg.Height / 3, Logo, 0.5,&HFFFFFF,100
                        'jpeg.DrawImage 0, 0, Logo, ,H240100100,220
                        'jpeg.DrawImage 0, 0, Logo, , &HFF0000
                   
                        Jpeg.Canvas.Font.Color = &HFFFFFF
                        Jpeg.Canvas.Font.Family = "verdana"
                        Jpeg.Canvas.Font.Size = "14"
                        Jpeg.Canvas.Font.Bold = False
                        Jpeg.Canvas.Print 5,5 , "Copyright 2001-" & strYear & " fagpressefoto.no"

                        '--------------------------------------------------------------------
                        'Save the watermark
                        '--------------------------------------------------------------------
                        jpeg.Save SavePathWaterMark
                       
                    End if
                                           
'*******************************************
'CREATE WATERMARK END
'*******************************************