Combining Images with Regions (ASP - VBScript)

Copy the following code into an ASP file to combine two images with a region:

<%@ Language=VBScript %>
<%
      Dim RasterObj
      Dim RasterObj2
      Dim RasterIO
      Dim RasterProc

      Set RasterObj = Server.CreateObject ("LEADRaster.LEADRaster.145")
      Set RasterObj2 = Server.CreateObject("LEADRaster.LEADRaster.145")
      Set RasterIO = Server.CreateObject("LEADRasterIO.LEADRasterIO.145")
      Set RasterProc = Server.CreateObject("LEADRasterProcess.LEADRasterProcess.145")

      Dim FILE_JFIF
      FILE_JFIF = 10

      RasterIO.Load RasterObj, "d:\customers\script.jpg", 0, 0, 1

      Dim CB_OP_ADD
      Dim CB_DST_0

      CB_OP_ADD = 768
      CB_DST_0 = 32

      RasterIO.Load RasterObj, "d:\\customers\\script.jpg", 0, 0, 1
      RasterIO.Load RasterObj2, "d:\\customers\\temp1.jpg", 0, 0, 1

      RasterObj.SetRgnRect 100, 100, 300, 300, 0
      RasterProc.Combine RasterObj, 100, 100, 300, 300, RasterObj2, 0, 0, CB_OP_ADD + CB_DST_0
      RasterObj.FreeRgn
      RasterIO.Save RasterObj, "c:\\asp.jpg", FILE_JFIF, 0, 2, 0
      RasterIO.Save RasterObj2, "c:\\asp2.jpg", FILE_JFIF, 0, 2, 0

      Response.Write "<IMG SRC='c:\\asp.jpg'>"
      Response.Write "<IMG SRC='c:\\asp2.jpg'>"

%>