<script language="vb" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
  Dim InputHTML As String = "Employee[[Level0]]<p>Customer ID[[Level1]]<p>Order Id[[Level2]]"
  Dim TriggerAspx As String = "File=./_DynalistOutput.aspx"
  Dim Mydlist As New Tornado.z
  With Mydlist
    .dbQP = "U=1|S=1|M=grid|Th=Ti=Dynamic List|D=Nwind"
    Dim s As String = "InputHtml=" & InputHTML & "|OutputAspx=" & TriggerAspx
    s &= ";Level=0|Label=[Select an Employee]|Table=employees|Field=Employeeid"
    s &= ";Level=1|Label=[Select a Customer Id]|Table=Orders|Field='Customerid'"
    s &= ";Level=2|Label=[Select an Order Id]|Table=Orders|Field=OrderId"
    .dbDynalist = s
    .ASPdbDynaList()
  End With
End Sub
</script>

<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim i as integer
  Dim GD As New Tornado.GetData
  Dim Sel() As String = GD.Get_DListLevelSelectedItem
  Response.write("<H1>Dynalist OutPut File</H1>")
  Response.Write("Your trigger value is - " & Request.Form("ASPdbDlistSubmit") & "<P>")
  For i = 0 To UBound(Sel)
    Response.Write("Your selected value for level " & i & " value is - " & Sel(i) & "<P>")
  Next
End Sub
</script>