Display progress bar

[indydavid32]

I have a web page where the user selects certain criteria, then clicks a submit button.

Private Sub Button1_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ServerClick
        Session("BegDate") = DTPicker1.Text
        Session("EndDate") = DTPicker2.Text
        Session("Store") = cmbStores.SelectedItem.Text
        Session("Process") = "Store_Departments"
        Response.Redirect("Processing.aspx")
    End Sub

This redirects to a web page with a progress bar on it. When the page loads, it fires off a function that runs.

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Functions()
    End Sub
    Private Sub Functions()
        Select Case Session("Process")
            Case "Store_Departments"
                Dim f As New Functions
                f.fncStore_Departments(Session("BegDate"), Session("EndDate"), Session("Store"), Request.Cookies("EmpID").Value, Session("DistStores"))
                Response.Redirect("Store_Departments.aspx")
        End Select
    End Sub

Now, all this works except for one thing. The page that I redirect too with the progress bar, never displays for some reason. Can someone tell me why?

Thanks