home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / CHIPCD_3_98.iso / software / testsoft / exchange / webdata / usa / calendar / appts.asp next >
Text File  |  1997-08-25  |  2KB  |  60 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. '<!--appts.asp : Frame that lists appointments 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.  
  18. szView = Request.QueryString("view")
  19. iCurrentView = objRenderer.CurrentView.Index
  20. If szView <> Empty and szView <> "" Then
  21.     iView = CInt(szView)
  22.     If iView <> iCurrentView Then
  23.         objRenderer.CurrentView = iView
  24.     End If
  25. End If
  26.  
  27. ' Get the requested start date (defaults to today)
  28. szYear  = Request.QueryString("y")
  29. szMonth = Request.QueryString("m")
  30. szDay   = Request.QueryString("d")
  31. If szYear = "0" And szMonth = "0" And szDay = "0" Then
  32.     dt = Now()
  33.     Session(CURRENT_DATE) = dt
  34. ElseIf szYear <> "" And szMonth <> "" And szDay <> "" Then
  35.     Err.Clear
  36.     dt = DateSerial(CInt(szYear), CInt(szMonth), CInt(szDay))
  37.     Session(CURRENT_DATE) = dt
  38. Else
  39.     dt = Session(CURRENT_DATE)
  40. End If
  41.  
  42. Set objView = objRenderer.CurrentView
  43. objView.NumberOfUnits=1
  44. %>
  45. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2//EN">
  46. <HTML>
  47. <HEAD>
  48. </HEAD>
  49. <BODY TEXT=000000 BGCOLOR=808080 LINK=000000 ALINK=000000 VLINK=000000 TOPMARGIN=3 LEFTMARGIN=2>
  50. <%
  51. Err.Clear
  52. objView.RenderAppointments dt, Response
  53. If Err.Number <> 0 Then
  54. '    Response.Write L_errRenderView_ErrorMessage
  55.     Response.Write L_errRenderView_ErrorMessage & err.Number & err.description
  56. End If
  57. %>
  58. </BODY>
  59. </HTML>
  60.