View difference between Paste ID: mGNUw40j and 8Shj1J6z

 #Region "Page Load"
     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         pnlSelectOrg.Visible = True
         pnlEditOrg.Visible = False
         pnlOrgUsers.Visible = False
         pnlAddUser.Visible = False
 
-            ' Fill the DropDownList
+
             BindOrgs()
         End If
 
         If ddlOrgs.SelectedItem.Text = "Please select an organization to edit" Then
             lnkEditOrg.Enabled = False
         End If
-    End Sub
+    End Sub
 
     Private Sub BindOrgs()
         If ddlOrgs.Items.Count = 0 Then
             ' We don't want to have an organization loaded from default so put a dummy item in the drop down list
             ddlOrgs.Items.Add("Please select an organization to edit")
         Else
             ddlOrgs.Items.Clear()
             ddlOrgs.Items.Add("Please select an organization to edit")
         End If
 
         ' Since binding the drop down list to the dataset is going to remove our dummy item, add items in a loop from
         ' the dataset
 
         Dim sql As String = "Select * from Organizations"
         dsOrg = d.GetDataSet(sql, "text")
         For i As Integer = 0 To dsOrg.Tables(0).Rows.Count - 1
             ddlOrgs.Items.Add(dsOrg.Tables(0).Rows(i)("OrganizationName"))
             ddlOrgs.Items(i + 1).Value = dsOrg.Tables(0).Rows(i)("OrganizationID")
         Next
     End Sub
 #End Region
 
 #Region "Organizations"
     Protected Sub ddlOrgs_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlOrgs.SelectedIndexChanged
         Dim targetOrg As Integer = CInt(ddlOrgs.SelectedItem.Value)
         Dim sql As String = _
                         "select * from Users as a " & _
                         "inner join OrgUsers as b on a.UserID = b.UserID where b.OrgID = " & ddlOrgs.SelectedItem.Value
         Dim drUsers As SqlDataReader = d.GetReader(sql)
         grdOrgUsers.DataSource = drUsers
         grdOrgUsers.DataBind()
         drUsers.Close()
 
         pnlOrgUsers.Visible = True
         GetOrgModules(ddlOrgs.SelectedItem.Value)
         pnlOrgModules.Visible = True
 
         lnkEditOrg.Enabled = True
         chkModules.Enabled = False
     End Sub
 
     Protected Sub lnkEditOrg_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkEditOrg.Click
         txtModOrgName.Text = ddlOrgs.SelectedItem.Text
         pnlSelectOrg.Visible = False
         pnlEditOrg.Visible = True
         GetOrgModules(ddlOrgs.SelectedItem.Value)
         chkModules.Visible = True
         chkModules.Enabled = True
     End Sub
 
     Protected Sub lnkSaveModOrg_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkSaveModOrg.Click
         ' Get the list of Modules selected for this organization
         Dim ModuleList As New List(Of Integer)
         For i As Integer = 0 To chkModules.Items.Count - 1
             If chkModules.Items(i).Selected Then
                 ModuleList.Add(chkModules.Items(i).Value)
             End If
         Next
 
         ' Update the organization name (new/edit)
         If ddlOrgs.SelectedItem.Text = "Please select an organization to edit" Then
             lblError.Text = "Please select an organization to edit"
         ElseIf txtModOrgName.Text = ddlOrgs.SelectedItem.Text Then
             AddUpdateOrg(txtModOrgName.Text, "Update", ddlOrgs.SelectedItem.Value)
         Else
             AddUpdateOrg(txtModOrgName.Text, "Add")
         End If
 
         BindOrgs()
         chkModules.Enabled = False
         pnlOrgUsers.Visible = True
     End Sub
 
     Private Sub AddUpdateOrg(ByVal OrganizationName As String, ByVal Action As String, Optional ByVal Target As Integer = Nothing)
         ' Get the list of Modules selected for this organization
         Dim ModuleList As New List(Of Integer)
         For i As Integer = 0 To chkModules.Items.Count - 1
             If chkModules.Items(i).Selected Then
                 ModuleList.Add(chkModules.Items(i).Value)
             End If
         Next
 
         Dim sql As String = Nothing
 
         Select Case Action
             Case "Add"
                 sql = "insert into Organizations(OrganizationName) values ('" & OrganizationName & "')"
 
             Case "Update"
                 sql = "update Organizations set OrganizationName = '" & OrganizationName & "') " & _
                     "where OrganizationID = " & Target
 
         End Select
 
         Dim dr As SqlDataReader = d.GetReader("select * from OrgModules where OrgID = " & Target)
         If dr.HasRows Then
             dr.Close()
             UpdateModules(Target, ModuleList, "update")
         Else
             dr.Close()
             UpdateModules(Target, ModuleList, "insert")
         End If
         d.DoCommand(sql)
     End Sub
 
     Private Sub UpdateModules(ByVal OrganizationID As Integer, ByVal ModuleList As List(Of Integer), ByVal Action As String)
         If Action = "insert" Then
             For i As Integer = 0 To ModuleList.Count - 1
                 Dim sql As String = "insert into OrgModules(OrgID, ModuleID) values(" & OrganizationID & ", " & ModuleList.Item(i) & ")"
                 d.DoCommand(sql)
             Next
         Else
             For i As Integer = 0 To ModuleList.Count - 1
                 Dim sql As String = "update OrgModules set ModuleID = " & ModuleList.Item(i) & " where OrgID = " & OrganizationID
                 d.DoCommand(sql)
             Next
         End If
 
         GetOrgModules(OrganizationID)
     End Sub
 
     Protected Sub lnkCancelModOrg_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkCancelModOrg.Click
         pnlSelectOrg.Visible = True
         pnlOrgUsers.Visible = True
         pnlEditOrg.Visible = False
     End Sub
 
     Protected Sub lnkNewOrg_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkNewOrg.Click
         pnlEditOrg.Visible = True
         pnlSelectOrg.Visible = False
     End Sub
 
     Private Sub GetOrgModules(ByVal OrganizationID As Integer)
         ' Clear all currently selected modules for this Organization
         Dim sql As String = "delete * from OrgModules where OrgID = " & OrganizationID
         d.DoCommand(sql)
 
         sql = "select ModuleID, ModuleName from Modules"
         Dim dr As SqlDataReader = d.GetReader(sql)
 
         chkModules.DataSource = dr
         chkModules.DataTextField = "ModuleName"
         chkModules.DataValueField = "ModuleID"
         chkModules.DataBind()
         dr.Close()
 
         sql = "select a.ModuleID, b.ModuleName from OrgModules as a" & vbCrLf & _
             "inner join Modules as b on a.ModuleID = b.ModuleID" & vbCrLf & _
             "where a.OrgID = " & OrganizationID
         Dim drMod = d.GetReader(sql)
         If drMod.HasRows Then
             chkModules.ClearSelection()
             While drMod.Read
                 For i As Integer = 0 To chkModules.Items.Count - 1
                     If chkModules.Items(i).Value = drMod.GetValue(0) Then
                         chkModules.Items(i).Selected = True
                         Exit For
                     End If
                 Next
             End While
             drMod.Close()
         Else
             chkModules.Visible = False
         End If
     End Sub
 #End Region