<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim Pie As New Tornado.z
  With Pie
    .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"
    .dbPieChart = "Value=#2#| Label=#CustomerID#"
    Dim Pc = "width=400| PercentLabelsOff=true|Titlestring=My title"
    .dbChartParams = Pc
    .ASPdbNET()
  End With
End Sub
</script>