home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / CHIPCD_3_98.iso / software / testsoft / exchange / webdata / usa / calendar / events.asp < prev    next >
Text File  |  1997-08-25  |  2KB  |  73 lines
  1. <%Response.AddHeader "pragma", "no-cache"%>
  2. <!--#include file="../constant.inc"-->
  3. <!--#include file="../lib/getrend.inc"-->
  4. <!--#include file="../lib/session.inc"-->
  5. <!--#include file="../lib/pageutil.inc"-->
  6. <%
  7. '<!--Microsoft Outlook Web Access-->
  8. '<!--eventgs.asp : Frame that lists events for calendar folder-->
  9. '<!--Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
  10.  
  11. On Error Resume Next
  12.  
  13. urlFull = Request.QueryString()
  14. x = CheckSession3(bstrVirtRoot+"/calendar/main_fr.asp?"+urlFull,"parent",1)
  15.  
  16. Set objRenderer = GetCalendarRenderer
  17. urlCaller = Request.QueryString("caller")
  18.  
  19. szView = Request.QueryString("view")
  20. iCurrentView = objRenderer.CurrentView.Index
  21. If szView <> Empty and szView <> "" Then
  22.     iView = CInt(szView)
  23.     If iView <> iCurrentView Then
  24.         objRenderer.CurrentView = iView
  25.     End If
  26. End If
  27.  
  28. ' Get the requested start date (defaults to today)
  29. szYear  = Request.QueryString("y")
  30. szMonth = Request.QueryString("m")
  31. szDay   = Request.QueryString("d")
  32. If szYear = "0" And szMonth = "0" And szDay = "0" Then
  33.     dt = Now()
  34.     Session(CURRENT_DATE) = dt
  35. ElseIf szYear <> "" And szMonth <> "" And szDay <> "" Then
  36.     Err.Clear
  37.     dt = DateSerial(CInt(szYear), CInt(szMonth), CInt(szDay))
  38.     Session(CURRENT_DATE) = dt
  39. Else
  40.     dt = Session(CURRENT_DATE)
  41. End If
  42.  
  43. Set objView = objRenderer.CurrentView
  44. objView.NumberOfUnits=1
  45. %>
  46. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2//EN">
  47. <HTML>
  48. <HEAD>
  49. <SCRIPT LANGUAGE="Javascript">
  50.  
  51. parent.currentMonth="<%=szMonth%>"
  52. parent.currentYear="<%=szYear%>"
  53. parent.currentDay="<%=szDay%>"
  54.  
  55. <% if urlCaller="" Then%>
  56.     parent.title_fr.document.gotoForm.viewSelect.selectedIndex=<%=iView-1%>;
  57. <% End If %>
  58. <% If szYear <> "" And szMonth <> "" And szDay <> "" Then %>
  59.     parent.msg_fr.location = "appts.asp?M=<% =szMonth %>&D=<% =szDay %>&Y=<% =szYear %>&view=<%=szView%>#start";
  60. <% End If %>
  61. </SCRIPT>
  62. </HEAD>
  63. <BODY TEXT=000000 BGCOLOR=C0C0C0 LINK=000000 ALINK=000000 VLINK=000000 TOPMARGIN=0 LEFTMARGIN=2>
  64. <%
  65. objView.RenderEvents dt, Response
  66. If Err.Number <> 0 Then
  67. '    Response.Write L_errRenderView_ErrorMessage
  68.     Response.Write L_errRenderView_ErrorMessage & err.Number & err.description
  69. End If
  70. %>
  71. </BODY>
  72. </HTML>
  73.