<!--#include file="diagram.asp"-->

<%	

Set D=New Diagram

Set D.Img=CreateObject("gdImage.Images.1")

D.Img.ImageCreate 560, 280

D.Img.ImageColorAllocate 0,255,255,255 'Background Color



D.SetFrame 80, 40, 520, 240

D.SetBorder UTC(2000,12,15,0,0,0), UTC(2001,12,15,0,0,0), 0, 1000

D.SetText "","","Website Hits 2001"

D.XScale=4 

D.Draw "","#004080",false,"",""

y0=D.ScreenY(0) 

for i=0 to 11 

  v=Round(500+Rnd()*400) 

  y=D.ScreenY(v) 

  j=D.ScreenX(UTC(2001,i+1,1,0,0,0)) 

  if i Mod 2=0 then 

    D.Box j-12, y, j+12, y0, "v_blue.png", "", "#FFFFFF", 1, "#000000", "Hits per month", "alert(""" & v & " hits"")" 

  else 

    D.Box j-12, y, j+12, y0, "v_red.png", "", "#000000", 1, "#000000", "Hits per month", "alert(""" & v & " hits"")" 

  end if

next



FN="box_object.png"

if isObject(Server) then FN=Server.mappath(FN) 

D.Img.ImagePng 0, FN

D.Img.ImageDestroy 0

Set D.Img=Nothing

%>

<HTML><HEAD></HEAD> 

<BODY bgcolor="#eeeeee"> 

<table border><tr><td><IMG src="box_object.png" width=560 height=280 usemap="#map1" border=0></td></tr></table> 

<map name="map1"> 

<%Response.Write D.ImgMapData%> 

</map> 

</BODY> 

</HTML>