home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / full / atlantic / Software / Teweb / data1.cab / Pages / scripts / tsaction.asp < prev    next >
Encoding:
Text File  |  2000-02-14  |  3.5 KB  |  159 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("tstadd.asp")
  13.     End If
  14.     If Request.Form("btnApprove") = "Cancel" or Request.Form("btnDelete") = "Cancel" Then
  15.         Response.Redirect("tstable.asp")
  16.     End If
  17.  
  18.     If Request.Form("btnApprove") = "OK" Then
  19.         If Len(alSelect) > 0 Then
  20.  
  21.                 clsTes.ApproveSelectedTimesheets CStr(alSelect), CStr(tAction), CStr(tRef)
  22.  
  23.         Else
  24.         
  25.             clsTes.ApproveAllTimesheets CStr(tAction), CStr(tRef)
  26.         
  27.         End If
  28.         Response.Redirect("tstable.asp")
  29.     ElseIf Request.Form("btnDelete") = "OK" Then
  30.         If Len(alSelect) > 0 Then
  31.  
  32.             clsTes.DeleteSelectedTimesheets CStr(alSelect)
  33.             Response.Redirect("tstable.asp")
  34.  
  35.         ElseIf Request.Form("chkConfirm") = "ON" Then
  36.  
  37.             clsTes.DeleteAllTimesheets
  38.             Response.Redirect("tstable.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>Timesheet</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.TimesheetViewAccess <> 2 Then    'US_NONE %>
  55.  
  56. <BR>
  57. <CENTER>
  58.  
  59. <FONT SIZE=+2><B>
  60. <%        If tMode="Approve" Then
  61.             Response.Write("Approve Timesheets")
  62.         ElseIf tMode="Delete" Then
  63.             Response.Write("Delete Timesheets")
  64.         End If
  65. %>
  66. </B></FONT>
  67.  
  68. <TABLE BORDER=0>
  69.  
  70. <TR>
  71. <TD ALIGN=MIDDLE>
  72. <FORM ACTION="tsaction.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 timesheet entries were selected. Approve ALL
  85.             the timesheets displayed on the previous page?
  86.         <%    Else %>
  87.             Approve SELECTED timesheet entries?
  88.         <%    End If %>
  89.         <BR><BR>
  90.     </TD>
  91. </TR>
  92.  
  93. <TR>
  94.     <TD ALIGN=CENTER>
  95.     <INPUT TYPE=RADIO NAME="optAction" VALUE="APPROVE" CHECKED>
  96.     Approve
  97.      
  98.     <INPUT TYPE=RADIO NAME="optAction" VALUE="UNAPPROVE">
  99.     Un-Approve
  100.      
  101.     <INPUT TYPE=RADIO NAME="optAction" VALUE="DISAPPROVE">
  102.     Disapprove
  103. </TR>
  104.  
  105. <TR>
  106.     <TD ALIGN=CENTER>
  107.         <B>Reference:</B>
  108.          
  109.         <INPUT TYPE=TEXT NAME="txtReference" SIZE=30 MAXLENGTH=30 VALUE="<%= clsTes.UserCode %>">
  110.     </TD>
  111. </TR>
  112.  
  113. <TR>
  114.     <TD ALIGN=CENTER>
  115.         <INPUT TYPE=SUBMIT NAME="btnApprove" VALUE="OK">
  116.         <INPUT TYPE=SUBMIT NAME="btnApprove" VALUE="Cancel">
  117.         <BR>
  118.     </TD>
  119. </TR>
  120.  
  121. <%    ElseIf tMode="Delete" Then %>
  122.  
  123. <TR>
  124.     <TD ALIGN=CENTER>
  125. <%        If Len(alSelect) = 0 Then %>
  126.             No timesheet entries were selected. Delete ALL
  127.             the timesheets displayed on the previous page?
  128.             <P>
  129.             <INPUT TYPE=CHECKBOX NAME="chkConfirm" VALUE="ON"> Yes, I want to delete ALL timesheets.
  130.         <%    Else %>
  131.             Delete SELECTED timesheet entries?
  132.         <%    End If %>
  133.         <P>
  134.     </TD>
  135. </TR>
  136.  
  137. <TR>
  138.     <TD ALIGN=CENTER>
  139.         <INPUT TYPE=SUBMIT NAME="btnDelete" VALUE="OK">
  140.         <INPUT TYPE=SUBMIT NAME="btnDelete" VALUE="Cancel">
  141.     </TD>
  142. </TR>
  143.  
  144. <%    End If %>
  145.  
  146. </TABLE>
  147.  
  148.  
  149. </TD>
  150. </TR>
  151. </TABLE>
  152. </FORM>
  153.  
  154. <% End If %>
  155.  
  156. <% Set clsTes = Nothing %>
  157. </BODY>
  158. </HTML>
  159.