Subversion Repositories DevTools

Rev

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

Rev 2 Rev 3943
Line 1... Line 1...
1 
<%
 1 
<%
2 
'===================================================================
 2 
'===================================================================
3 
'						Header
 3 
'                 Header
4 
'===================================================================
 4 
'===================================================================
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'------------ VARIABLE DEFINITION -------------
 7 
'------------ VARIABLE DEFINITION -------------
8 
'------------ CONSTANTS DECLARATION -----------
 8 
'------------ CONSTANTS DECLARATION -----------
9 
'------------ VARIABLE INIT -------------------
 9 
'------------ VARIABLE INIT -------------------
10 
'----------------------------------------------
 10 
'----------------------------------------------
11 
%>
 11 
%>
12 
<%
 12 
<%
13 
'------------ RUN BEFORE CONTROL RENDER -------
 13 
'------------ RUN BEFORE CONTROL RENDER -------
- 
 
 14 
If (IsEmpty(Application("LiveSystem"))) Then
- 
 
 15 
    Dim DevStyle, DevExtraText
- 
 
 16 
    DevExtraText = ""
- 
 
 17 
    If OraDatabase.DatabaseName = "RELEASEM" Then
- 
 
 18 
        DevStyle = "background-color:red;"
- 
 
 19 
        DevExtraText = " Live Database"
- 
 
 20 
    Else
14 
'----------------------------------------------
 21 
        DevStyle = "background-color:#66CC00;"
- 
 
 22 
    End If%>
15 
%>
 23 
 
- 
 
 24 
    <div id="Layer2" style="position:absolute; left:0; top:0; width:100%; z-index:1;font-family: tahoma,sans-serif;">
- 
 
 25 
        <center style="<%=DevStyle%>;">
- 
 
 26 
            Development WebServer:<%=request.servervariables("server_name")%>
- 
 
 27 
            Database:<%=OraDatabase.DatabaseName%><%=DevExtraText%>
- 
 
 28 
        </center>
- 
 
 29 
    </div>
- 
 
 30 
<%End If%>
16 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 31 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
17 
  <%If objAccessControl.UserLogedIn Then%>
 - 
 
18 
  <tr>
 32 
  <tr>
19 
    <td class="mmenu_txt"><table width="100%"  border="0" cellspacing="3" cellpadding="0">
 33 
    <td><table width="100%"  border="0" cellspacing="3" cellpadding="0">
20 
      <tr>
 34 
      <tr>
21 
        <td nowrap class="mmenu_txt">&nbsp;&nbsp;<a href="_Logout.asp" class="mmenu_link">Log Out</a>&nbsp;&nbsp;|&nbsp;&nbsp;<a href="#" class="mmenu_link">Find</a>&nbsp;&nbsp;|&nbsp;&nbsp;<a href="#" class="mmenu_link">Help</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>
22 
        <td align="right" nowrap class="mmenu_txt"><a href="#" class="mmenu_link"><img src="images/i_user.gif" alt="My Account" width="16" height="16" hspace="2" border="0" align="absmiddle"><%=objAccessControl.FullName%></a>&nbsp;&nbsp;|&nbsp;&nbsp;Last visit <%=objAccessControl.LastVisit%> </td>
 36 
        <td align="right"><%=ProgressBar()%></td>
23 
      </tr>
 37 
      </tr>
24 
    </table></td>
 38 
    </table></td>
25 
  </tr>
 39 
  </tr>
26 
  <tr>
 40 
  <tr>
27 
    <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>
28 
  </tr>
 42 
  </tr>
29 
  <%End If%>
 43 
  <%If objAccessControl.UserLogedIn Then%>
30 
  <tr>
 44 
  <tr>
- 
 
 45 
    <td class="mmenu_txt">
31 
    <td><table width="100%"  border="0" cellspacing="3" cellpadding="0">
 46 
      <table width="100%"  border="0" cellspacing="3" cellpadding="0">
32 
      <tr>
 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">
33 
        <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>
 53 
                    <img src="images/i_user.gif" alt="My Account" width="16" height="16" hspace="2" border="0" align="absmiddle">
34 
        <td align="right"><%=ProgressBar()%></td>
 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>
35 
      </tr>
 61 
        </tr>
36 
    </table></td>
 62 
      </table>
- 
 
 63 
    </td>
37 
  </tr>
 64 
  </tr>
38 
  <tr>
 65 
  <tr>
39 
    <td background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 66 
    <td background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
40 
  </tr>
 67 
  </tr>
- 
 
 68 
  <%End If%>
41 
</table>
 69 
</table>
42 
<%
 70 
<%
43 
'------------ RUN AFTER CONTROL RENDER --------
 71 
'------------ RUN AFTER CONTROL RENDER --------
44 
'----------------------------------------------
 72 
'----------------------------------------------
45 
%>
 73 
%>
46 

            74