<% @ 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 : contacts Title frame with title and task bar-->
'<!--Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
On Error Goto 0 ' Resume Next
bcTaskbar = "#c0c0c0"
bcTitle = "#808080"
bcTitleFnt = "#ffffff"
bcTaskFnt = "#000000"
urlAcs = Request.QueryString("acs")
urlViewName = Request.QueryString("viewname")
urlComposeSelect = Request.QueryString("compidx")
urlStore = Request.QueryString("store")
If Not CheckSession3("1","newwindow",urlStore) Then
fTimedOut = true
Else
fTimedOut = false
dim selCompose(5)
if 0 = len(urlComposeSelect) then
urlComposeSelect = "3"
end if
if urlStore="" Then urlStore = urlComposeSelect
If Not Session(bstrAuthenticated) Then urlStore="1"
selCompose(cint(urlComposeSelect))="Selected"
if urlAcs="anon" Then fIsAnon=true Else fIsAnon=false
'if a view name is passed in we make that the current view
if urlViewName<>"" Then fIsViewName=true
Set objViewRenderer = GetObjectRenderer
Set objRenderer = GetMessagesRenderer(fNew)
CheckPage objRenderer
If Err.Number <> 0 and err.number <> 424 Then
ReportError1 L_errPage_ErrorMessage
Else
Set objFolder = Session(CURRENT_FOLDER)
cMessages = Session(CURRENT_COUNT)
cPages = Session(CURRENT_PAGES)
iCurrentView = Session(CURRENT_VIEW)
iPage = Session(CURRENT_PAGE)
if urlStore="1" Then
Set objStore = Session(bstrObjPublicStore)
else
Set objStore = Session(bstrObjPrivateStore)
End If
bstrPrivateRootID = objStore.Fields.Item(ActMsgPR_IPM_SUBTREE_ENTRYID).Value
szObj = objFolder.ID
End If
bstrFolderName = objRenderer.RenderProperty(ActMsgPR_DISPLAY_NAME)
If szObj=objStore.Fields.Item(ActMsgPR_IPM_SUBTREE_ENTRYID).Value Then
bstrFolderName=L_Mailbox_Text
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<SCRIPT LANGUAGE="Javascript">
<% If fTimedOut Then %>
function refreshMe() {
parent.command_fr.location="<%=bstrVirtRoot%>/contacts/commands.asp?command=newfolder&obj="+parent.szCurFolderID+"&store="+parent.iCurStore;
}
</Script>
<body>
<form>
Session timed out. Press <input type=button value="Refresh" onClick="refreshMe()"> after logging back on.
</form>
</body>
</html>
<% Else %>
parent.currentPage = eval(<%=iPage%>);
</SCRIPT>
<STYLE TYPE="text/css">
<!--
.link {color: ffffff}
-->
</STYLE>
</HEAD>
<BODY bgcolor="<%=bcTitle%>" text="<%=bcTitleFnt%>" link="<%=bcTaskFnt%>" vlink="<%=bcTaskFnt%>" alink="<%=bcTaskFnt%>">
<FORM name=gotoForm method=post action="" onSubmit="parent.updatePage(<%=cPages%>);return(false)"> <!-- We never really send a form -->
<!-- TOOL BAR -->
<TABLE BORDER=0 bgcolor="<%=bcTaskbar%>" width="100%" CELLSPACING=0 CELLPADDING=0 NOWRAP>
<tr>
<td height=29 align="left" NOWRAP>
<IMG SRC="../images/divider.gif" hspace=2 align="middle" width=4 height=24 >
<!--new mail, new post, check for new mail, delete marked contactss//-->
<a href="javascript:parent.composeNew(4)"><img src="../images/newcont.gif" align="middle" width=16 height=12 alt="Compose new contact" border=0 hspace=2></a>
<A HREF="JavaScript:parent.CheckNewMail()"><IMG SRC="../images/refresh.gif" align="middle" alt="Check for new items" border=0 hspace=2 width=21 height=18></a>
<a href="Javascript:parent.msg_fr.document.deleteform.submit();"><IMG SRC="../images/delmsg.gif" align="middle" alt="Delete marked items" border=0 width=20 height=20 hspace=2 ></a>
<IMG SRC="../images/divider.gif" hspace=2 align="middle" width=4 height=24 >
<!--New Folder, Delete Folder, Empty Deleted Items Folder
<a href="JavaScript:parent.CreateNewFolder()"><IMG SRC="../images/newfoldr.gif" alt="Create a new folder" align="middle" width=20 height=20 border=0 hspace=2></a>
<a href="JavaScript:parent.DeleteCurFolder()"><IMG SRC="../images/delfoldr.gif" align="middle" alt="Delete the current folder" border=0 width=16 height=16 hspace=2></a>
<a href="javascript:parent.DeleteAllMessages()"><img src="<%=bstrVirtRoot%>/images/empfldr.gif" width=20 height=20 align="middle" border=0 hspace=2 alt="<%=L_EmptyDelItms_ToolTip%>"></a>
<IMG SRC="../images/divider.gif" hspace=2 align="middle" width=4 height=24 >
-->
<!--Update page, view drop down, page view//-->
<A HREF="Javascript:parent.MarkPage();"><IMG SRC="../images/mffav.gif" alt="Update page address" align="middle" border=0 hspace=2 width=20 height=20></a>
<FONT COLOR="<%=bcTaskFnt%>">
<SELECT Name="viewSelect" onChange="parent.UpdateView(selectedIndex+1)">
<%
'if a view name is passed in we make that the current view
if fIsViewName then objRenderer.currentView = urlViewName
Set objViews = objRenderer.Views
If Err.Number <> 0 Then
ReportError1 L_errFailGetViews_ErrorMessage
Else
For iView = 1 To objViews.Count
Err.Clear
Set objView = objViews.Item(iView)
If Not objView Is Nothing Then
%><OPTION <%If objView.IsSameAs(objRenderer.CurrentView) Then%> SELECTED <%end if%>><%objViewRenderer.Write objView.Name, Response
End If
Next
End If
%>
</SELECT>
</FONT>
<a href="JavaScript:parent.clickPrev()"><IMG SRC="../images/arwtanlf.gif" HEIGHT=20 WIDTH=20 alt="Go to the previous page of items" border=0 align="texttop"></a>
<a href="JavaScript:parent.updatePage(<%=cPages%>)"><FONT <%=bstrFace%> SIZE=2 color="<%=bcTaskFnt%>"><b>Page</b></FONT></a>
<INPUT TYPE="text" size=5 MAXLENGTH=5 VALUE="<%=iPage%>" NAME="Page">
<FONT color="<%=bcTaskFnt%>" size=-1>of <b><%=cPages%></b></FONT>
<a href="JavaScript:parent.clickNext(<%=cPages%>)"><IMG SRC="../images/arwtanrt.gif" HEIGHT=20 WIDTH=20 alt="Go to the next page of items" border=0 align="texttop"></a>
<IMG SRC="../images/divider.gif" hspace=2 align="middle" width=4 height=24>
<!--help//-->
<a href="JavaScript:parent.openNewWindow('../help/conover.htm','inlineHelpWindow',600,500)">
<IMG SRC="../images/help.gif" alt="Get help information on the current window" align="middle" border=0 width=20 height=20></a>
</td>
</tr>
</TABLE>
<TABLE bgcolor="<%=bcTitle%>" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=100% NOWRAP>
<tr>
<td width=2><font color="<%=bcTitle%>">.</font></td>
<TD width=70% height=10 nowrap>
<font size=5 <%=bstrFace%> color="<%=bcTitleFnt%>"><b><%=bstrFolderName%></b></font>
</td>
<td width=25% align=right nowrap>
<A HREF="JavaScript:parent.composeNew(document.gotoForm.composeSelect.options[document.gotoForm.composeSelect.selectedIndex].value)">
<div class=link align=right>
<font size=2 <%=bstrFace%> color="<%=bcTitleFnt%>">Compose New</font></div></a>
</td><td width=4><font color="<%=bcTitle%>">.</font></td>
<td align=left nowrap>
<SELECT Name="composeSelect" onChange='parent.iCurCompose=selectedIndex'>
<option value=4>Contact
<OPTION value=0>Mail Message
<option value=2>Meeting Request
<option value=3>Appointment
<option value=5>Custom Form
</SELECT>
</td><td width=4><font color="<%=bcTitle%>">.</font></td>
</tr>
</table>
</FORM>
<SCRIPT LANGUAGE="Javascript">
self.document.gotoForm.composeSelect.selectedIndex = parent.iCurCompose;
</SCRIPT>
</BODY>
</HTML>
<% End If 'fTimedOut %>
