<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim CGraph As New Tornado.z
  With CGraph
    .dbQP = "U=13| M=g| S=1| PS=10| D=Nwind| Gdf=0,1,2| Th=tit=Column Graph"
    .dbColGraph = "(#!)field=Freight| width=300| height=12| icon=rainbow| style=8| minmaxsql=SELECT min(Freight), Max(Freight) From Orders"
    .dbSQL = "Select Orderid, CustomerID, Freight From Orders ORDER BY Freight DESC"
    .ASPdbNET()
  End With
End Sub
</script>