Ellipse nLeftRect, nTopRect, nRightRect, nBottomRect
<%@ Language=VBScript %>
<%
Response.ContentType="image/gif"
set obj=Server.CreateObject("shotgraph.image")
size=401
obj.CreateImage size,size,4
obj.SetColor 0,255,255,255
obj.SetColor 1,204,0,0
obj.SetColor 2,0,0,204
obj.SetColor 3,0,204,51
obj.SetBgColor 0
obj.FillRect 0,0,size-1,size-1
obj.SetDrawColor 2
obj.Ellipse 10,10,size-11,size-11
obj.CreatePen "PS_SOLID",4,3
obj.Ellipse 20,20,size-21,size-21
obj.CreatePen "PS_SOLID",4,1
obj.Ellipse 20,size/4,size-21,size-1-size/4
img=obj.GifImage(-1,1,"")
Response.BinaryWrite(img)
%>