Autopostback on a remote server

[Lil Ms Squirrel]

Okay this is the code.

The entire form is generated dynamically based a set of customised questions from the database.

It now works sporadically for some options, but not for all of them. And each time I try it, only one or two postback properly whereas on my local machine it all works perfectly:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ds As Questions
        Dim question As Questions.QuestionsRow
        Dim tablenames(0) As String
        Try
            tablenames(0) = "Questions"
            If Not IsPostBack Then
                ds = New Questions
                If PopulateClientData() = False Then
                    'cancel the load because this review has already been completed
                    Exit Sub
                End If
                'populate the dataset and store in the session object
                SqlHelper.FillDataset(connectionString, CommandType.StoredProcedure, "uspGetReviewQuestions", ds, tablenames)
                Session("Questions") = ds
            Else
                Response.Write("Postback")
                ds = CType(Session("Questions"), Questions)
            End If
 
            With pnlReview.Controls
                'start table creation
                .Add(New LiteralControl("<TABLE id='Table2' cellSpacing='1' cellPadding='1' width='100%' border='0'>"))
 
                For Each question In ds.Questions
 
                    'add the first row with the question
                    .Add(New LiteralControl("<TR>"))
                    .Add(New LiteralControl("<TD vAlign='middle' align='left' width='85%'><FONT size='2'><STRONG>"))
                    .Add(New LiteralControl(question.ReviewQuestion))
                    If question.RequiresYesNo = True Then
 
                        'create the rfv
                        rfv = New RequiredFieldValidator
                        rfv.ErrorMessage = "Please select a value for '" & question.ReviewQuestion & "'"
                        rfv.ControlToValidate = "Q" & question.ReviewQuestionID
                        rfv.Text = "*"
                        rfv.Font.Bold = True
                        rfv.ForeColor = errorColor
                        .Add(rfv)
 
                        .Add(New LiteralControl("&nbsp;&nbsp;"))
 
                        lbl = New Label
                        lbl.ForeColor = errorColor
                        lbl.Font.Bold = True
                        lbl.Font.Italic = True
                        lbl.Font.Size = fontSize
                        lbl.Font.Name = "verdana"
                        lbl.Text = "Please specify a reason: "
                        lbl.Visible = False
                        lbl.ID = "L" & question.ReviewQuestionID
                        .Add(lbl)
 
                        .Add(New LiteralControl("</STRONG></FONT></TD>"))
                        .Add(New LiteralControl("<TD vAlign='middle' align='left' width='15%'>"))
                    End If
                    'create the rbl -- always add one to the form, but hide it if requires yes/no = false
                    rbl = New RadioButtonList
                    rbl.ID = "Q" & question.ReviewQuestionID
                    rbl.Items.Add(New ListItem("Yes", 1))
                    rbl.Items.Add(New ListItem("No", 0))
                    rbl.RepeatColumns = 2
                    rbl.RepeatDirection = RepeatDirection.Horizontal
                    rbl.ForeColor = foreColor
                    rbl.Width = New Unit(100, UnitType.Percentage)
                    rbl.Font.Size = fontSize
                    rbl.AutoPostBack = True
                    rbl.Visible = question.RequiresYesNo
                    .Add(rbl)
 
 
                    'if the question requires a reason then add a reason box
                    If question.RequiresReason = True Then
                        'now add the textbox and label on a new row
                        .Add(New LiteralControl("<TR>"))
                        .Add(New LiteralControl("<TD vAlign='middle' align='left' width='85%'>"))
 
                        box = New TextBox
                        box.ID = "R" & question.ReviewQuestionID
                        box.ForeColor = foreColor
                        box.Width = New Unit(97, UnitType.Percentage)
                        box.MaxLength = 250
                        box.BackColor = backColor
                        box.Font.Name = fontName
                        box.Font.Size = fontSize
                        If question.RequiresYesNo = True Then box.Visible = False
                        .Add(box)
 
                        'add an rfv for the text box
                        rfv = New RequiredFieldValidator
                        rfv.ErrorMessage = "Please specify a reason"
                        rfv.ControlToValidate = "R" & question.ReviewQuestionID
                        rfv.Text = "*"
                        rfv.ForeColor = foreColor
                        rfv.Enabled = False
                        .Add(rfv)
 
                        'close the current row
                        .Add(New LiteralControl("<TD>"))
                        .Add(New LiteralControl("<TD align='left' width='15%'></TD>"))
                        .Add(New LiteralControl("</TR>"))
 
                        If question.RequiresYesNo = True Then
                            AddHandler rbl.SelectedIndexChanged, AddressOf ShowHideTextBox
                        Else
                            box.Rows = 2
                            box.TextMode = TextBoxMode.MultiLine
                        End If
                    End If
 
                Next
 
                'finally close off the table
                .Add(New LiteralControl("</TABLE>"))
 
            End With
        Catch ex As Exception
            RedirectError("Error populating annual review." & ex.ToString)
        End Try
    End Sub
 
    Private Sub ShowHideTextBox(ByVal sender As Object, ByVal e As EventArgs)
        Dim rbl As RadioButtonList = CType(sender, RadioButtonList)
        Dim box As TextBox
        Dim ctl As Control
        Dim index As Integer
        Dim lbl As Label
        Dim ds As Questions
        Dim view As DataView
        Dim question As Questions.QuestionsRow
 
        index = Mid(rbl.ID, 2)
 
        For Each ctl In pnlReview.Controls
            If TypeOf ctl Is TextBox Then
                If ctl.ID = "R" & index Then
                    box = CType(ctl, TextBox)
                End If
            Else
                If TypeOf ctl Is Label Then
                    If ctl.ID = "L" & index Then
                        lbl = CType(ctl, Label)
                    End If
                End If
            End If
        Next
 
 
        'find the question associated with this id
        ds = CType(Session("Questions"), Questions)
 
        view = New DataView(ds.Questions)
        view.RowFilter = ds.Questions.ReviewQuestionIDColumn.ColumnName & " = " & index
 
        If view.Count = 1 Then question = CType(view(0).Row, Questions.QuestionsRow)
 
        If Not IsNothing(question) Then
            If question.JustifyIfYes = True Then
                If rbl.SelectedValue = 1 Then
                    box.Visible = True
                    lbl.Visible = True
                Else
                    box.Visible = False
                    lbl.Visible = False
                End If
            Else
                If rbl.SelectedValue = 1 Then
                    box.Visible = False
                    lbl.Visible = False
                Else
                    box.Visible = True
                    lbl.Visible = True
                End If
            End If
        End If
    End Sub

Any ideas?