Hello,

Imports System.Xml
Imports System.Xml.Xsl

Public Class WebForm1
   Inherits System.Web.UI.Page
   Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
   Protected WithEvents Button1 As System.Web.UI.WebControls.Button
   Protected WithEvents RadioButtonList1 As
System.Web.UI.WebControls.RadioButtonList
   Protected WithEvents Button2 As System.Web.UI.WebControls.Button
   Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
   Protected WithEvents DropDownList1 As
System.Web.UI.WebControls.DropDownList
   Protected WithEvents ListBox1 As System.Web.UI.WebControls.ListBox
   Protected WithEvents ImageButton1 As
System.Web.UI.WebControls.ImageButton
   Protected WithEvents Button3 As System.Web.UI.WebControls.Button
   Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar
   Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
   Protected WithEvents Xml1 As System.Web.UI.WebControls.Xml

#Region " Web Form Designer Generated Code "

   'This call is required by the Web Form Designer.
   <System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()

   End Sub

   Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
       'CODEGEN: This method call is required by the Web Form Designer
       'Do not modify it using the code editor.
       InitializeComponent()
   End Sub

#End Region

   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
       'Put user code to initialize the page here

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
       Dim parameter As New XsltArgumentList()
       parameter.AddParam("calories", "", TextBox1.Text)
       Xml1.TransformArgumentList = parameter
       Xml1.Visible = True
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
       Dim readxmlfile = New DataSet()
       readxmlfile.ReadXml(MapPath("countries.xml"))
       RadioButtonList1.DataSource = readxmlfile
       RadioButtonList1.DataValueField = "value"
       RadioButtonList1.DataTextField = "text"
       RadioButtonList1.DataBind()

       Dim a As Integer

       For a = 1 To 4
           DropDownList1.DataSource = readxmlfile
           DropDownList1.DataValueField = "value"
           DropDownList1.DataTextField = ("text")
           DropDownList1.DataBind()

           ListBox1.DataSource = readxmlfile
           ListBox1.DataValueField = "value"
           ListBox1.DataTextField = ("text")
           ListBox1.DataBind()

       Next

   End Sub

Thanks,

Warm Regards,

Ayaz Ahmed
Software Engineer & Web Developer
Creative Chaos (Pvt.) Ltd.
"Managing Your Digital Risk"
http://www.csquareonline.com
Karachi, Pakistan
Mobile      +92 300 2280950
Office      +92 21 455 2414