<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim GD As New tornado.getdata()
  Dim E15 As New Tornado.Z()
  With E15
    .dbUnit = 15
    .dbSkin = "air"
    .dbMode = "type=SBoxForm|SboxMacro=#0# - #1#"
    .dbGridDisplayFlds = "CustomerID, CompanyName, ContactName"
    .dbDSN = "Nwind"
    .dbSQL = "SELECT * FROM Customers"
    .dbStatusBar=false
    .dbPageSize = -1
    .dbTextHolder = "Title=Tornado Demo - Master / Detail SelectBox - Form"
    .ASPdbNET()
    Dim fs as string = GD.Get_SelectBoxFormSelection
    if fs <>"" then response.write("<P>Get_SelectBoxFormSelection = " & fs)
  End with
End Sub
</script>