<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<!--#include file="../constant.inc"-->
<!--#include file="../lib/session.inc"-->
<% SendHeader 0, 1 %>
<!--#include file="../lib/getrend.inc"-->
<!--#include file="../lib/pageutil.inc"-->
<!--#include file="../lib/jsutil.inc"-->
<%
'<!--Microsoft Outlook Web Access-->
'<!--Title.asp : Calendar Title frame with title and task bar-->
'<!--Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
On Error Resume Next
bcTaskbar = "#c0c0c0"
bcTitle = "#808080"
bcTitleFnt = "#ffffff"
L_Calendar_Text = "Calendar"
urlFull = Request.QueryString()
urlView = Request.QueryString("view") '$ This is the current view; we need to communicate
'$ this down if specified. The default is 1,
If urlView ="" then '$ so if the view=1 is missing, set the variable
urlView = 1 '$ to 1 anyway
End if
x = CheckSession3(bstrVirtRoot+"/calendar/main_fr.asp?"+urlFull,"parent",1)
Set objRenderer = GetCalendarRenderer
szObj = Request.QueryString("obj") 'This is our folder ID
Err.Clear
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<STYLE TYPE="text/css">
<!--
.link {color: ffffff}
-->
</STYLE>
</HEAD>
<BODY bgcolor="<%=bcTitle%>" text="<%=bcTitleFnt%>" link="<%=bcTitleFnt%>" vlink="<%=bcTitleFnt%>" alink="<%=bcTitleFnt%>">
<% If Err.Number = 0 Then %>
<FORM name=gotoForm method=post action="" onSubmit="parent.updatePage(<%=cPages%>);return(false)"> <!-- We never really send a form -->
<TABLE bgcolor="<%=bcTaskbar%>" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=100% NOWRAP>
<!-- Task Bar -->
<tr>
<td align="left" height=29 valign="middle">
<img src="<%=bstrVirtRoot%>/images/divider.gif" width=4 height=24 align="middle" hspace=2>
<!--Mail message=2, Appointment=1, Meeting Request=0, Check for New Mail, move copy, delete marked//-->
<a href="javascript:parent.composeNew(0);"><img src="<%=bstrVirtRoot%>/images/newappt.gif" align="middle" width=16 height=16 alt="Compose new appointment" border=0 hspace=4></a>
<a href="javascript:parent.composeNew(1);"><img src="<%=bstrVirtRoot%>/images/newmtg.gif" align="middle" width=16 height=16 alt="Compose new meeting request" border=0 hspace=4></a>
<a href="JavaScript:parent.composeNew(2);"><img src="<%=bstrVirtRoot%>/images/newmail.gif" align="middle" width=16 height=17 alt="Compose new mail message" border=0 hspace=4></a>
<img src="<%=bstrVirtRoot%>/images/divider.gif" width=4 height=24 align="middle" hspace=2>
<A HREF="Javascript:parent.MarkPage();"><IMG SRC="<%=bstrVirtRoot%>/images/mffav.gif" alt="Update page address" width=20 height=20 align="middle" border=0 hspace=2></a>
<font color="<%=bcTaskFnt%>">
<SELECT Name="viewSelect" onChange='parent.updateCalView(selectedIndex+1)'>
<OPTION <% if urlView=1 then %> SELECTED <%end if%>>Daily
<OPTION <% if urlView=2 then %> SELECTED <%end if%>>Weekly
</SELECT>
</font>
<img src="<%=bstrVirtRoot%>/images/divider.gif" width=4 height=24 align="middle" hspace=2>
<a href="JavaScript:parent.openNewWindow('<%=bstrVirtRoot%>/help/calover.htm','inlineHelpWindow',600,500)">
<IMG SRC="../images/help.gif" alt="Get help information on the current window" border=0 height=20 width=20 hspace=2 align="middle"></a>
</td></tr>
</TABLE>
<TABLE bgcolor="<%=bcTitle%>" BORDER=0 CELLSPACING=0 CELLPADDING=2 WIDTH=100% NOWRAP>
<tr>
<TD width=60% ALIGN=LEFT height=10 nowrap>
<font size=5 <%=bstrFace%> color="<%=bcTitleFnt%>"><b><%=L_Calendar_Text%></b></font>
</td>
<td width=25% align=right nowrap>
<A HREF="JavaScript:parent.composeNew(parent.iCurCompose)"><div class=link align=right>
<font size=2 <%=bstrFace%> color="<%=bcTitleFnt%>">Compose New</font></div></a>
</td>
<td align=left nowrap>
<SELECT Name="composeSelect" onChange='parent.iCurCompose=selectedIndex'>
<OPTION selected>Appointment
<OPTION>Meeting Request
<OPTION>Mail Message
<OPTION>Contact
<OPTION>Custom Form
</SELECT>
<br>
</td>
</tr>
</table>
</FORM>
<% Else %>
<% End If %>
</BODY>
</HTML>
