home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / full / atlantic / Software / Teweb / data1.cab / Pages / scripts / tsgrid.asp < prev    next >
Encoding:
Text File  |  2000-02-14  |  1.9 KB  |  64 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <%    On Error Resume Next
  3.     Set clsTes = Session("TES")
  4.     If clsTes.LoggedIn = False Then
  5.         Set clsTes = Nothing
  6.         Response.Redirect("../loggedout.htm")
  7.     End If
  8.     tResource = Request("Resource")
  9.     dDate = Request("Date")
  10.     tGridBy = Request("GridBy")
  11.     tViewBy = Request("ViewBy")
  12.     tParam = ""
  13.     If Len(dDate) > 0 Then
  14.       tParam="Date=" & CStr(dDate)
  15.     End If
  16.     If Len(tGridBy) > 0 Then
  17.         If Len(tParam) > 0 Then
  18.             tParam = tParam & "&"
  19.         End If
  20.         tParam = tParam & "GridBy=" & tGridBy
  21.     End If
  22.     If Len(tViewBy) > 0 Then
  23.         If Len(tParam) > 0 Then
  24.             tParam = tParam & "&"
  25.         End If
  26.         tParam = tParam & "ViewBy=" & tViewBy
  27.     End If
  28.     If Len(tResource) > 0 Then
  29.         If Len(tParam) > 0 Then
  30.             tParam = tParam & "&"
  31.         End If
  32.         tParam = tParam & "Resource=" & Server.URLEncode(tResource)
  33.     End If
  34.     If Len(tParam) > 0 Then
  35.         tParam = "?" & tParam
  36.     End If
  37.     If Session("NOFRAMES") = True Then 
  38.         Response.Redirect("gridview.asp" & tParam)
  39.     End If %>
  40. <!-- #INCLUDE FILE = "settings/colours.txt" -->
  41. <HTML>
  42. <HEAD>
  43. <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
  44. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  45. <TITLE>Timesheet Grid</TITLE>
  46. </HEAD>
  47. <%    If clsTes.TimesheetViewAccess <> 2 Then        'US_NONE %>
  48. <FRAMESET SCROLLING="auto" rows="*,30%">
  49.     <FRAME NAME="GRIDVIEW" MARGINHEIGHT=1 SCROLLING="auto" MARGINWIDTH=2 SRC="gridview.asp<%Response.Write(tParam)%>">
  50.     <FRAME NAME="DETAIL" MARGINHEIGHT=1  SCROLLING="auto" MARGINWIDTH=2 SRC="blank.asp">
  51.     <NOFRAMES>
  52.     <!-- #INCLUDE FILE="tooldetail.asp" -->
  53.     </NOFRAMES>
  54. </FRAMESET>
  55. <% Else %>
  56. <BODY BGCOLOR="<%= BackColor %>" LINK="<%= LinkColor %>" VLINK="<%= VLinkColor %>" ALINK="<%= ALinkColor %>" TEXT="<%= TextColor %>">
  57. <BASEFONT SIZE=2 COLOR="<%= TextColor %>">
  58.  
  59. Sorry, you do not have access to view timesheets.
  60. </BODY>
  61. <% End If %>
  62. <% Set clsTes = Nothing %>
  63. </HTML>
  64.