Sub Page_Load(Src As Object, E As EventArgs)
  Dim Mydb As New Tornado.z
  With Mydb
    .dbQP = "U=6| S=Moon| D=nwind| ni=none|th=Ti=Grid Chart Mode"
    .dbMode = "GridChart"
    .dbSQL = "SELECT TOP 5 OrderID, CustomerID, Freight From Orders"
    .dbChartData = "dataset0yValues=#2#|dataset0Labels=#1#"
    Dim Cp As String = "Type=26| TitleString='Freight Cost'| titleFont='Arial,14,1|"
    Cp &= " Width=350| Height=350| 3D=True| textLabelsOn=True| pieWidth=.45|"
    Cp &= "pieHeight=.45| valueLabelsOn=True| explodeSlice=1"
    .dbChartParams = Cp
    .ASPdbNET()
  End With
End Sub