<% @ 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-->
'<!--PeerFldr.asp : Frame that lists current folder and its children-->
'<!--Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
On Error Resume Next
urlStore=Request.QueryString("store")
If Not CheckSession3("1","newwindow",urlStore) Then
fTimedOut = true
Else
fTimedOut = false
If Not Session(bstrAuthenticated) Then
urlStore="1"
ElseIf urlStore="" then
urlStore="0"
End If
'not using any url's...relying on session vars from initpage having been set
Set objFolder = Session(CURRENT_FOLDER)
If Request.QueryString("timedout")="-1" Then 'reset full heirarchy
Set objTemp = GetPublicHierarchyRenderer(true)
If Session(bstrAuthenticated) Then
Set objTemp = GetPrivateHierarchyRenderer(true)
End If
End If
if urlStore="1" Then
Set objRenderer = GetPublicHierarchyRenderer(fNew)
else
Set objRenderer = GetPrivateHierarchyRenderer(fNew)
End If
If Err.Number <> 0 Then
ReportError1 L_errRenderer_ErrorMessage
End If
'Need this to test for a calendar folder
bstrFolderType=objFolder.Fields.Item(ActMsgPR_CONTAINER_CLASS).Value
If Session(CURRENT_PAGE)>Session(CURRENT_PAGES) Then
Session(CURRENT_PAGE)=Session(CURRENT_PAGES)
End If
L_NoPublishedFolders_ErrorMessage = "There are no published folders."
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%>/contacts/commands.asp?command=newfolder&obj="+parent.szCurFolderID+"&store="+parent.iCurStore;
}
</Script>
<body>
<form>
Session timed out. <br>
Press <input type=button value="Refresh" onClick="refreshMe()"> after logging back on.
</form>
</body>
</html>
<% Else %>
<% If fNewFolder<>0 Then
If fNewFolder=MAPI_E_COLLISION Then %>
alert("<%=L_errFailCreateFolder_ErrorMessage%>\n<%=L_errCopyFolderExists_ErrorMessage%>");
<% Else %>
alert("<%=L_errFailCreateFolder_ErrorMessage%>");
<% End If %>
<% End If %>
function RedirectToRoot() {
parent.peer_fr.location = "../contacts/peerfldr.asp";
}
</SCRIPT>
</HEAD>
<BODY bgcolor=FFFFFF text=000000 link=000000 vlink=000000 alink=000000 leftmargin=1 topmargin=0 <% If fDeleted = True Then %>onLoad="RedirectToRoot()"<% End If %>>
<SCRIPT language="javascript">
<%if fDeleted Then%>
RedirectToRoot();
<%Else%>
</script>
<% err.clear
objRenderer.Render AMHTML_FolderHierarchy, 0, 0, Response%>
<SCRIPT language="javascript">
<%If Err.Number <> 0 Then%>
<% If Session(bstrAuthenticated) Then %>
alert("<%=L_errRenderFolder_ErrorMessage%>\n<%=L_errFolderDeleted_ErrorMessage%>");
<% Else %>
alert("<%=L_errRenderFolder_ErrorMessage%>\n<%=L_NoPublishedFolders_ErrorMessage%>");
<% End If %>
<%End If%>
<%End If%>
</script>
<BR><BR>
</BODY>
</HTML>
<% End If 'fTimedOut %>
