Guest User

Untitled

a guest
Sep 16th, 2018
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.87 KB | None | 0 0
  1. <asp:LinkButton ID="lbtnHonorary" runat="server" class="MerunLink" OnClick="lbtnHonorary_Click">Honorary and Honorary Life Members.</asp:LinkButton><br />
  2.  
  3. <asp:LinkButton ID="lnkRetired" runat="server" class="MerunLink">Retired Members.</asp:LinkButton><br />
  4.  
  5. <asp:LinkButton ID="lnkDeceased" runat="server" class="MerunLink" OnClick="lnkDeceased_Click">Deceased Members.</asp:LinkButton><br />
  6.  
  7. <asp:LinkButton ID="lnkResigned" runat="server" class="MerunLink">Resigned Members.</asp:LinkButton><br />
  8.  
  9. <asp:LinkButton ID="lnkTerminated" runat="server" class="MerunLink">Terminated Members.</asp:LinkButton>
  10.  
  11.  
  12.  
  13.     Protected Sub lnkDeceased_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkDeceased.Click
  14.  
  15.         dvOthers.Visible = True
  16.         divViewcontent.Visible = False
  17.         pnlResigned.Visible = False
  18.         pnlRetired.Visible = False
  19.         pnlTerminated.Visible = False
  20.  
  21.         Dim proxy As New ILASAWebService.ServiceClient("ILASAendpoint", ConfigurationManager.AppSettings("ILASAWebServiceURL"))
  22.  
  23.         dlDeceased.DataSource = proxy.GetIlasaMembersByMembershipType("Deceased")
  24.         dlDeceased.DataBind()
  25.  
  26.         proxy.Close()
  27.     End Sub
  28.  
  29.  
  30.     Protected Sub lbtnHonorary_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbtnHonorary.Click
  31.  
  32.         dvHonorary.Visible = True
  33.         divViewcontent.Visible = False
  34.         Dim proxy As New ILASAWebService.ServiceClient("ILASAendpoint", ConfigurationManager.AppSettings("ILASAWebServiceURL"))
  35.  
  36.         dlHonorary.DataSource = proxy.GetIlasaMembersByMembershipType("Honorary")
  37.         dlHonorary.DataBind()
  38.         Dim dt As DataTable = proxy.GetIlasaMembersByMembershipType("Honorary Life")
  39.         If dt.Rows.Count > 0 Then
  40.  
  41.             dlHonoraryLife.DataSource = dt
  42.             dlHonoraryLife.DataBind()
  43.  
  44.         End If
  45.  
  46.         proxy.Close()
  47.     End Sub
Add Comment
Please, Sign In to add comment