Advertisement
Guest User

Untitled

a guest
Oct 24th, 2014
141
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.28 KB | None | 0 0
  1. <asp:UpdatePanel runat="server" ID="FamilyFriendsUpdate">
  2. <ContentTemplate>
  3. <asp:ListView runat="server" ID="FamilyFriendsList">
  4. <ItemTemplate>
  5. <asp:ValidationSummary runat="server" ID="EditFamilyEmailValidation" ValidationGroup='<%# Eval("email") & "-" & Eval("extra_id") %>' />
  6. <asp:PlaceHolder runat="server" ID="FamilyEmailInfo">
  7. <tr>
  8. <td width="100">
  9. <asp:Literal runat="server" ID="ExtraIdValue" Text='<%# Eval("extra_id")%>' Visible="false" />
  10. <asp:Literal runat="server" ID="TitleEmail" Text='<%# Eval("title")%>' />
  11. <asp:DropDownList runat="server" ID="TitleField" Visible="false" DataSource='<%# GetTitles() %>' DataTextField="title" DataValueField="id" />
  12. </td>
  13. <td width="180">
  14. <asp:Literal runat="server" ID="ForenameEmail" Text='<%# Eval("forename")%>' />
  15. <asp:TextBox runat="server" ID="ForenameField" Visible="false" />
  16. </td>
  17. <td width="180">
  18. <asp:Literal runat="server" ID="SurnameEmail" Text='<%# Eval("surname")%>' />
  19. <asp:TextBox runat="server" ID="SurnameField" Visible="false" />
  20. </td>
  21. <td width="180">
  22. <asp:Literal runat="server" ID="FamilyEmail" Text='<%# Eval("email")%>' />
  23. <asp:TextBox runat="server" ID="EmailField" Visible="false" />
  24. </td>
  25. <td width="85">
  26. <asp:LinkButton runat="server" ID="EditMember" CommandName="EditMember" Text="Edit" CssClass="button tiny" />
  27. <asp:LinkButton runat="server" ID="SubmitFamilyChanges" CommandArgument='<%# Eval("extra_id")%>' CommandName="SubmitFamilyChanges" CssClass="button green tiny" Text="Submit" Visible="false" />
  28. </td>
  29. <td width="85">
  30. <asp:LinkButton runat="server" ID="DeleteFamilyEmail" CommandArgument='<%# Eval("extra_id")%>' CommandName="DeleteFamilyEmail" CssClass="button tiny" Text="Delete" />
  31. <asp:LinkButton runat="server" ID="CancelFamilyChanges" CommandArgument='<%# Eval("extra_id")%>' CommandName="CancelFamilyChanges" CssClass="button tiny" Text="Cancel" Visible="false" />
  32. </td>
  33. </tr>
  34. <asp:Panel runat="server" ID="ConfirmDeletePnl" CssClass="del-Confirm-pnl" Visible="false">
  35. <div class="fix-bg"></div>
  36. <div class="confirm-del">
  37. <h2 class="delTextBox">Are you sure you want to delete this family member?</h2>
  38. <asp:LinkButton runat="server" ID="ConfirmDelete" CommandName="ConfirmDelete" CommandArgument='<%# Eval("extra_id")%>' CssClass="button green btn" Text="Confirm" />
  39. <asp:LinkButton runat="server" ID="CancelDelete" CommandName="CancelDelete" CommandArgument='<%# Eval("extra_id")%>' CssClass="button btn right" Text="Cancel" />
  40. </div>
  41. </asp:Panel>
  42. </asp:PlaceHolder>
  43. </ItemTemplate>
  44. <ItemSeparatorTemplate>
  45. </ItemSeparatorTemplate>
  46. </asp:ListView>
  47. </ContentTemplate>
  48. </asp:UpdatePanel>
  49.  
  50. Protected Sub FamilyFriendsList_ItemCommand(sender As Object, e As ListViewCommandEventArgs) Handles FamilyFriendsList.ItemCommand
  51. Select Case e.CommandName
  52. Case "EditMember"
  53. EditMember(sender, e)
  54. Case "CancelFamilyChanges"
  55. CancelMember(sender, e)
  56. Case "SubmitFamilyChanges"
  57. SubmitMember(sender, e)
  58. Case "DeleteFamilyEmail"
  59. CType(e.Item.FindControl("ConfirmDeletePnl"), Panel).Visible = True
  60. Case "ConfirmDelete"
  61. CType(e.Item.FindControl("ConfirmDeletePnl"), Panel).Visible = False
  62. DeleteMember(sender, e)
  63. Case "CancelDelete"
  64. CancelDeleteMember(sender, e)
  65. End Select
  66. End Sub
  67.  
  68. Protected Sub EditMember(ByVal sender As Object, e As ListViewCommandEventArgs)
  69.  
  70.  
  71. 'FOR EACH LISTVIEW ITEM
  72. 'CALL CANCEL FUNCTION (sender, e)
  73. 'NEXT
  74.  
  75.  
  76. Select Case CType(e.Item.FindControl("TitleEmail"), Literal).Text
  77. Case ""
  78. CType(e.Item.FindControl("TitleField"), DropDownList).SelectedValue = "0"
  79. Case "Mr"
  80. CType(e.Item.FindControl("TitleField"), DropDownList).SelectedValue = "1"
  81. Case "Mrs"
  82. CType(e.Item.FindControl("TitleField"), DropDownList).SelectedValue = "2"
  83. Case "Miss"
  84. CType(e.Item.FindControl("TitleField"), DropDownList).SelectedValue = "3"
  85. Case "Dr"
  86. CType(e.Item.FindControl("TitleField"), DropDownList).SelectedValue = "4"
  87. End Select
  88.  
  89. CType(e.Item.FindControl("TitleField"), DropDownList).Visible = True
  90. CType(e.Item.FindControl("ForenameField"), TextBox).Visible = True
  91. CType(e.Item.FindControl("SurnameField"), TextBox).Visible = True
  92. CType(e.Item.FindControl("EmailField"), TextBox).Visible = True
  93. CType(e.Item.FindControl("SubmitFamilyChanges"), LinkButton).Visible = True
  94. CType(e.Item.FindControl("CancelFamilyChanges"), LinkButton).Visible = True
  95.  
  96. CType(e.Item.FindControl("ForenameField"), TextBox).Text = CType(e.Item.FindControl("ForenameEmail"), Literal).Text
  97. CType(e.Item.FindControl("SurnameField"), TextBox).Text = CType(e.Item.FindControl("SurnameEmail"), Literal).Text
  98. CType(e.Item.FindControl("EmailField"), TextBox).Text = CType(e.Item.FindControl("FamilyEmail"), Literal).Text
  99.  
  100. CType(e.Item.FindControl("TitleEmail"), Literal).Visible = False
  101. CType(e.Item.FindControl("ForenameEmail"), Literal).Visible = False
  102. CType(e.Item.FindControl("SurnameEmail"), Literal).Visible = False
  103. CType(e.Item.FindControl("FamilyEmail"), Literal).Visible = False
  104. CType(e.Item.FindControl("EditMember"), LinkButton).Visible = False
  105. CType(e.Item.FindControl("DeleteFamilyEmail"), LinkButton).Visible = False
  106.  
  107. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement