Subversion Repositories DevTools

Rev

Rev 5512 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5354 dpurdie 1
<% if (not IsEmpty(Eval("objAccessControl"))) Then
2
    If (objAccessControl.UserLogedIn) Then %>
3
        <div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:2">
4
            <a href="_Logout.asp"><img src="images/i_logout.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%>" title="Logout from <%=objAccessControl.UserName%>"></a>
5
        </div>
6
    <%End If%>
7
<%End If%>
8
 
9
<%' Highlight Development Systems
10
If ( NOT IsEmpty(Application("TestBannerStyle"))) Then
5345 dpurdie 11
    Dim DevStyle, DevExtraText, DevTitle
12
    DevStyle = Application("TestBannerStyle")
13
    DevTitle = Application("TestBanner")
14
 
3943 dpurdie 15
    DevExtraText = ""
5345 dpurdie 16
    If ( NOT IsEmpty(Application("LiveSystem"))) Then
3943 dpurdie 17
        DevExtraText = " Live Database"
5345 dpurdie 18
    End If
19
%>
6658 dpurdie 20
<script language="JavaScript1.2">
21
    // ---- Popup menu definition ----
22
    var linkset=new Array()
23
    linkset[[0]]=''
24
    linkset[[0]]+='<div class="menuitems"><a href="Wikiasp/wiki.asp" target="_blank">Release&nbsp;Notes</a></div>'
25
    <%If (IsEmpty(Application("LiveSystem"))) Then%>
26
    linkset[[0]]+='<div class="menuitems"><a href="Wikiasp/wiki.asp?db=ImplementationNotes" target="_blank">Development&nbsp;Notes</a></div>'
27
    <%End If%>
28
    linkset[[0]]+='<div class="menuitems"><a href="_about.asp" target="_blank">About</a></div>'
29
 
30
    linkset[1] = ''
31
    linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=ACCESS_MANAGER_URL%>">Access&nbsp;Manager</a></div>'
32
    linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=DEPLOYMENT_MANAGER_URL%>">Deployment&nbsp;Manager</a></div>'
33
    //linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=PRODUCTION_MANAGER_URL%>">Production&nbsp;Manager</a></div>'
34
    linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=RELEASE_MANAGER_URL%>">Release&nbsp;Manager</a></div>'
35
 
36
    linkset[2]=''
37
    <%If Not objAccessControl.UserLogedIn Then%>
38
       linkset[2]+='<div class="menuitems"><a href="Login.asp">Login</a></div>'
39
       linkset[2]+='<div class="menuitemDisable">Logout</div>'
40
    <%Else%>
41
       linkset[2]+='<div class="menuitems"><a href="Login.asp">Login as ...</a></div>'
42
       linkset[2]+='<div class="menuitems"><a href="_Logout.asp">Logout</a></div>'
43
    <%End If%>
44
 
45
</script>
5345 dpurdie 46
<div id="Layer2" style="position:absolute; left:0; top:0; width:100%; z-index:1;font:16px tahoma,sans-serif;text-decoration:none;">
47
    <center style="<%=DevStyle%>;"><%=DevTitle%>:<%=request.servervariables("server_name")%> Database:<%=OraDatabase.DatabaseName%><%=DevExtraText%></center>
48
</div>
3943 dpurdie 49
<%End If%>
2 rsolanki 50
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
51
  <tr>
3943 dpurdie 52
    <td><table width="100%"  border="0" cellspacing="3" cellpadding="0">
2 rsolanki 53
      <tr>
3943 dpurdie 54
        <td><a href="Default.asp"><img src="images/i_access_manager_logo.gif" alt="Home" width="138" height="32" hspace="2" vspace="7" border="0"></a></td>
55
        <td align="right"><%=ProgressBar()%></td>
2 rsolanki 56
      </tr>
57
    </table></td>
58
  </tr>
59
  <tr>
60
    <td background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
61
  </tr>
3943 dpurdie 62
  <%If objAccessControl.UserLogedIn Then%>
2 rsolanki 63
  <tr>
3943 dpurdie 64
    <td class="mmenu_txt">
65
      <table width="100%"  border="0" cellspacing="3" cellpadding="0">
66
        <tr>
67
            <td align="left" nowrap class="mmenu_txt">
68
                Last visit <%=objAccessControl.LastVisit%>
69
            </td>
70
            <td align="right" nowrap class="mmenu_txt">
6658 dpurdie 71
                <a href="#" class="mmenu_link" onMouseover="showmenu(event,linkset[2])" onMouseout="delayhidemenu()">
3943 dpurdie 72
                    <img src="images/i_user.gif" alt="My Account" width="16" height="16" hspace="2" border="0" align="absmiddle">
73
                    <%=objAccessControl.FullName%>
74
                </a>
75
                &nbsp;&nbsp;|&nbsp;&nbsp;
6658 dpurdie 76
                <a class=mmenu_link href='' onMouseover="showmenu(event,linkset[1])" onMouseout="delayhidemenu()">Suite</a>
77
                &nbsp;&nbsp;|&nbsp;&nbsp;
78
                <a class=mmenu_link href='' onMouseover="showmenu(event,linkset[0])" onMouseout="delayhidemenu()">Help</a>
3943 dpurdie 79
                &nbsp;&nbsp;
80
            </td>
81
        </tr>
82
      </table>
83
    </td>
2 rsolanki 84
  </tr>
85
  <tr>
86
    <td background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
87
  </tr>
3943 dpurdie 88
  <%End If%>
2 rsolanki 89
</table>
90
<%
91
'------------ RUN AFTER CONTROL RENDER --------
92
'----------------------------------------------
93
%>