<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@ Import Namespace="System.Data" %>
<script language="VB" runat="server">
Sub Page_Load(s As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack then
dim mycountries = New DataSet
mycountries.ReadXml( MapPath( "countries.xml" ) )
rb.DataSource = mycountries
rb.DataValueField = "value"
rb.DataTextField = "text"
rb.DataBind( )
End If
End Sub
Sub DisplayMessage( s as Object,e As EventArgs )
lbl1.text = "Your favorite country is: " & _
rb.SelectedItem.Text
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<body>
<form runat="server">
<asp:RadioButtonList runat="server" AutoPostBack="True"
id="rb" OnSelectedIndexChanged="DisplayMessage" />
<p><asp:label id="lbl1" runat="server" /></p>
</form>
</body>
</html> |
|
|