<% @ 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"-->
<%
'<!--Microsoft Outlook Web Access-->
'<!--Title.asp : Public Folder 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"
If Not CheckSession3("1","newwindow",urlStore) Then
fTimedOut = true
Else
fTimedOut = false
fErr424=false
Set objViewRenderer = GetObjectRenderer
Set objRenderer = GetMessagesRenderer(fNew)
CheckPage objRenderer
If Err.Number <> 0 and err.number <> 424 Then
ReportError1 L_errPage_ErrorMessage + " " + err.Number
szObj = request.QueryString("obj")
Else
fErr424=true
Set objFolder = Session(CURRENT_FOLDER)
cMessages = Session(CURRENT_COUNT)
cPages = Session(CURRENT_PAGES)
iCurrentView = Session(CURRENT_VIEW)
iPage = Session(CURRENT_PAGE)
End If
End If 'fTimedOut
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<SCRIPT LANGUAGE="Javascript">
<% If fTimedOut Then %>
function refreshMe() {
parent.command_fr.location="<%=bstrVirtRoot%>/inbox/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 %>
</SCRIPT>
<STYLE TYPE="text/css">
<!--
.link {color: ffffff}
-->
</STYLE>
</HEAD>
<BODY bgcolor="<%=bcTitle%>" text="#ffffff" link="#000000" vlink="#000000" alink="#000000">
<FORM name=gotoForm method=post action="" onSubmit="parent.updatePage(<%=cPages%>);return(false)"> <!-- We never really send a form -->
<!-- Task Bar -->
<TABLE bgcolor="<%=bcTaskbar%>" BORDER=0 CELLSPACING=0 CELLPADDING=2 WIDTH=100% NOWRAP>
<tr valign=middle>
<td align="left" valign="bottom">
<img src="../images/divider.gif" width=4 height=24 align="middle" hspace=2>
<%
If Not objFolder Is Nothing Then
%>
<a href="javascript:parent.composeNew(1)"><img src="../images/newpost.gif" align="middle" width=19 height=17 alt="Compose new post message" border=0 hspace=2></a>
<img src="../images/divider.gif" hspace=2 width=4 height=24 align="middle">
<A HREF='JavaScript:parent.CheckNewMail()'><IMG SRC="../images/refresh.gif" width=21 height=18 alt="Check for new posts" border=0 hspace=2 align="middle"></a>
<A HREF='Javascript:parent.MarkPage();'><IMG SRC="../images/mffav.gif" alt="Update page address" width=20 height=20 border=0 hspace=2 align="middle"></a>
<img src="../images/divider.gif" hspace=2 align="middle" width=4 height=24>
<font color=black>
<SELECT Name="viewSelect" onChange='parent.UpdateView(selectedIndex+1)'>
<%
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>
<img src="../images/divider.gif" hspace=2 align="middle" width=4 height=24>
<a href='JavaScript:parent.clickPrev()'><IMG SRC="../images/arwtanlf.gif" align="middle" alt="Go to the previous page of messages" border=0 height=20 width=20></a>
<a href='JavaScript:parent.updatePage(<%=cPages%>)'><FONT <%=bstrFace%> SIZE=2 color="#000000"><b>Page</b></FONT></a>
<INPUT TYPE=TEXT size=2 MAXLENGTH=5 VALUE=<%=iPage%> NAME="Page">
<FONT color="#000000" <%=bstrFace%> size=-1>of <b><%=cPages%></b></FONT>
<a href='JavaScript:parent.clickNext(<%=cPages%>)'><IMG SRC="../images/arwtanrt.gif" align="middle" alt="Go to the next page of messages" border=0 height=20 width=20></a>
<img src="../images/divider.gif" hspace=2 align="middle" width=4 height=24>
<%
End If 'objFolder <> Nothing
%>
<a href="JavaScript:parent.openNewWindow('../help/publica.htm','inlineHelpWindow',600,500)"><IMG SRC="../images/help.gif" alt="Get help information on the current window" border=0 align="middle" width=20 height=20></a>
<!--end//-->
</td>
</tr>
</TABLE>
<TABLE bgcolor="<%=bcTitle%>" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=100%>
<tr>
<td width=2><font color="<%=bcTitle%>">.</font></td>
<TD width=100% ALIGN=LEFT height=10 nowrap>
<font size=6 <%=bstrFace%> color="<%=bcTitleFnt%>"><b>Public Folders</b></font>
</td>
<% If Not objFolder Is Nothing Then %>
<td rowspan=2 align=right valign=middle 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=1>Post to this Folder
<option value=5>Custom Form
</SELECT>
<% End If %>
</td>
</tr>
</table>
</FORM>
</BODY>
</HTML>
<% End If 'fTimedOut %>
