home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / tblDepartmentsdelete.aspx < prev    next >
Text File  |  2010-08-24  |  3KB  |  98 lines
  1. <%@ Page Language="VB" MasterPageFile="masterpage.master" AutoEventWireup="false" CodeFile="tblDepartmentsdelete.aspx.vb" Inherits="tblDepartmentsdelete" CodeFileBaseClass="AspNetMaker7_tfpssnet" %>
  2. <asp:Content ID="Content" ContentPlaceHolderID="Content" runat="server">
  3. <script type="text/javascript">
  4. <!--
  5. // Create page object
  6. var tblDepartments_delete = new ew_Page("tblDepartments_delete");
  7. // page properties
  8. tblDepartments_delete.PageID = "delete"; // page ID
  9. var EW_PAGE_ID = tblDepartments_delete.PageID; // for backward compatibility
  10. <% If EW_CLIENT_VALIDATE Then %>
  11. tblDepartments_delete.ValidateRequired = true; // uses JavaScript validation
  12. <% Else %>
  13. tblDepartments_delete.ValidateRequired = false; // no JavaScript validation
  14. <% End If %>
  15. //-->
  16. </script>
  17. <script language="JavaScript" type="text/javascript">
  18. <!--
  19. // Write your client script here, no need to add script tags.
  20. // To include another .js script, use:
  21. // ew_ClientScriptInclude("my_javascript.js"); 
  22. //-->
  23. </script>
  24. <%
  25.  
  26. ' Load records for display
  27. Rs = tblDepartments_delete.LoadRecordset()
  28. If tblDepartments_delete.lTotalRecs <= 0 Then ' No record found, exit
  29.     Rs.Close()
  30.     Rs.Dispose()
  31.     tblDepartments_delete.Page_Terminate("tblDepartmentslist.aspx") ' Return to list
  32. End If
  33. %>
  34. <p><span class="aspnetmaker">Delete From TABLE: Departments<br /><br />
  35. <a href="<%= tblDepartments.ReturnUrl %>">Go Back</a></span></p>
  36. <% tblDepartments_delete.ShowMessage() %>
  37. <form method="post">
  38. <p />
  39. <input type="hidden" name="t" id="t" value="tblDepartments" />
  40. <input type="hidden" name="a_delete" id="a_delete" value="D" />
  41. <% For i As Integer = 0 to tblDepartments_delete.arRecKeys.GetUpperBound(0) %>
  42. <input type="hidden" name="key_m" id="key_m" value="<%= Server.HtmlEncode(Convert.ToString(tblDepartments_delete.arRecKeys(i))) %>" />
  43. <% Next %>
  44. <table class="ewGrid"><tr><td class="ewGridContent">
  45. <div class="ewGridMiddlePanel">
  46. <table cellspacing="0" class="ewTable ewTableSeparate">
  47. <%= tblDepartments.TableCustomInnerHTML %>
  48.     <thead>
  49.     <tr class="ewTableHeader">
  50.         <td valign="top">Description</td>
  51.         <td valign="top">Acct Code</td>
  52.     </tr>
  53.     </thead>
  54.     <tbody>
  55. <%
  56. tblDepartments_delete.lRecCnt = 0
  57. Do While Rs.Read()
  58.     tblDepartments_delete.lRecCnt = tblDepartments_delete.lRecCnt + 1
  59.  
  60.     ' Set row properties
  61.     tblDepartments.CssClass = ""
  62.     tblDepartments.CssStyle = ""
  63.     tblDepartments.RowType = EW_ROWTYPE_VIEW ' view
  64.  
  65.     ' Get the field contents
  66.     tblDepartments_delete.LoadRowValues(Rs)
  67.  
  68.     ' Render row
  69.     tblDepartments_delete.RenderRow()
  70. %>
  71.     <tr<%= tblDepartments.RowAttributes %>>
  72.         <td<%= tblDepartments.depDescription.CellAttributes %>>
  73. <div<%= tblDepartments.depDescription.ViewAttributes %>><%= tblDepartments.depDescription.ListViewValue %></div>
  74. </td>
  75.         <td<%= tblDepartments.depAcctCode.CellAttributes %>>
  76. <div<%= tblDepartments.depAcctCode.ViewAttributes %>><%= tblDepartments.depAcctCode.ListViewValue %></div>
  77. </td>
  78.     </tr>
  79. <%
  80. Loop
  81. Rs.Close()
  82. Rs.Dispose()
  83. %>
  84.     </tbody>
  85. </table>
  86. </div>
  87. </td></tr></table>
  88. <p />
  89. <input type="submit" name="Action" id="Action" value="Confirm Delete" />
  90. </form>
  91. <script language="JavaScript" type="text/javascript">
  92. <!--
  93. // Write your table-specific startup script here
  94. // document.write("page loaded");
  95. //-->
  96. </script>
  97. </asp:Content>
  98.