Imports System.Data

Partial Class Default4
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (IsPostBack) Then

            'Label1.Text = RadioButtonList1.SelectedValue
            '  loadUI() = ViewState("div")
        End If
     
    End Sub

    
    Protected Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButtonList1.SelectedIndexChanged



        Dim index As Integer

        For index = 1 To RadioButtonList1.SelectedValue
            Dim newdiv As New HtmlGenericControl("div")
            newdiv.EnableViewState = True
            Dim ht As New HtmlTable()
            ht.ID = "mytable" & index
            ht.EnableViewState = True

            ht.Width = "100%"
            ht.CellSpacing = "0"
            ht.CellPadding = "0"
            ht.Border = 0


            Dim htr, htr1, htr2 As New HtmlTableRow()
            Dim cell, htc, htc1, htc2, htc3, htc4, htc5, htc6, htc7, htc8 As New HtmlTableCell()

            Dim name_tb As New TextBox()
            Dim sal_ddl As New DropDownList

            'validator
            Dim name_req As New RequiredFieldValidator
            Dim tel_req As New RequiredFieldValidator
            Dim email_req As New RequiredFieldValidator


            name_tb.ID = "name_tb" & index
            sal_ddl.ID = "sal_ddl" & index
            name_req.ID = "name_req" & index
            tel_req.ID = "tel_req" & index
            email_req.ID = "email_req" & index
            name_tb.EnableViewState = True
            sal_ddl.EnableViewState = True
            tel_req.EnableViewState = True

            sal_ddl.Items.Add("MR")
            sal_ddl.Items.Add("Ms")
            sal_ddl.Items.Add("Mrs")



            Dim Tel_tb1 As New TextBox
            Tel_tb1.ID = "Tel_tb1" & index
            Tel_tb1.EnableViewState = True
            name_tb.TextMode = TextBoxMode.SingleLine

            Dim email_tb1 As New TextBox
            email_tb1.ID = "email_tb1" & index
            email_tb1.TextMode = TextBoxMode.SingleLine

            htc.InnerText = "Name : "
            htc.Width = "20%"
            htc.Align = "Left"



            htc1.Controls.Add(sal_ddl)
            htc1.Width = "10%"

            htc2.Width = "70%"
            htc2.Align = "left"



            htc2.Controls.Add(name_tb)
            htc2.Controls.Add(name_req)
            htr.Controls.Add(htc)
            htr.Controls.Add(htc1)
            htr.Controls.Add(htc2)


            ht.Controls.Add(htr)
            name_req.ControlToValidate = "name_tb" & index
            name_req.Display = ValidatorDisplay.Dynamic
            name_req.ErrorMessage = ("Please Enter name of attendenes")


            'make 2nd  row 

            htc3.InnerText = "Telephone : "
            htc3.Width = "20%"
            htc3.Align = "Left"


            htc4.InnerHtml = "<strong></strong>"
            htc4.Width = "10%"

            htc5.Width = "70%"
            htc5.Align = "left"

            htc5.Controls.Add(Tel_tb1)
            htc5.Controls.Add(tel_req)
            htr1.Controls.Add(htc3)
            htr1.Controls.Add(htc4)
            htr1.Controls.Add(htc5)


            ht.Controls.Add(htr1)

            tel_req.ControlToValidate = "Tel_tb1" & index
            tel_req.Display = ValidatorDisplay.Dynamic
            tel_req.ErrorMessage = ("Please Enter Phone")


            'make 3rd  row 

            htc6.InnerText = "Email : "
            htc6.Width = "20%"
            htc6.Align = "Left"


            htc7.InnerHtml = "<strong></strong>"
            htc7.Width = "10%"

            htc8.Width = "70%"
            htc8.Align = "left"

            htc8.Controls.Add(email_tb1)
            htc8.Controls.Add(email_req)
            htr2.Controls.Add(htc6)
            htr2.Controls.Add(htc7)
            htr2.Controls.Add(htc8)

            ht.Controls.Add(htr2)

            email_req.ControlToValidate = "email_tb1" & index
            email_req.Display = ValidatorDisplay.Dynamic
            email_req.ErrorMessage = ("Please Enter Email")

            'Add  a blank row

            cell.ColSpan = 3
            cell.InnerHtml = "<br/>"
            Dim row As New HtmlTableRow
            row.Cells.Add(cell)
            ht.Rows.Add(row)

            newdiv.Controls.Add(ht)

            newdiv.Attributes.Add("table", "ht")



            newdiv.Attributes.Add("Style", "border-bottom :#ccc solid 0px")
            newdiv.Attributes.Add("style", "height:23px")
            newdiv.Attributes.Add("style", "padding-left:20px")



            Me.PlaceHolder1.Controls.Add(newdiv)
            PlaceHolder1.EnableViewState = True

        Next


       

    End Sub
    'Sub loadUI()
    '    Dim index As Integer

    '    For index = 1 To RadioButtonList1.SelectedValue
    '        Dim newdiv As New HtmlGenericControl("div")
    '        Dim ht As New HtmlTable()
    '        ht.ID = "mytable" & index

    '        ht.Width = "100%"
    '        ht.CellSpacing = "0"
    '        ht.CellPadding = "0"
    '        ht.Border = 0


    '        Dim htr, htr1, htr2 As New HtmlTableRow()
    '        Dim cell, htc, htc1, htc2, htc3, htc4, htc5, htc6, htc7, htc8 As New HtmlTableCell()

    '        Dim name_tb As New TextBox()
    '        Dim sal_ddl As New DropDownList

    '        'validator
    '        Dim name_req As New RequiredFieldValidator
    '        Dim tel_req As New RequiredFieldValidator
    '        Dim email_req As New RequiredFieldValidator


    '        name_tb.ID = "name_tb" & index
    '        sal_ddl.ID = "sal_ddl" & index
    '        name_req.ID = "name_req" & index
    '        tel_req.ID = "tel_req" & index
    '        email_req.ID = "email_req" & index



    '        sal_ddl.Items.Add("MR")
    '        sal_ddl.Items.Add("Ms")
    '        sal_ddl.Items.Add("Mrs")



    '        Dim Tel_tb1 As New TextBox
    '        Tel_tb1.ID = "Tel_tb1" & index
    '        name_tb.TextMode = TextBoxMode.SingleLine

    '        Dim email_tb1 As New TextBox
    '        email_tb1.ID = "email_tb1" & index
    '        email_tb1.TextMode = TextBoxMode.SingleLine

    '        htc.InnerText = "Name : "
    '        htc.Width = "20%"
    '        htc.Align = "Left"



    '        htc1.Controls.Add(sal_ddl)
    '        htc1.Width = "10%"

    '        htc2.Width = "70%"
    '        htc2.Align = "left"



    '        htc2.Controls.Add(name_tb)
    '        htc2.Controls.Add(name_req)
    '        htr.Controls.Add(htc)
    '        htr.Controls.Add(htc1)
    '        htr.Controls.Add(htc2)


    '        ht.Controls.Add(htr)
    '        name_req.ControlToValidate = "name_tb" & index
    '        name_req.Display = ValidatorDisplay.Dynamic
    '        name_req.ErrorMessage = ("Please Enter name of attendenes")


    '        'make 2nd  row 

    '        htc3.InnerText = "Telephone : "
    '        htc3.Width = "20%"
    '        htc3.Align = "Left"


    '        htc4.InnerHtml = "<strong></strong>"
    '        htc4.Width = "10%"

    '        htc5.Width = "70%"
    '        htc5.Align = "left"

    '        htc5.Controls.Add(Tel_tb1)
    '        htc5.Controls.Add(tel_req)
    '        htr1.Controls.Add(htc3)
    '        htr1.Controls.Add(htc4)
    '        htr1.Controls.Add(htc5)


    '        ht.Controls.Add(htr1)

    '        tel_req.ControlToValidate = "Tel_tb1" & index
    '        tel_req.Display = ValidatorDisplay.Dynamic
    '        tel_req.ErrorMessage = ("Please Enter Phone")


    '        'make 3rd  row 

    '        htc6.InnerText = "Email : "
    '        htc6.Width = "20%"
    '        htc6.Align = "Left"


    '        htc7.InnerHtml = "<strong></strong>"
    '        htc7.Width = "10%"

    '        htc8.Width = "70%"
    '        htc8.Align = "left"

    '        htc8.Controls.Add(email_tb1)
    '        htc8.Controls.Add(email_req)
    '        htr2.Controls.Add(htc6)
    '        htr2.Controls.Add(htc7)
    '        htr2.Controls.Add(htc8)

    '        ht.Controls.Add(htr2)

    '        email_req.ControlToValidate = "email_tb1" & index
    '        email_req.Display = ValidatorDisplay.Dynamic
    '        email_req.ErrorMessage = ("Please Enter Email")

    '        'Add  a blank row

    '        cell.ColSpan = 3
    '        cell.InnerHtml = "<br/>"
    '        Dim row As New HtmlTableRow
    '        row.Cells.Add(cell)
    '        ht.Rows.Add(row)

    '        newdiv.Controls.Add(ht)

    '        newdiv.Attributes.Add("table", "ht")



    '        newdiv.Attributes.Add("Style", "border-bottom :#ccc solid 0px")
    '        newdiv.Attributes.Add("style", "height:23px")
    '        newdiv.Attributes.Add("style", "padding-left:20px")



    '        Me.PlaceHolder1.Controls.Add(newdiv)
    '        ViewState("div") = PlaceHolder1

    '    Next


    'End Sub

    Protected Sub spous_atend_Conference_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles spous_atend_Conference.SelectedIndexChanged
        If (Me.spous_atend_Conference.SelectedValue = 0) Then


            Dim index As Integer
            Dim newdiv As New HtmlGenericControl("div")
            Dim ht As New HtmlTable()
            ht.ID = "mytable" & index

            ht.Width = "100%"
            ht.CellSpacing = "0"
            ht.CellPadding = "0"
            ht.Border = 0


            Dim htr, htr1, htr2 As New HtmlTableRow()
            Dim cell, htc, htc1, htc2, htc3, htc4, htc5, htc6, htc7, htc8 As New HtmlTableCell()

            Dim spouse_name_tb As New TextBox()
            Dim sal_ddl As New DropDownList

            spouse_name_tb.ID = "name_tb" & index
            htc.InnerText = "Name : "
            htc.Width = "20%"
            htc.Align = "Left"


            htc1.InnerHtml = "<strong></strong>"
            htc1.Width = "10%"

            htc2.Width = "70%"
            htc2.Align = "left"

            htc2.Controls.Add(spouse_name_tb)

            htr.Controls.Add(htc)
            htr.Controls.Add(htc1)
            htr.Controls.Add(htc2)


            ht.Controls.Add(htr)
            newdiv.Controls.Add(ht)

            newdiv.Attributes.Add("table", "ht")
            '            .right_txt_space_accm{ border-bottom:#ccc solid 0px; height:23px; line-height:20px; padding-left:15px; padding-right:15px;}


            newdiv.Attributes.Add("Style", "border-bottom :#ccc solid 0px")
            newdiv.Attributes.Add("style", "height:23px")
            newdiv.Attributes.Add("style", "padding-left:15px")

            Me.placeholder2.Controls.Add(newdiv)

        End If

    End Sub
End Class