<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<!--#include file="../constant.inc"-->
<!--#include file="../lib/getrend.inc"-->
<!--#include file="../lib/session.inc"-->
<% SendHeader 1, 1 %>
<!--#include file="../lib/pageutil.inc"-->
<%
'<!--Microsoft Outlook Web Access-->
'<!--appts.asp : Frame that lists appointments for calendar folder-->
'<!--Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
On Error Resume Next
urlFull = Request.QueryString()
x = CheckSession3(bstrVirtRoot+"/calendar/main_fr.asp?"+urlFull,"parent",1)
Set objRenderer = GetCalendarRenderer
szView = Request.QueryString("view")
iCurrentView = objRenderer.CurrentView.Index
If szView <> Empty and szView <> "" Then
iView = CInt(szView)
If iView <> iCurrentView Then
objRenderer.CurrentView = iView
End If
End If
' Get the requested start date (defaults to today)
szYear = Request.QueryString("y")
szMonth = Request.QueryString("m")
szDay = Request.QueryString("d")
If szYear = "0" And szMonth = "0" And szDay = "0" Then
dt = Now()
Session(CURRENT_DATE) = dt
ElseIf szYear <> "" And szMonth <> "" And szDay <> "" Then
Err.Clear
dt = DateSerial(CInt(szYear), CInt(szMonth), CInt(szDay))
Session(CURRENT_DATE) = dt
Else
dt = Session(CURRENT_DATE)
End If
Set objView = objRenderer.CurrentView
objView.NumberOfUnits=1
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2//EN">
<HTML>
<HEAD>
</HEAD>
<BODY TEXT=000000 BGCOLOR=808080 LINK=000000 ALINK=000000 VLINK=000000 TOPMARGIN=3 LEFTMARGIN=2>
<%
Err.Clear
objView.RenderAppointments dt, Response
If Err.Number <> 0 Then
' Response.Write L_errRenderView_ErrorMessage
Response.Write L_errRenderView_ErrorMessage & err.Number & err.description
End If
%>
</BODY>
</HTML>
