<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% '*************************************************************************** ' e-Kov Software Picture Effector 2.3 tutorial script (c) 2001-2003 ' Mailto: support@e-Kov.com ' WWW: www.e-Kov.com ' Draw text on the picture '*************************************************************************** Dim Obj Set Obj = Server.CreateObject("eKov.PictureEffectorTrial") With Obj .LoadFromFile server.mappath("/images/new/") &"\"&request.QueryString("image") newWidth = 110 newHeight = newWidth * Obj.Height / Obj.Width .Resize newWidth, newHeight, 4 .Quality = 95 End With Response.ContentType = "image/jpeg" Response.Buffer = True Response.Clear Response.BinaryWrite Obj.GetImageAsJpeg Set Obj = nothing %>