Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        Dim context As HttpContext = HttpContext.Current
        context.Items.Add("strFirstName", TextBox1.Text)
        Server.Transfer("page2.aspx", True)
    End Sub

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
        Dim context As HttpContext = HttpContext.Current
        Response.Write("Your First Name is: " & context.Items("strFirstName"))
    End Sub

 <script>
  sub blah()
   For intloop = 0 To (intFieldCount - 1)
    Dim oCell As New TableCell()
    strDateLink = "<input name='" & strInputName & "' type='text' value='" & dtClosureDate.ToLongDateString & "' size='33' rows='1' class='ltk' style='border:none'  />"
    oCell.Text = strDateLink
    oRow.Cells.Add(oCell)
Next
  end sub
  </script>

 <asp:Button id="btnPreCloseSumbit" OnClick="TransferFormValues" Text="Submit " runat="server"/>
   

Sub TransferFormValues(Source As Object, E As EventArgs)
    Dim context As HttpContext = HttpContext.Current
    context.Items.Add("strFirstName", TextBox1.Text)
    Server.Transfer("body_date_closures_test_output.aspx", True)
 End Sub
      

Sub Page_Load(Source As Object, E As EventArgs)
    response.Write("hello<br><br>")
    Dim context As HttpContext = HttpContext.Current
    Response.Write(context.Items("strFirstName"))
    response.Write("<br><br>...")
End Sub