<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim st As String = "Alabama,Alaska,Arizona,Arkansas,California,Colorado,Connecticut,"
  st &= "Delaware,District of Columbia,Florida,Georgia,Hawaii,Idaho,Illinois,Indiana,"
  st &= "Iowa,Kansas,Kentucky,Louisiana,Maine,Maryland,Massachusetts,Michigan,Minnesota,"
  st &= "Mississippi,Missouri,Montana,Nebraska,Nevada,New Hampshire,New Jersey,New Mexico,"
  st &= "New York,North Carolina,North Dakota,Ohio,Oklahoma,Oregon,Pennsylvania,Rhode Island,"
  st &= "South Carolina,South Dakota,Tennessee,Texas,Utah,Vermont,Virginia,Washington,"
  st &= "West Virginia,Wisconsin,Wyoming"
  Application("statestext") = st
'... the above is to put the data in Application for [[statetext]]
  Dim GD As New Tornado.GetData
  Dim Mydb As New Tornado.z
  With Mydb
    .dbQP = "U=4| S=7| Ps=-1| D=Nwind.mdb| Q=employees| M=ty=SBox!SboxMacro=#2#"
    .dbTextHolder = "Title=SelectBox via DB data"
    .ASPdbNET()
    Response.Write(GD.Get_Sbox(4))
    Response.Write(GD.Get_SelectBoxSelection(4))
'...From Application and Common File <<ststesvalue block>>
    .dbQP = "U=5| nh=t| M=ty=SBox!SboxMacro=(<<statesvalue>>~[[statestext]])"
    .dbTextHolder = "Title=SelectBox via user data"
    .ASPdbNET()
    Response.Write(GD.Get_Sbox(5))
    Response.Write(GD.Get_SelectBoxSelection(5))
'...From System Common File <<FrenchMonths block>>
    .dbQP = "U=6| nh=t| M=ty=SBox!SboxMacro=([[1-12]]~<<FrenchMonths>>)"
    .dbTextHolder = "Title=SelectBox via user data"
    .ASPdbNET()
    Response.Write(GD.Get_Sbox(6))
    Response.Write(GD.Get_SelectBoxSelection(6))
    End With
End Sub
</script>