Subversion Repositories DevTools

Rev

Rev 3940 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3940 Rev 3941
Line 17... Line 17...
17 
    If OraDatabase.DatabaseName = "RELEASEM" Then
 17 
    If OraDatabase.DatabaseName = "RELEASEM" Then
18 
        DevStyle = "background-color:red;"
 18 
        DevStyle = "background-color:red;"
19 
        DevExtraText = " Live Database"
 19 
        DevExtraText = " Live Database"
20 
    Else
 20 
    Else
21 
        DevStyle = "background-color:#66CC00;"
 21 
        DevStyle = "background-color:#66CC00;"
22 
    End If
 22 
    End If%>
23 
 
 23 
 
24 
    If (NOT objAccessControl.UserLogedIn) Then %>
 - 
 
25 
        <div id="Layer2" style="position:absolute; left:0; top:0; width:100%; z-index:1;font-family: tahoma,sans-serif;">
 24 
    <div id="Layer2" style="position:absolute; left:0; top:0; width:100%; z-index:1;font-family: tahoma,sans-serif;">
26 
            <center style="<%=DevStyle%>;">
 - 
 
27 
                Development WebServer:<%=request.servervariables("server_name")%>
 - 
 
28 
                Database:<%=OraDatabase.DatabaseName%><%=DevExtraText%>
 - 
 
29 
            </center>
 - 
 
30 
        </div>
 - 
 
31 
    <%End If
 - 
 
32 
End If
 - 
 
33 
'----------------------------------------------
 - 
 
34 
%>
 - 
 
35 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 - 
 
36 
  <%If objAccessControl.UserLogedIn Then%>
 - 
 
37 
  <tr>
 - 
 
38 
    <td class="mmenu_txt"><table width="100%"  border="0" cellspacing="3" cellpadding="0">
 - 
 
39 
      <tr>
 - 
 
40 
        <td nowrap class="mmenu_txt">&nbsp;&nbsp;<a href="_Logout.asp" class="mmenu_link">Log Out</a>
 - 
 
41 
        &nbsp;&nbsp;|&nbsp;&nbsp;<a href="#" class="mmenu_link">Find</a>
 - 
 
42 
        &nbsp;&nbsp;|&nbsp;&nbsp;<a href="#" class="mmenu_link">Help</a></td>
 - 
 
43 
        <td width='85%'>
 - 
 
44 
        <%' Highlight Development System: Green for Development, Red for Live Database
 - 
 
45 
        If (IsEmpty(Application("LiveSystem"))) Then %>
 - 
 
46 
        <center style="<%=DevStyle%>;">
 25 
        <center style="<%=DevStyle%>;">
47 
            Development WebServer:<%=request.servervariables("server_name")%>
 26 
            Development WebServer:<%=request.servervariables("server_name")%>
48 
            Database:<%=OraDatabase.DatabaseName%><%=DevExtraText%>
 27 
            Database:<%=OraDatabase.DatabaseName%><%=DevExtraText%>
49 
        </center>
 28 
        </center>
50 
        <%End If%>
 - 
 
51 
        </td>
 - 
 
52 
        <td align="right" nowrap class="mmenu_txt">
 - 
 
53 
            <a href="#" class="mmenu_link">
 - 
 
54 
                <img src="images/i_user.gif" alt="My Account" width="16" height="16" hspace="2" border="0" align="absmiddle">
 - 
 
55 
                    <%=objAccessControl.FullName%></a>
 - 
 
56 
                &nbsp;&nbsp;|&nbsp;&nbsp;Last visit <%=objAccessControl.LastVisit%>
 - 
 
57 
        </td>
 - 
 
58 
      </tr>
 - 
 
59 
    </table></td>
 - 
 
60 
  </tr>
 - 
 
61 
  <tr>
 - 
 
62 
    <td background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 - 
 
63 
    </td>
 29 
    </div>
64 
  </tr>
 - 
 
65 
  <%End If%>
 30 
<%End If%>
- 
 
 31 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
66 
  <tr>
 32 
  <tr>
67 
    <td><table width="100%"  border="0" cellspacing="3" cellpadding="0">
 33 
    <td><table width="100%"  border="0" cellspacing="3" cellpadding="0">
68 
      <tr>
 34 
      <tr>
69 
        <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>
 35 
        <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>
70 
        <td align="right"><%=ProgressBar()%></td>
 36 
        <td align="right"><%=ProgressBar()%></td>
Line 72... Line 38...
72 
    </table></td>
 38 
    </table></td>
73 
  </tr>
 39 
  </tr>
74 
  <tr>
 40 
  <tr>
75 
    <td background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 41 
    <td background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
76 
  </tr>
 42 
  </tr>
- 
 
 43 
  <%If objAccessControl.UserLogedIn Then%>
- 
 
 44 
  <tr>
- 
 
 45 
    <td class="mmenu_txt">
- 
 
 46 
      <table width="100%"  border="0" cellspacing="3" cellpadding="0">
- 
 
 47 
        <tr>
- 
 
 48 
            <td align="left" nowrap class="mmenu_txt">
- 
 
 49 
                Last visit <%=objAccessControl.LastVisit%>
- 
 
 50 
            </td>
- 
 
 51 
            <td align="right" nowrap class="mmenu_txt">
- 
 
 52 
                <a href="#" class="mmenu_link">
- 
 
 53 
                    <img src="images/i_user.gif" alt="My Account" width="16" height="16" hspace="2" border="0" align="absmiddle">
- 
 
 54 
                    <%=objAccessControl.FullName%>
- 
 
 55 
                </a>
- 
 
 56 
                &nbsp;&nbsp;|&nbsp;&nbsp;
- 
 
 57 
                <a href="_Logout.asp" class="mmenu_link">Log Out</a>
- 
 
 58 
                &nbsp;&nbsp;|&nbsp;&nbsp;<a href="_about.asp" class="mmenu_link">About</a>
- 
 
 59 
                &nbsp;&nbsp;
- 
 
 60 
            </td>
- 
 
 61 
        </tr>
- 
 
 62 
      </table>
- 
 
 63 
    </td>
- 
 
 64 
  </tr>
- 
 
 65 
  <tr>
- 
 
 66 
    <td background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 67 
  </tr>
- 
 
 68 
  <%End If%>
77 
</table>
 69 
</table>
78 
<%
 70 
<%
79 
'------------ RUN AFTER CONTROL RENDER --------
 71 
'------------ RUN AFTER CONTROL RENDER --------
80 
'----------------------------------------------
 72 
'----------------------------------------------
81 
%>
 73 
%>
82 

            74