<%
Set Image = Server.CreateObject("AspImage.Image")
strMessage = "Plug In"
Image.FontColor = vbBlue
Image.Italic = False
Image.Bold = True
Image.FontName = "Verdana"
Image.FontSize = 30

Image.MaxX = Image.TextWidth (strMessage)
Image.MaxY = Image.TextHeight (strMessage)
Image.GradientOneWay vbRed, vbWhite, 0
Image.TextOut strMessage, Image.X, Image.Y, false
Image.FileName = "d:\inetpub\clientes\xyz\html\" & strMessage & ".jpg"

if Image.SaveImage then
Response.Write "<img src=""..\teste\" & strMessage & ".jpg""><br>"
Image.LoadImage "d:\inetpub\clientes\xyz\html\" & strMessage & ".jpg"
Response.Write "Largura=" & (Image.MaxX) & " e Altura=" & (Image.MaxY)
else
Response.Write "Largura=" & (Image.MaxX) & " e Altura=" & (Image.MaxY)
end if
%>

<% Set objPdf = Nothing %>