<% ' ' ' On Error Resume Next L_OutlookBar_FRAME_Width_Number = 75 'changes width of the Outlook Menu Bar urlString = Request.QueryString() if urlString <> "" then urlString="?"+urlString CheckSession2 bstrVirtRoot + "/root.asp" + urlString urlAcs = Request.QueryString("acs") 'acs=anon for anon login's urlObj = Request.QueryString("obj") 'This is what we want to pass to the child frames urlStore = Request.QueryString("store") If urlAcs<>"anon" And Not Session(bstrAuthenticated) Then urlAcs = "anon" 'prevents anon users from manually removing acs=anon from url End If bstrNavbarFile = bstrVirtRoot + "/Navbar/nbInbox.asp" 'gotta figger out what store if not told if urlAcs="anon" Then iStore=1 'no private store or cal for anon users bstrNavbarFile = bstrVirtRoot + "/Navbar/nbAnon.asp" ElseIf urlStore = "" Then 'no store on url If urlObj="" Then 'no folder on url (first logon) iStore = 0 'default to private store inbox folder Else 'authenticated with folderID only (need to open the folder and get the store) OpenAllStores PubStoreID=Session(bstrPublicStoreID) Set objFolder = objOMSession.GetFolder(urlObj,PubStoreID) If objFolder Is Nothing Then iStore=0 ElseIf IsEmpty(objFolder.ID) Then iStore=0 Else iStore=1 End If End If Else iStore=cint(urlStore) 'authenticated 0,1 or 2=calendar End If bstrDefaultCalendarFolderID=objOMSession.GetDefaultFolder(0).ID %> <%If iStore=2 Then 'render calendar view%> <%Else%> <%End If%> Microsoft Outlook Web Access must be viewed on a browser that supports frames. <br> To obtain such a browser, please click <a href="http://www.microsoft.com/ie/download/" target="_blank">here</a> to download the Microsoft <a href="http://www.microsoft.com/ie/download" target="_blank"><b>Internet Explorer</a>.</b> </p>