home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / full / atlantic / Software / Teweb / data1.cab / Pages / scripts / expaction.asp < prev    next >
Encoding:
Text File  |  2000-02-14  |  3.5 KB  |  156 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <%    Set clsTes = Session("TES")
  3.     If clsTes.LoggedIn = False Then
  4.         Set clsTes = Nothing
  5.         Response.Redirect("../loggedout.htm")
  6.     End If
  7.     tMode = Request.Form("btnSubmit")
  8.     alSelect = Request.Form("chkSelect")
  9.     tRef = Request.Form("txtReference")
  10.     tAction = Request.Form("optAction")
  11.     If tMode = "Add" Then
  12.         Response.Redirect("expedit.asp?Mode=Add")
  13.     End If
  14.     If Request.Form("btnApprove") = "Cancel" or Request.Form("btnDelete") = "Cancel" Then
  15.         Response.Redirect("expense.asp")
  16.     End If
  17.  
  18.     If Request.Form("btnApprove") = "OK" Then
  19.         If Len(alSelect) > 0 Then
  20.  
  21.             clsTes.ApproveSelectedExpenses CStr(alSelect), CStr(tAction), CStr(tRef)
  22.  
  23.         Else
  24.  
  25.             clsTes.ApproveAllExpenses CStr(tAction), CStr(tRef)
  26.  
  27.         End If
  28.         Response.Redirect("expense.asp")
  29.     ElseIf Request.Form("btnDelete") = "OK" Then
  30.         If Len(alSelect) > 0 Then
  31.  
  32.             clsTes.DeleteSelectedExpenses CStr(alSelect)
  33.             Response.Redirect("expense.asp")
  34.  
  35.         ElseIf Request.Form("chkConfirm") = "ON" Then
  36.  
  37.             clsTes.DeleteAllExpenses
  38.             Response.Redirect("expense.asp")
  39.  
  40.         End If
  41.     End If
  42.  
  43. %>
  44. <!-- #INCLUDE FILE = "settings/colours.txt" -->
  45. <HTML>
  46. <HEAD>
  47. <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
  48. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  49. <TITLE>Expense</TITLE>
  50. </HEAD>
  51. <BODY BGCOLOR="<%= BackColor %>" LINK="<%= LinkColor %>" VLINK="<%= VLinkColor %>" ALINK="<%= ALinkColor %>" TEXT="<%= TextColor %>">
  52. <BASEFONT SIZE=2 COLOR="<%= TextColor %>">
  53.  
  54. <% If clsTes.ExpenseViewAccess <> 2 Then    'US_NONE %>
  55.  
  56. <BR>
  57. <CENTER>
  58.  
  59. <FONT SIZE=+2><B>
  60. <%        If tMode="Approve" Then
  61.             Response.Write("Approve Expenses")
  62.         ElseIf tMode="Delete" Then
  63.             Response.Write("Delete Expenses")
  64.         End If
  65. %>
  66. </B></FONT>
  67.  
  68. <TABLE BORDER=0>
  69.  
  70. <TR>
  71. <TD ALIGN=MIDDLE>
  72. <FORM ACTION="expaction.asp" METHOD=POST>
  73.  
  74. <INPUT TYPE=HIDDEN NAME="chkSelect" VALUE="<%= alSelect %>">
  75. <INPUT TYPE=HIDDEN NAME="btnSubmit" VALUE="<%= tMode %>">
  76.  
  77. <TABLE BORDER=0 CELLPADDING=5 CELLSPACING=5>
  78.  
  79. <%    If tMode="Approve" Then %>
  80.  
  81. <TR>
  82.     <TD ALIGN=CENTER>
  83. <%        If Len(alSelect) = 0 Then %>
  84.             No expense entries were selected. Approve ALL
  85.             the expenses displayed on the previous page?
  86.         <%    Else %>
  87.             Approve SELECTED expense entries?
  88.         <%    End If %>
  89.         <BR><BR>
  90.     </TD>
  91. </TR>
  92. <TR>
  93.     <TD ALIGN=CENTER>
  94.     <INPUT TYPE=RADIO NAME="optAction" VALUE="APPROVE" CHECKED>
  95.     Approve
  96.      
  97.     <INPUT TYPE=RADIO NAME="optAction" VALUE="UNAPPROVE">
  98.     Un-Approve
  99.      
  100.     <INPUT TYPE=RADIO NAME="optAction" VALUE="DISAPPROVE">
  101.     Disapprove
  102. </TR>
  103. <TR>
  104.     <TD ALIGN=CENTER>
  105.         <B>Reference:</B>
  106.          
  107.         <INPUT TYPE=TEXT NAME="txtReference" SIZE=30 MAXLENGTH=30 VALUE="<%= clsTes.UserCode %>">
  108.     </TD>
  109. </TR>
  110.  
  111. <TR>
  112.     <TD ALIGN=CENTER>
  113.         <INPUT TYPE=SUBMIT NAME="btnApprove" VALUE="OK">
  114.         <INPUT TYPE=SUBMIT NAME="btnApprove" VALUE="Cancel">
  115.         <BR>
  116.     </TD>
  117. </TR>
  118.  
  119. <%    ElseIf tMode="Delete" Then %>
  120.  
  121. <TR>
  122.     <TD ALIGN=CENTER>
  123. <%        If Len(alSelect) = 0 Then %>
  124.             No expense entries were selected. Delete ALL
  125.             the expenses displayed on the previous page?
  126.             <P>
  127.             <INPUT TYPE=CHECKBOX NAME="chkConfirm" VALUE="ON"> Yes, I want to delete ALL expenses.
  128. <%        Else %>
  129.             Delete SELECTED expense entries? 
  130. <%        End If %>
  131.         <P>
  132.     </TD>
  133. </TR>
  134.  
  135. <TR>
  136.     <TD ALIGN=CENTER>
  137.         <INPUT TYPE=SUBMIT NAME="btnDelete" VALUE="OK">
  138.         <INPUT TYPE=SUBMIT NAME="btnDelete" VALUE="Cancel">
  139.     </TD>
  140. </TR>
  141.  
  142. <%    End If %>
  143.  
  144. </TABLE>
  145.  
  146.  
  147. </TD>
  148. </TR>
  149. </TABLE>
  150. </FORM>
  151.  
  152. <% Set clsTes = Nothing %>
  153. <% End If %>
  154. </BODY>
  155. </HTML>
  156.