home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / CHIPCD_3_98.iso / software / testsoft / exchange / webdata / usa / root.asp < prev    next >
Text File  |  1997-08-25  |  5KB  |  142 lines
  1. <!--#include file="constant.inc"-->
  2. <!--#include file="lib/session.inc"-->
  3. <!--#include file="lib/getrend.inc"-->
  4. <!--#include file="lib/pageutil.inc"-->
  5. <%
  6. '<!-- Microsoft Outlook Web Access-->
  7. '<!-- Root.asp : Frameset for the Inbox window -->
  8. '<!-- Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
  9.  
  10. On Error Resume Next
  11.  
  12. L_OutlookBar_FRAME_Width_Number = 75 'changes width of the Outlook Menu Bar
  13.  
  14. urlString = Request.QueryString()
  15. if urlString <> "" then urlString="?"+urlString
  16. CheckSession2 bstrVirtRoot + "/root.asp" + urlString
  17.  
  18. urlAcs   = Request.QueryString("acs") 'acs=anon for anon login's
  19. urlObj   = Request.QueryString("obj") 'This is what we want to pass to the child frames
  20. urlStore = Request.QueryString("store") 
  21.  
  22. If urlAcs<>"anon" And Not Session(bstrAuthenticated) Then
  23.     urlAcs = "anon" 'prevents anon users from manually removing acs=anon from url
  24. End If
  25.  
  26. bstrNavbarFile = bstrVirtRoot + "/Navbar/nbInbox.asp"
  27.  
  28. 'gotta figger out what store if not told
  29. if urlAcs="anon" Then 
  30.     iStore=1 'no private store or cal for anon users
  31.     bstrNavbarFile = bstrVirtRoot + "/Navbar/nbAnon.asp"
  32. ElseIf urlStore = "" Then 'no store on url
  33.     If urlObj="" Then 'no folder on url (first logon)
  34.         iStore = 0 'default to private store inbox folder
  35.     Else 'authenticated with folderID only (need to open the folder and get the store)
  36.         OpenAllStores
  37.         PubStoreID=Session(bstrPublicStoreID)
  38.         Set objFolder = objOMSession.GetFolder(urlObj,PubStoreID)
  39.         If objFolder Is Nothing Then
  40.             iStore=0
  41.         ElseIf IsEmpty(objFolder.ID) Then
  42.             iStore=0
  43.         Else
  44.             iStore=1
  45.         End If
  46.     End If
  47. Else
  48.     iStore=cint(urlStore) 'authenticated 0,1 or 2=calendar
  49. End If
  50.  
  51. bstrDefaultCalendarFolderID=objOMSession.GetDefaultFolder(0).ID
  52.  
  53. %>
  54. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2//EN">
  55. <HTML>
  56. <HEAD>
  57. <SCRIPT LANGUAGE="Javascript">
  58.  
  59. var hold_szCurPubFID="";
  60. var hold_szCurPvtFID="";
  61. var fInCalendar = true;
  62.  
  63. var szCurFolderID="";
  64. var szCurYr = "";
  65. var szCurMo = "";
  66. var szCurDa = "";
  67.  
  68.  
  69. function composePick(iSelIdx) {
  70.     iCurCompose=iSelIdx;
  71. }
  72.  
  73. function RefreshNavbar(iStore) {
  74.     MF = self.main_fr;
  75.     if (iStore!=MF.iCurStore) { //if coming from somewhere else
  76.         MF.iCurCompose=0; //reset
  77.  
  78.         if (iStore==2) {            //GOING TO CALENDAR VIEWS
  79.             fInCalendar = true;
  80.             hold_szCurPubFID = MF.szCurPubFID;
  81.             hold_szCurPvtFID = MF.szCurPvtFID;
  82.             MF.iCurStore=iStore;
  83.             MF.location="<%=bstrVirtRoot%>/calendar/main_fr.asp?obj=<%=bstrDefaultCalendarFolderID%>";
  84.         }
  85.         else if (fInCalendar==true) { //LEAVING CALENDAR VIEWS
  86.             fInCalendar = false;
  87.             MF.iCurStore=iStore;
  88.             if (iStore==0) {     //CAL TO PRI STORE
  89.                 MF.location="<%=bstrVirtRoot%>/inbox/main_fr.asp?store=0&obj="+hold_szCurPvtFID;
  90.             }
  91.             else {           //CAL TO PUB STORE
  92.                 MF.location="<%=bstrVirtRoot%>/inbox/main_fr.asp?store=1&obj="+hold_szCurPubFID;
  93.             }
  94.         }
  95.         else if (iStore==0) {   //PUB TO PRIVATE STORE 
  96.             MF.iCurStore=iStore;
  97.             MF.command_fr.location="<%=bstrVirtRoot%>/inbox/commands.asp?store=0&command=newfolder&obj="+ MF.szCurPvtFID;
  98.         }
  99.         else {                  //PRI TO PUB STORE
  100.             MF.iCurStore=iStore;
  101.             MF.command_fr.location="<%=bstrVirtRoot%>/inbox/commands.asp?store=1&command=newfolder&obj="+ MF.szCurPubFID;
  102.         }
  103.     }
  104.     //repeat click - refresh to top
  105.     else {
  106.         if (iStore!=2)     // GOTO TOP OF CURRENT STORE 
  107.             MF.command_fr.location="<%=bstrVirtRoot%>/inbox/commands.asp?store="+iStore+"&command=newfolder";
  108.         else               // REFRESH CAL    
  109.             self.main_fr.location="<%=bstrVirtRoot%>/calendar/main_fr.asp?obj=<%=bstrDefaultCalendarFolderID%>";
  110.  
  111.     }
  112.                 
  113. }
  114.  
  115. var fRedirect = 0;
  116. function SetRedirectFlag(bFlag) {
  117.     fRedirect=bFlag;
  118. }
  119.  
  120. </SCRIPT>
  121. <TITLE><%=L_MSOutlookWebAccess_StaticText%></TITLE>
  122. </HEAD>
  123.  
  124. <FRAMESET COLS="<%=L_OutlookBar_FRAME_Width_Number%>,*" frameborder=1 border=5> 
  125.    <FRAME SRC="<%=bstrNavbarFile%>" name="navbar_fr" marginheight=0 marginwidth=0 scrolling=auto>
  126. <%If iStore=2 Then 'render calendar view%>
  127.    <FRAME SRC="<%=bstrVirtRoot%>/calendar/main_fr.asp?obj=<%=bstrDefaultCalendarFolderID%>" name="main_fr" marginheight=0 marginwidth=0>
  128. <%Else%>
  129.    <FRAME SRC="<%=bstrVirtRoot%>/inbox/main_fr.asp?store=<%=iStore%>&obj=<%=urlObj%>&acs=<%=urlAcs%>" name="main_fr" marginheight=0 marginwidth=0>
  130. <%End If%>
  131.  
  132. </FRAMESET>
  133. <body text=000000>
  134. <NOFRAMES>
  135. Microsoft Outlook Web Access must be viewed on a browser that supports frames. <br>
  136. To obtain such a browser, please click <a href="http://www.microsoft.com/ie/download/" target="_blank">here</a> to 
  137. download the Microsoft <a href="http://www.microsoft.com/ie/download" target="_blank"><b>Internet Explorer</a>.</b>  </p>
  138. </NOFRAMES>
  139. </body>
  140.  
  141. </HTML>
  142.