<% ' ' ' On Error Resume Next bcTaskbar = "#c0c0c0" bcTitle = "#808080" bcTitleFnt = "#ffffff" L_Calendar_Text = "Calendar" urlFull = Request.QueryString() x = CheckSession3(bstrVirtRoot+"/calendar/main_fr.asp?"+urlFull,"parent",1) Set objRenderer = GetCalendarRenderer szObj = Request.QueryString("obj") 'This is our folder ID Err.Clear %> <% If Err.Number = 0 Then %>
Compose new appointment Compose new meeting request Compose new mail message Update page address Get help information on the current window
color="<%=bcTitleFnt%>"><%=L_Calendar_Text%>
color="<%=bcTitleFnt%>">Compose New
<% Else %> <% End If %>