<%@ LANGUAGE = VBScript %>
<%
	' Visual Basic Scripting Example 01
	'
	' "Simple Drawings"
	'
	' Dimac 2002-02-18 (www.dimac.net)
	
		
	Dim imageobj
	Dim penobj
	Dim brushobj
	Dim extraspace
			
	extraspace = 20
		
	Set imageobj = Server.CreateObject("W3Image.Image")
		
	' Set background color before creating an empty surface
	imageobj.bkColor = &H00CDD2D8&
		
	imageobj.CreateEmptySurface 300, 200
		   
	' Create and select a pen
	Set penobj = imageobj.CreatePen("solid", 3, &H00BCC5CE&)
	imageobj.SetPen penobj
			
	' Create and select a solid brush
	Set brushobj = imageobj.CreateSolidBrush(&H00F5FAFF&)
	imageobj.SetBrush brushobj
			
	' Draw a rectangle using the selected brush and pen
	imageobj.DrawRect extraspace, extraspace, imageobj.Width - extraspace, imageobj.Height - extraspace
		
	' Stream data to the client
	imageobj.StreamImage Response, "JPG", 24

%>