Miscellany

<%@ Import Namespace="System.Data" %>

<SCRIPT Runat="Server">

Dim CodesArray As ArrayList

Sub Page_Load

  If Not Page.IsPostBack Then

    '-- Import XML file into data set
    Dim StateCodes = New DataSet
    StateCodes.ReadXml("StateCodes.xml")
		
   '-- Bind state names to drop-down list
    StatesList.DataSource = StateCodes
    StatesList.DataTextField = "name"
    StatesList.DataValueField = "name"
    StatesList.DataBind()

    '-- Create array of state codes
    CodesArray = New ArrayList
    Dim Row As DataRow
    For Each Row in StateCodes.Tables("state").Rows
      CodesArray.Add(Row("code"))
    Next
    ViewState("CodesArray") = CodesArray

  End If

  '-- Rebuild array of state codes
  CodesArray = New ArrayList
  CodesArray = ViewState("CodesArray")	

End Sub

Sub Get_Code (Src As Object, Args As EventArgs)
  TheCode.Text = CodesArray(StatesList.SelectedIndex)
End Sub

</SCRIPT>

<form Runat="Server">

<asp:DropDownList id="StatesList" Runat="Server"/>
<asp:Button Text="Find Code" OnClick="Get_Code" Runat="Server"/>
<asp:Label id="TheCode" Runat="Server"/>

</form>