home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / full / atlantic / Software / Teweb / data1.cab / Pages / scripts / todo.asp < prev    next >
Encoding:
Text File  |  2000-02-14  |  7.0 KB  |  288 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.  
  8.     dToDoDate = Request("ToDoDate")
  9.     tResource = Request("Resource")
  10.  
  11.     If Len(dToDoDate)=0 Then
  12.       dToDoDate = clsTes.ADbl(clsTes.ToDoDate)
  13.     Else
  14.       clsTes.ToDoDate = clsTes.ADbl(dToDoDate)
  15.     End If
  16.  
  17.     If Len(tResource) = 0 Then
  18.       tResource = clsTes.Resource
  19.     Else
  20.         If clsTes.ViewResource(tResource,3) Then
  21.             clsTes.Resource = tResource
  22.         Else
  23.             tResource = clsTes.Resource
  24.         End If
  25.     End If
  26.  
  27. %>
  28. <!-- #INCLUDE FILE = "settings/colours.txt" -->    
  29. <HTML>
  30. <HEAD>
  31. <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
  32. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  33. <TITLE>Tasks To Do</TITLE>
  34. </HEAD>
  35. <BODY BGCOLOR="<%= BackColor %>" LINK="<%= LinkColor %>" VLINK="<%= VLinkColor %>" ALINK="<%= ALinkColor %>" TEXT="<%= TextColor %>">
  36. <BASEFONT SIZE=2 COLOR="<%= TextColor %>">
  37.  
  38. <table border=0 width=100%>
  39. <tr>
  40.     <td align=left valign=top nowrap=nowrap>
  41.         <table  border=0 cellspacing=1 cellpadding=1>
  42.         <tr>
  43.             <td align=left width = 75>
  44.             <b><%= Server.HTMLEncode(clsTes.ResourceLabel) %>:</b>
  45.             </td>
  46. <%            If clsTes.ScheduleViewResAccess <> 3 Then    'US_OWN %>
  47.                 <a href="pickitem.asp?Type=Resource&<% Response.Write("ReturnURL=" & Server.URLEncode("todo.asp")) %>">
  48. <%            End If %>
  49.                 <td align=left width = 175>
  50. <%                If len(tResource) > 0 Then
  51.                     Response.Write(Server.HTMLEncode(tResource))
  52.                 Else %>
  53.                     Please Select
  54. <%                End If %>
  55. <%            If clsTes.ScheduleViewResAccess <> 3 Then    'US_OWN %>
  56.                 </a>
  57. <%            End If %>
  58.             </td>
  59.  
  60.         </tr>
  61.         </table>
  62.     </td>
  63.  
  64.     <td align=right valign=top>
  65. <%        tURL = "todo.asp?ToDoDate=" %>
  66.         <table border=0 cellspacing=1 cellpadding=1>
  67.         <tr>
  68.             <td align=center NOWRAP=NOWRAP valign=middle>
  69.                 <A HREF="calendar.asp?ReturnURL=<%= Server.URLEncode("todo.asp") %>&Name=ToDoDate&Date=<%= dToDoDate %>">
  70.                 <b><% Response.Write(clsTes.FormatDate(dToDoDate)) %></b> 
  71.                 </A>
  72.             </td>
  73.             <td width=10></td>
  74.             <td align=center bgcolor="<%= SelectBackColor %>" width=25 valign=middle>
  75.                 <b><a href="<%= tURL & CStr(dToDoDate - 1) %>"><img border=0 src="../images/bck1d.gif" ALT="Back 1 Day"></a></b>
  76.             </td>
  77.             <td align=center bgcolor="<%= SelectBackColor %>" width=25 valign=middle>
  78.                 <b><a href="<%= tURL & CStr(dToDoDate + 1) %>"><img border=0 src="../images/fwd1d.gif" ALT="Forward 1 Day"></a></b>
  79.             </td>
  80.         </tr>
  81.         </table>
  82.     </td>
  83. </tr>
  84. </table>
  85.  
  86. <FONT Size=+2>
  87. <br><b><%= clsTes.FormatLongDate(dToDoDate)%> - To Do List</b><br>
  88. </FONT>
  89.  
  90. <%
  91.     Dim lRowCount
  92.     Dim lRow
  93.  
  94.     lRowCount = clsTes.GenerateToDoList
  95. %>
  96.  
  97. <%If lRowCount > 1 Then%>
  98.     <br><b><%=Server.HTMLEncode(clsTES.GridTotalHours) %> <%= Server.HTMLEncode(clsTES.UnitTimeLabelP)%> in <%=Server.HTMLEncode(lRowCount) %> Confirmed Tasks</b><br>
  99. <%ElseIf lRowCount = 1 Then%>
  100.     <br><b><%=Server.HTMLEncode(clsTES.GridTotalHours) %> <%=Server.HTMLEncode(clsTES.UnitTimeLabelP)%> in 1 Confirmed Task</b><br>
  101. <%End If%>
  102.  
  103. <table  border=0 cellspacing=1 cellpadding=1>
  104. <%
  105.  
  106.     If clsTes.ErrorNumber <> 0 Then
  107.  
  108.         Response.Write (Server.HTMLEncode(clsTes.ErrorText))
  109.  
  110.     Else
  111.  
  112.         If lRowCount > 0 Then
  113.             For lRow = 1 To lRowCount %>
  114.     <TR>
  115.         <TD Colspan=2>
  116.             <HR>
  117.         </TD>
  118.         <TD ColSpan=4>
  119.                  
  120.         </TD>
  121.  
  122.     </TR>
  123.         <tr>
  124.             
  125.             <td align=center valign=middle Width=30>
  126.                 <a href="tbviewres.asp?Key=<%= clsTes.GridValue(lRow,0) %>&ReturnURL=<%= Server.URLEncode("todo.asp") %>"><IMG BORDER=0 align=CENTER SRC="../images/info.gif" ALT="Time Block Information"></a>
  127.             </td>
  128.  
  129.             <td align=left valign=middle ColSpan=2>
  130.             <FONT SIZE= +0>
  131.             <b>
  132.                 <% If IsNull(clsTes.GridValue(lRow,5)) or Len(Trim(clsTes.GridValue(lRow,5))) =0 Then %>
  133.                      
  134.                 <% Else %>
  135.                     <%= Server.HTMLEncode(clsTes.GridValue(lRow, 5)) %>
  136.                 <% End If %>
  137.             </b>
  138.             </FONT>
  139.             </td>
  140.             
  141.             <td Width=10>
  142.              
  143.             </td>
  144.  
  145.             <td align=left valign=middle Colspan=2>
  146.                 <B>
  147.                 <FONT SIZE=+0>                
  148.                 <%if isnull(clsTes.GridValue(lRow, 9)) = True then%>
  149.                     
  150.                 <%Else%>                
  151.                     <%If clsTes.ADbl(clsTes.GridValue(lRow, 7)) = clsTes.ADbl(dToDoDate) then%>
  152.                         from    
  153.                         <%= clsTes.FormatDate(clsTes.GridValue(lRow, 9)) %>
  154.                     <%Else%>
  155.                         
  156.                     <%End If%>
  157.                 <%End If%>
  158.                                 
  159.                 
  160.                 <%if isnull(clsTes.GridValue(lRow, 10)) = True then%>
  161.                      
  162.                 <%Else%>                
  163.                     <%If clsTes.ADbl(clsTes.GridValue(lRow, 8)) = clsTes.ADbl(dToDoDate) then%>
  164.                         until
  165.                         <%= clsTes.FormatDate(clsTes.GridValue(lRow, 10)) %>
  166.                     <%Else%>
  167.                          
  168.                     <%End If%>
  169.                 <%End If%>            
  170.                 </FONT>
  171.                 </B>
  172.             </td>            
  173.         </tr>
  174.         <tr>
  175.             <td width=30> </td>
  176.             
  177.             
  178.             <td align=left valign=middle>
  179.                 <FONT SIZE=-1>
  180.                 <B><%= Server.HTMLEncode(clsTES.ProjectLabel)%> :</B>
  181.                 </FONT>            
  182.             </td>
  183.             <td align=left valign=middle>
  184.                 <FONT SIZE=-1>
  185.                 <%= Server.HTMLEncode(clsTes.GridValue(lRow, 1)) %> 
  186.                 <%If Not IsNull(clsTes.GridValue(lRow, 2)) = TRUE Then
  187.                     If Len(Trim(clsTes.GridValue(lRow, 2))) > 0 Then %>
  188.                         - <%= Server.HTMLEncode(clsTes.GridValue(lRow, 2)) %>
  189.                     <%End If%>
  190.                 <%End If%>            
  191.                  </FONT>
  192.             </td>        
  193.                 
  194.             <td Width=10>
  195.              
  196.             </td>
  197.             <td align=Left valign=middle>                
  198.             <FONT SIZE=-1>    
  199.                 <B><%=Server.HTMLEncode(clsTES.UnitTimeLabelP)%> :</B>
  200.                 </FONT>
  201.             </td>
  202.  
  203.             <td align=Left valign=middle>                
  204.             <FONT SIZE=-1>
  205.                  <%= clsTes.FormatNumber(clsTes.GridValue(lRow, 11)) %>
  206.             </FONT>
  207.             </td>
  208.         </tr>
  209.         <tr>    
  210.             
  211.             <td> </td>
  212.             <td>
  213.                 <FONT SIZE=-1>
  214.                 <B><%=Server.HTMLEncode(clsTES.ActivityLabel)%> :</B>
  215.                 </FONT>
  216.             </td>
  217.             <td align=left valign=middle>                
  218.                 <FONT SIZE=-1>
  219.                 <% If IsNull(clsTes.GridValue(lRow,3)) Then %>
  220.                     <I>Not Specified</I>
  221.                 <% Else %>
  222.                     <%= Server.HTMLEncode(clsTes.GridValue(lRow, 3)) %>
  223.                     <FONT SIZE=-1>
  224.                     <% If IsNull(clsTes.GridValue(lRow,4)) Then %>
  225.                          
  226.                     <% Else 
  227.                         If Len(Trim(clsTes.GridValue(lRow, 4))) > 0 Then %>
  228.                             - <%= Server.HTMLEncode(clsTes.GridValue(lRow, 4)) %>
  229.                         <%End If%>
  230.                     <% End If %>                
  231.                     </FONT>
  232.                 <% End If %>                
  233.                 </FONT>
  234.             </td>
  235.             
  236.             
  237.             <td Width=10>
  238.              
  239.             </td>
  240.  
  241.             <td align=Left valign=middle>                            
  242.             <FONT SIZE=-1>
  243.                 <B>Load :</B>
  244.             </FONT>
  245.             </td>
  246.  
  247.             <td align=Left valign=middle>                            
  248.             <FONT SIZE=-1>
  249.                  <%= Server.HTMLEncode(clsTes.GridValue(lRow, 12)) %>            
  250.             </FONT>
  251.             </td>
  252.             
  253.         </tr>
  254.  
  255.         <tr>
  256.             
  257.             <td> </td>            
  258.             <td align=left valign=middle ColSpan=5>
  259.                 <FONT SIZE=-1>
  260.                 <B>Scheduled Period : </B>
  261.                 <%= clsTes.FormatDate(clsTes.GridValue(lRow, 7)) %>
  262.             
  263.                 to
  264.             
  265.                 <%= clsTes.FormatDate(clsTes.GridValue(lRow, 8)) %>
  266.                 </FONT>
  267.             </td>            
  268.             
  269.         </tr>
  270.  
  271. <%            Next
  272.         Else%>
  273.             <br>
  274.             <hr Align=CENTER Width=75%>    
  275.             <FONT Size=+2>
  276.             <B><P ALIGN=CENTER>     Nothing Scheduled </P></B>
  277.             <hr ALIGN=CENTER WIDTH=75%>
  278.             </FONT>
  279.         <%End If
  280.     End If %>
  281.  
  282. </table>
  283.  
  284.  
  285.  
  286. </BODY>
  287. </HTML>
  288. <%    Set clsTes = Nothing %>