ASP.NET: session in a dropdownlist only works in one panel.

Question

I'm using a dropdown list where when selected it will filter data based on the selected branch in two panels. the problem is it will filter only one panel and ignore the other even though I added the session in both panels.

this is my code:

aspx code:

   <%@ Page Title="" Language="VB" MasterPageFile="~/En/MasterPage.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>  
      
  
  
  
          
       
       
      
      
      
      
  
      
       
       
      
      
      
      
      
      
       
  
      
      
      
  
      
      
     
  
  
         
    <%----%>  
          
          
         
             
             
              
                
                
                  
                                  
                
  
                  
                   
              
                
                  
                
                  
                    
                        
                  Branches  
                  
                  
                    
                  
                  
                     
                  
                
                      
            
  
              
                
                  
                
                  
                    
                  Staff  
                  
                  
                    
                  
                  
                     
                  
                
                      
              
              
                
                  
                
                  
                    
                  Departments  
                  
                  
                    
                  
                  
                     
                  
                
                      
              
  
              
                
                  
                
                  
                    
                  Designations  
                  
                  
                    
                  
                  
                     
                  
                
                      
              
  
                
            
                      
                          
                                             
                               
                                  Employee by Nationality  
                                     
                      
                    
                  
                                                            
                   
                  
                
  
                          
                      
  
                      
                 
                          
                 
                  
                 
              
  
            
  
              
                 
            
  
<%--               --%>  
              
              
                
                
                  
                                  
                
  
                  
              
                                                    
                                                      <%----%>                                             
              
                      
                    There is Currently No Data Available For This Branch...  
                      
                      
                      
                            
                                
                                   
                                      <%----%>

vb.net code:

Imports System.Data.SqlClient  
Imports System.Data  
Imports System.Web.Services  
  
Partial Class _Default  
    Inherits System.Web.UI.Page  
    Dim Sql As String  
    Dim nqcmd As New SqlCommand  
    Dim ConnString As String = ConfigurationManager.ConnectionStrings("dbConn").ConnectionString  
    Dim cn As SqlConnection = New SqlConnection(ConnString)  
    Dim da As SqlDataAdapter = New SqlDataAdapter  
    Dim dt As New DataTable  
    Dim branch As Int32  

Private Sub _Default_Load(sender As Object, e As EventArgs) Handles Me.Load  
    Authentication.IsValidUserRedirect()  
    If Not Page.IsPostBack Then  
        lblBranchesCount.Text = GetBranchesCount()  
        lblStaffCount.Text = GetStaff()  
        lblDepartment.Text = GetDepart()  
        lblDesignations.Text = GetDesignations()  
        Panel2.Visible = False  

        ' to hide the dropdownlist if the user type is not a super admin or  head or  HR Main Branch  

        Dim dt1 As DataTable = New DataTable()  
        Dim constr1 As String = ConfigurationManager.ConnectionStrings("dbConn").ConnectionString  
        Using con As SqlConnection = New SqlConnection(ConnString)  
            Using cmdd As SqlCommand = New SqlCommand("SELECT userTypeId FROM tblUserType ", con)  
                cmdd.CommandType = CommandType.Text  
                Dim da As SqlDataAdapter = New SqlDataAdapter(cmdd)  
                da.Fill(dt1)  
                If dt1.Rows.Count > 0 Then  
                    If HttpContext.Current.Session("EmpTypeID") = 4 Then  
                        ddlBranches.Visible = False  
                        Label1.Visible = False  

                    End If  

                End If  
            End Using  
        End Using  



        ' to store the branch id value in a session  

        Dim dt2 As DataTable = New DataTable()  
        Dim constr2 As String = ConfigurationManager.ConnectionStrings("dbConn").ConnectionString  
        Using con As SqlConnection = New SqlConnection(ConnString)  
            Using cmddd As SqlCommand = New SqlCommand("SELECT unibranchid FROM tblUniversityBranches ", con)  
                cmddd.CommandType = CommandType.Text  
                Dim da As SqlDataAdapter = New SqlDataAdapter(cmddd)  
                da.Fill(dt1)  
                If dt2.Rows.Count <> 0 Then  
                    HttpContext.Current.Session("UnBarnchID") = "unibranchid"  

                End If  

            End Using  
        End Using  

        ' to bind the dropdownlist and create a session for it  

        Dim dt As DataTable = New DataTable()  
        Dim constr As String = ConfigurationManager.ConnectionStrings("dbConn").ConnectionString  
        Using con As SqlConnection = New SqlConnection(ConnString)  
            Using cmd As SqlCommand = New SqlCommand("SELECT * FROM tblUniversityBranches", con)  
                cmd.CommandType = CommandType.Text  
                Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)  
                da.Fill(dt)  
            End Using  
        End Using  
        'Dim iUnBarnchID As Integer = -1  
        'HttpContext.Current.Session("UnBarnchID") = iUnBarnchID  
        ddlBranches.Items.Clear()  
        ddlBranches.Items.Insert(0, New ListItem("--Select--", "0"))  
        ddlBranches.AppendDataBoundItems = True  
        ddlBranches.DataTextField = "UniBranchNameEn"  
        ddlBranches.DataValueField = "UniBranchNameEn"  
        ddlBranches.DataSource = dt  
        ddlBranches.DataBind()  
        HttpContext.Current.Session("dbr") = "test"  
        'HttpContext.Current.Session("ubid") = "UniBranchID"  
        'System.Web.HttpContext.Current.Session("dbr") = ddlBranches.SelectedValue  

    End If  
End Sub  
Public Shared Function GetBranchesCount() As String  
    If (HttpContext.Current.Session("EmpTypeID")) = 4 Then  
        'Dim iUnBarnchID As Integer = -1  
        'HttpContext.Current.Session("UnBarnchID") = iUnBarnchID  
        Dim Sql As String  

        Dim nqcmd As New SqlCommand  
        Dim ConnString As String = ConfigurationManager.ConnectionStrings("dbConn").ConnectionString  
        Dim cn As SqlConnection = New SqlConnection(ConnString)  
        Dim da As SqlDataAdapter = New SqlDataAdapter  
        Dim dt As New DataTable  
        Dim iBranchesCount As String = "0"  
        If cn.State = ConnectionState.Closed Then  
            cn.Open()  
        End If  
        Sql = "select Count(*) as BranchesCount From tblUniversityBranches where unibranchid='" + Convert.ToString(HttpContext.Current.Session("UnBarnchID").ToString) + "' and Status = 1"  
        da.SelectCommand = New SqlCommand(Sql, cn)  
        dt.Clear()  
        da.Fill(dt)  
        If dt.Rows.Count <> 0 Then  
            If Not IsDBNull(dt.Rows(0)("BranchesCount")) Then  
                iBranchesCount = dt.Rows(0)("BranchesCount")  
            End If  
            Return iBranchesCount  
        End If  
        Return iBranchesCount  
        If cn.State = ConnectionState.Open Then  
            cn.Close()  
        End If  

    Else  
        Dim Sql As String  
        Dim nqcmd As New SqlCommand  
        Dim ConnString As String = ConfigurationManager.ConnectionStrings("dbConn").ConnectionString  
        Dim cn As SqlConnection = New SqlConnection(ConnString)  
        Dim da As SqlDataAdapter = New SqlDataAdapter  
        Dim dt As New DataTable  
        Dim iBranchesCount As String = "0"  
        If cn.State = ConnectionState.Closed Then  
            cn.Open()  
        End If  
        Sql = "select Count(*) as BranchesCount From tblUniversityBranches where univbranchid='" + Convert.ToString(HttpContext.Current.Session("dbr").ToString) + "'"  
        Sql += " where Status = 1"  
        da.SelectCommand = New SqlCommand(Sql, cn)  
        dt.Clear()  
        da.Fill(dt)  
        If dt.Rows.Count <> 0 Then  
            If Not IsDBNull(dt.Rows(0)("BranchesCount")) Then  
                iBranchesCount = dt.Rows(0)("BranchesCount")  
            End If  
            Return iBranchesCount  
        End If  
        Return iBranchesCount  
        If cn.State = ConnectionState.Open Then  
            cn.Close()  
        End If  
    End If  


End Function  
Public Shared Function GetStaff() As String  
    If (HttpContext.Current.Session("EmpTypeID")) = 4 Then  


        Dim Sql As String  
        Dim nqcmd As New SqlCommand  
        Dim ConnString As String = ConfigurationManager.ConnectionStrings("dbConn").ConnectionString  
        Dim cn As SqlConnection = New SqlConnection(ConnString)  
        Dim da As SqlDataAdapter = New SqlDataAdapter  
        Dim dt As New DataTable  
        Dim iStaffCount As String = "0"  
        If cn.State = ConnectionState.Closed Then  
            cn.Open()  
        End If  
        Sql = "select Count(*) as StaffCount From tblEmployee "  
        Sql += "where univbranchid='" + Convert.ToString(HttpContext.Current.Session("UnBarnchID").ToString) + "'"  
        'Sql += " Where Status = 1"  
        da.SelectCommand = New SqlCommand(Sql, cn)  
        dt.Clear()  
        da.Fill(dt)  
        If dt.Rows.Count <> 0 Then  
            If Not IsDBNull(dt.Rows(0)("StaffCount")) Then  
                iStaffCount = dt.Rows(0)("StaffCount")  
            End If  
            Return iStaffCount  
        End If  
        Return iStaffCount  
        If cn.State = ConnectionState.Open Then  
            cn.Close()  
        End If  
    Else  

        Dim Sql As String  
        Dim nqcmd As New SqlCommand  
        Dim ConnString As String = ConfigurationManager.ConnectionStrings("dbConn").ConnectionString  
        Dim cn As SqlConnection = New SqlConnection(ConnString)  
        Dim da As SqlDataAdapter = New SqlDataAdapter  
        Dim dt As New DataTable  
        Dim iStaffCount As String = "0"  
        If cn.State = ConnectionState.Closed Then  
            cn.Open()  
        End If  
        Sql = "select Count(*) as StaffCount From tblEmployee where univbranchid='" + Convert.ToString(HttpContext.Current.Session("dbr").ToString) + "'"  
        'Sql += " Where Status = 1"  
        da.SelectCommand = New SqlCommand(Sql, cn)  
        dt.Clear()  
        da.Fill(dt)  
        If dt.Rows.Count <> 0 Then  
            If Not IsDBNull(dt.Rows(0)("StaffCount")) Then  
                iStaffCount = dt.Rows(0)("StaffCount")  
            End If  
            Return iStaffCount  
        End If  
        Return iStaffCount  
        If cn.State = ConnectionState.Open Then  
            cn.Close()  
        End If  
    End If  
End Function  
Public Shared Function GetDepart() As String  
    If (HttpContext.Current.Session("EmpTypeID")) = 4 Then  
        Dim Sql As String  
        Dim nqcmd As New SqlCommand  
        Dim ConnString As String = ConfigurationManager.ConnectionStrings("dbConn").ConnectionString  
        Dim cn As SqlConnection = New SqlConnection(ConnString)  
        Dim da As SqlDataAdapter = New SqlDataAdapter  
        Dim dt As New DataTable  
        Dim iDeptCount As String = "0"  
        If cn.State = ConnectionState.Closed Then  
            cn.Open()  
        End If  
        Sql = "select Count(*) as DeptCount From tblDepartments inner join tblUniBranch_X_Department on tblUniBranch_X_Department.deptid=tblDepartments.deptid  where unibranchid='" + Convert.ToString(HttpContext.Current.Session("UnBarnchID").ToString) + "' and tblDepartments.Status = 1"  
        da.SelectCommand = New SqlCommand(Sql, cn)  
        dt.Clear()  
        da.Fill(dt)  
        If dt.Rows.Count <> 0 Then  
            If Not IsDBNull(dt.Rows(0)("DeptCount")) Then  
                iDeptCount = dt.Rows(0)("DeptCount")  
            End If  
            Return iDeptCount  
        End If  
    Else  

        Dim Sql As String  
        Dim nqcmd As New SqlCommand  
        Dim ConnString As String = ConfigurationManager.ConnectionStrings("dbConn").ConnectionString  
        Dim cn As SqlConnection = New SqlConnection(ConnString)  
        Dim da As SqlDataAdapter = New SqlDataAdapter  
        Dim dt As New DataTable  
        Dim iDeptCount As String = "0"  
        If cn.State = ConnectionState.Closed Then  
            cn.Open()  
        End If  
        Sql = "Select Count(*) As DeptCount From tblDepartments where univbranchid='" + Convert.ToString(HttpContext.Current.Session("dbr").ToString) + "' "  
        Sql += " where Status = 1"  
        da.SelectCommand = New SqlCommand(Sql, cn)  
        dt.Clear()  
        da.Fill(dt)  
        If dt.Rows.Count <> 0 Then  
            If Not IsDBNull(dt.Rows(0)("DeptCount")) Then  
                iDeptCount = dt.Rows(0)("DeptCount")  
            End If  
            Return iDeptCount  
        End If  

        Return iDeptCount  
        If cn.State = ConnectionState.Open Then  
            cn.Close()  
        End If  
        End if  
End Function  
Public Shared Function GetDesignations() As String  
    If (HttpContext.Current.Session("EmpTypeID")) = 4 Then  

        Dim Sql As String  
        Dim nqcmd As New SqlCommand  
        Dim ConnStrin

Accepted Answer

Hi @mush ,
I checked your code and found nothing in Panel2 so it doesn't work.
You need to put the code for the top card into Panel2.
EDIT

 HttpContext.Current.Session("dbr") = "test"  
 HttpContext.Current.Session("dbr") = ddlBranches.SelectedIndex

Duplicate code settings for HttpContext.Current.Session("dbr")

There is another problem. The following code responds when the page is loaded for the first time, but methods such as GetBranchesCount() contain the session of SelectedIndexChanged. It is recommended to put the judgment in SelectedIndexChanged.

If Not Page.IsPostBack Then  
         lblBranchesCount.Text = GetBranchesCount()  
         lblStaffCount.Text = GetStaff()  
         lblDepartment.Text = GetDepart()  
         lblDesignations.Text = GetDesignations()

Best regards,
Lan Huang

If the answer is the right solution, please click "Accept Answer" and kindly upvote it. If you have extra questions about this answer, please click "Comment".
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Answer

Sql = "select Count(*) as BranchesCount From tblUniversityBranches where univbranchid='" + Convert.ToString(HttpContext.Current.Session("dbr").ToString) + "'"
Sql += " where Status = 1"

Just a note on line 130+131; you have two WHERE clause in the SQL statement, that will fail with a syntax error.

ASP.NET: session in a dropdownlist only works in one panel.

1 additional answer