<%@ Page Language="vb" %>
Depending Dropdowns
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
countryList.Items.Clear()
countryList.Items.Add(New ListItem("- Make a selection -"))
countryList.Items.Add(New ListItem("A", "B"))
countryList.Items.Add(New ListItem("B", "F"))
End If
End Sub
Private Sub SelectedIndexChangedEventHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
cityList.Items.Clear()
If countryList.SelectedItem.Value = "B" Then
cityList.Items.Add(New ListItem("A1"))
cityList.Items.Add(New ListItem("A2"))
cityList.Items.Add(New ListItem("A3"))
ElseIf countryList.SelectedItem.Value = "F" Then
cityList.Items.Add(New ListItem("B1"))
cityList.Items.Add(New ListItem("B2"))
cityList.Items.Add(New ListItem("B3"))
End If
End Sub