Lægge billed ovenpå billed i ASPImage

Hejsa

Jeg har en side som ved hjælp af ASPImage laver en thumbnail, men jeg vil gerne have lagt et lille billed oven på det "store" billed!

Jeg har følgende kode:

<% @LANGUAGE = VBScript %>


<!--#include file="siteCheck.asp"-->

<%

'####### ProductPic ############
'## Create db objects and SQL   
set ProductpicConn = Server.CreateObject("ADODB.Connection")
ProductpicConn.CursorLocation = 3
ProductpicConn.Open Application("ConnectString")
Set prodpicrs = Server.CreateObject("ADODB.Recordset")

ProductpicSql = "SELECT BILLEDFIL FROM VarerSQL WHERE id = " & trim(request.querystring("id")) & ";"
'response.write ProductpicSql
'response.end
'ProductpicSql = "SELECT BILLEDFIL FROM VarerSQL WHERE ID = 3;"

Set prodpicrs = ProductpicConn.Execute(ProductpicSql)

%>

<%

'Instantiate object (Server Objects ASPImage component)
Set MyImage = Server.CreateObject("AspImage.Image")

'filename of original image w/ extension
Dim strOrigImg
strOrigImg = "" & trim(prodpicrs("BILLEDFIL")) & ""

'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = "" & trim(prodpicrs("BILLEDFIL")) & ""

'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath ="D:\www2\web\www\mainsite\prodpic\"

'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = "D:\www2\web\www\log\"

Dim strOriginal, strThumb, ResizedX,ResizedY

strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & strThumbName

'load original image
MyImage.LoadImage strOriginal


If ImageHeight > ImageWidth Then
    ResizedX = 135
    MyImage.GetImageFileSize strOriginal, Y, X
    MyImage.MaxX = X
    MyImage.MaxY = Y
Else
    ResizedX = 135
    MyImage.GetImageFileSize strOriginal, X, Y
    MyImage.MaxX = X
    MyImage.MaxY = Y
End If


'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY

MyImage.FontColor = vbBlue
MyImage.Italic = False
MyImage.Bold = TRUE
MyImage.FontName = "Arial"
MyImage.FontSize = 18
MyImage.PadSize = 3
MyImage.AntiAliasText = FALSE
MyImage.TextAlign = 0
MyImage.TextAngle = 0


strMessage = Request.querystring("rabatpct")

MyImage.JPEGQuality = 95
ProgressiveJPEGEncoding = true


MyImage.TextOut strMessage, MyImage.X, MyImage.Y, true

'writing thumbnail directly to client
Response.BinaryWrite MyImage.Image

'Cleanup
Set MyImage = Nothing
%>


Hvordan gør jeg det, og er det muligt at lave noget text oven på det nye lille billed??

Håber i kan hjælpe :-)

/stig :-)