Sub Page_Load(Src As Object, E As EventArgs)
  Dim GD As New Tornado.Getdata()
  Dim Mydb As New Tornado.Z()
  With Mydb
    .dbQP = "U=5| S=Plain| D=Nwind"
    .dbMode = "type=SBox|SboxMacro=({{Cat,Cus,Emp}}~{{Categories,Customers,Employees}})"
    .dbSQL = "SELECT TOP 5 OrderID, CustomerID, Freight From Orders"
    .dbTextHolder = "Title=SelectBox via user data"
    .ASPdbNET()
    Response.write(GD.Get_Sbox(5))
    Response.write(GD.Get_SelectBoxSelection(5))
  End with
End Sub