home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / full / atlantic / Software / Teweb / data1.cab / Pages / scripts / defaults.asp < prev    next >
Encoding:
Text File  |  2000-02-14  |  4.0 KB  |  131 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.     tErrorList = "<B>Errors:</B>"
  8.     nErrors = 0
  9.     On Error Resume Next
  10.     bSave = False
  11.     If Request.Form("btnSubmit") = "Save Defaults" Then
  12.         bSave = clsTes.SaveOwnDefaults (CStr(Request.Form("txtProject")), CStr(Request.Form("txtActivity")), CStr(Request.Form("txtExpense")), CStr(Request.Form("optGridBy")))
  13.         If clsTes.ErrorNumber <> 0 Then
  14.             nErrors = 1
  15.             tErrorList = tErrorList & "<BR>" & Server.HTMLEncode(clsTes.ErrorText)
  16.         End If
  17.     End If %>
  18. <!-- #INCLUDE FILE = "settings/colours.txt" -->
  19. <HTML>
  20. <HEAD>
  21. <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
  22. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  23. <TITLE>Timesheet Expert Web - Own <%= Server.HTMLEncode(clsTes.ResourceLabel) %> Defaults</TITLE>
  24. </HEAD>
  25. <BODY BGCOLOR="<%= BackColor %>" LINK="<%= LinkColor %>" VLINK="<%= VLinkColor %>" ALINK="<%= ALinkColor %>" TEXT="<%= TextColor %>">
  26. <BASEFONT SIZE=2 COLOR="<%= TextColor %>">
  27. <CENTER>
  28. <FONT SIZE=+2><B> Own <%= Server.HTMLEncode(clsTes.ResourceLabel) %> Defaults<% If bSave then Response.Write (" - Saved") %></B></FONT>
  29. <P>
  30. <%        If nErrors Then %>
  31.             <%= tErrorList %>
  32.             <BR><BR>
  33. <%        End If %>
  34.  
  35. <FORM ACTION="defaults.asp" METHOD=POST>
  36. <TABLE BORDER=0 CELLSPACING=2 CELLPADDING=2>
  37. <TR>
  38.     <TD ALIGN=LEFT>
  39.         <B>
  40.         Default <%= Server.HTMLEncode(clsTes.ProjectLabel) %>:
  41.         </B>
  42.     </TD>
  43.     <TD ALIGN=LEFT>
  44. <%    clsTes.GenerateDropDownList "Projects",4
  45.     If clsTes.ErrorNumber <> 0 Then
  46.         Response.Write(Server.HTMLEncode(clsTes.ErrorText))
  47.         clsTes.ErrorClear
  48.     End If %>
  49.         <SELECT SIZE=1 NAME="txtProject">
  50.         <OPTION VALUE=""></OPTION>
  51. <%        If clsTes.UpperBoundRow > 0 Then
  52.             For lRow = 1 To clsTes.UpperBoundRow %>
  53. <OPTION VALUE="<%= Server.HTMLEncode(clsTes.GridValue(lRow, 0)) %>" <% If clsTes.OwnDefaultProject = clsTes.GridValue(lRow,0) Then Response.Write("SELECTED") %>><%= clsTes.GridValue(lRow,1) %></OPTION>
  54. <%            Next
  55.         End If %>
  56.         </SELECT>
  57.     </TD>
  58. </TR>
  59.  
  60. <TR>
  61.     <TD ALIGN=LEFT>
  62.         <B>
  63.         Default <%= Server.HTMLEncode(clsTes.ActivityLabel) %>:
  64.         </B>
  65.     </TD>
  66.     <TD ALIGN=LEFT>
  67. <%    clsTes.GenerateDropDownList "Activity", 4
  68.     If clsTes.ErrorNumber <> 0 Then
  69.         Response.Write(Server.HTMLEncode(clsTes.ErrorText))
  70.         clsTes.ErrorClear
  71.     End If %>
  72.         <SELECT SIZE=1 NAME="txtActivity">
  73.         <OPTION VALUE=""></OPTION>
  74. <%        If clsTes.UpperBoundRow > 0 Then
  75.             For lRow = 1 To clsTes.UpperBoundRow %>
  76. <OPTION VALUE="<%= Server.HTMLEncode(clsTes.GridValue(lRow, 0)) %>" <% If clsTes.OwnDefaultActivity = clsTes.GridValue(lRow,0) Then Response.Write("SELECTED") %>><%= clsTes.GridValue(lRow,1) %></OPTION>
  77. <%            Next
  78.         End If %>
  79.         </SELECT>
  80.     </TD>
  81. </TR>
  82.  
  83. <TR>
  84.     <TD ALIGN=LEFT>
  85.         <B>
  86.         Default Expense Type
  87.         </B>
  88.     </TD>
  89.     <TD ALIGN=LEFT>
  90. <%    clsTes.GenerateDropDownList "Type", 4
  91.     If clsTes.ErrorNumber <> 0 Then
  92.         Response.Write(Server.HTMLEncode(clsTes.ErrorText))
  93.         clsTes.ErrorClear
  94.     End If %>
  95.         <SELECT SIZE=1 NAME="txtExpense">
  96.         <OPTION VALUE=""></OPTION>
  97. <%        If clsTes.UpperBoundRow > 0 Then
  98.             For lRow = 1 To clsTes.UpperBoundRow %>
  99. <OPTION VALUE="<%= Server.HTMLEncode(clsTes.GridValue(lRow, 0)) %>" <% If clsTes.OwnDefaultExpense = clsTes.GridValue(lRow,0) Then Response.Write("SELECTED") %>><%= clsTes.GridValue(lRow,1) %></OPTION>
  100. <%            Next
  101.         End If %>
  102.         </SELECT>
  103.     </TD>
  104. </TR>
  105.  
  106.  
  107. <TR>
  108.     <TD ALIGN=LEFT VALIGN=TOP ROWSPAN=2>
  109.         <B>
  110.         Display Grid:
  111.         </B>
  112.     </TD>
  113.         
  114.     <TD ALIGN=LEFT>
  115.         <INPUT TYPE=RADIO NAME="optGridBy" VALUE="Project" <% If clsTes.OwnDefaultGrid = "Project" Then Response.Write("CHECKED") %>> <%= Server.HTMLEncode(clsTes.ProjectLabel) %>
  116.     </TD>
  117. </TR>
  118.  
  119. <TR>
  120.     <TD ALIGN=LEFT>
  121.         <INPUT TYPE=RADIO NAME="optGridBy" VALUE="Activity" <% If clsTes.OwnDefaultGrid = "Activity" Then Response.Write("CHECKED") %>> <%= Server.HTMLEncode(clsTes.ActivityLabel) %>
  122.     </TD>
  123. </TR>
  124.  
  125. </TABLE>
  126. <P>
  127. <INPUT TYPE=SUBMIT NAME="btnSubmit" VALUE="Save Defaults">
  128. </FORM>
  129. </BODY>
  130. </HTML>
  131. <% Set clsTes = Nothing %>