<% @ 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-->
'<!--eventgs.asp : Frame that lists events 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
urlCaller = Request.QueryString("caller")
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>
<SCRIPT LANGUAGE="Javascript">
parent.currentMonth="<%=szMonth%>"
parent.currentYear="<%=szYear%>"
parent.currentDay="<%=szDay%>"
parent.parent.iCalView = <%=iView%>
<% if urlCaller="" Then%>
parent.title_fr.document.gotoForm.viewSelect.selectedIndex=<%=iView-1%>;
<% End If %>
<% If szYear <> "" And szMonth <> "" And szDay <> "" Then %>
parent.msg_fr.location = "appts.asp?M=<% =szMonth %>&D=<% =szDay %>&Y=<% =szYear %>&view=<%=szView%>#start";
<% End If %>
</SCRIPT>
</HEAD>
<BODY TEXT=000000 BGCOLOR=C0C0C0 LINK=000000 ALINK=000000 VLINK=000000 TOPMARGIN=0 LEFTMARGIN=2>
<%
objView.RenderEvents 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>
