Hits per month Hits per month Hits per month Hits per month Hits per month Hits per month Hits per month Hits per month Hits per month Hits per month Hits per month Hits per month
<!--#include file="diagram.asp"-->
<%
Set D=New Diagram
Set D.Img=CreateObject("gdImage.Images.1")
D.Img.ImageCreate 560, 260
D.Img.ImageColorAllocate 0,255,255,255 'Background Color

D.SetFrame 80, 40, 520, 240
D.SetBorder -1, 13, 0, 1000
D.SetText "","", "Website Hits 2001"
D.XScale=0 
D.Draw "#FFFF80", "#004080", false, "",""
M=Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
for i=0 to 11 
  y=Round(500+Rnd()*400) 
  j=D.ScreenX(i+0.5) 
  if i Mod 2=0 then 
    D.Bar j-15, D.ScreenY(y), j+15, D.ScreenY(0), "#0000FF", M(i), "#FFFFFF", "Hits per month", "alert(""" & y & " hits"")"
  else 
    D.Bar j-15, D.ScreenY(y), j+15, D.ScreenY(0), "#FF0000", M(i), "#000000", "Hits per month", "alert(""" & y & " hits"")"
  end if
next 

FN="bar_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="bar_object.png" width=560 height=260 usemap="#map1" border=0></td></tr></table> 
<map name="map1"> 
<%Response.Write D.ImgMapData%> 
</map> 
</BODY> 
</HTML>