<html><body>
<center>
<%
Tableheight=200
Tablewidth=300
DataArray=Array(1,2,3,4,5,6,5,4,3,4,5,6,7,8,9,10,9,8,7,6,5,4,3,2,1,1,0)
' lets calculate maximun number of values for Y
max=ubound(DataArray)
' lets calculate maximun value for Y
Ymaxvalue=DataArray(0)
for i=1 to max
if
DataArray(i)>Ymaxvalue then
Ymaxvalue=DataArray(i)
end if
next
response.write("<table border=0 height=" & Tableheight & "
cellspacing=0 cellpadding=0><tr><td valign=top
align=center>")
' next line will write minimun and maximun value for Y
response.write("<table border=0 height=" & Tableheight & "
bgcolor=8888FF cellspacing=0 cellpadding=0><tr><td
valign=top>")
response.write("Ymaxvalue &
"</td></tr><tr><td valign=bottom
align=right>O</td></tr></table>")
response.write("</td><td width=" & Tablewidth &
"valign=bottom>")
' next lines will create the columns
for x=0 to max
response.write("<img src=red.gif width="
& Tablewidth/max)
response.write("
height=" & int(DataArray(x)*Tableheight/Ymaxvalue) & ">")
next
response.write("</tr><tr><td></td><td>")
' next lines will write minimun and maximun value for X
response.write("<table width=" & Tablewidth & " border=0
bgcolor=8888FF cellspacing=0 cellpadding=0>")
response.write("<tr><td>")
' this is the minimun value
for X
response.write("1")
response.write("</td><td
align=right>")
' this is the maximun value for X
response.write(max+1)
response.write("</td></tr></table>")
response.write("</td></tr></table>")
response.write("</td></tr></table>")
%>
</center>
</body>
</html>
