Marca d'água com ASPJPEG

[RCM 0]

Boa tarde a todos, eu tenho o seguinte código para redimensionamento de imagens que consegui aqui no fórum mesmo. Tem como colocar nele alguma função do proprio aspjpeg para colocar uma marca d'água? E na página chamo a pagina que contém esse código. Por favor me ajudem sou meio leigo no assunto.

 

 

Abaixo segue o código:

Function BinaryToString(strBinary)
Dim intCount
BinaryToString =""
For intCount = 1 to LenB(strBinary)
BinaryToString = BinaryToString & chr(AscB(MidB(strBinary,intCount,1))) 
Next
End Function
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", ""& STRIMG &"", False
xml.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
xml.setRequestHeader "referer", ""&APPLICATION("URLLOJA")&""
xml.Send
var = xml.responsebody
'response.BinaryWrite var
set xml = nothing

Set Jpeg = Server.CreateObject("Persits.Jpeg")

Jpeg.OpenBinary var
L = 40
If Jpeg.OriginalWidth > Jpeg.OriginalHeight Then
If Jpeg.OriginalWidth > L Then
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
End if
Else
If Jpeg.OriginalHeight > L Then
Jpeg.Height = L
Jpeg.Width = Jpeg.OriginalWidth * L / Jpeg.OriginalHeight
End if
End If
Jpeg.SendBinary

[Ted k' 126]

Set JpegLogo = Server.CreateObject("Persits.Jpeg")

JpegLogoPath = Server.MapPath("img/marca.gif")

JpegLogo.Open JpegLogoPath

AspJpeg.DrawImage AspJpeg.Width-630, AspJpeg.Height-120, JpegLogo, , &H000000