Subversion Repositories DevTools

Rev

Rev 1282 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1282 Rev 3940
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
- 
 
 21 
        DevStyle = "background-color:#66CC00;"
- 
 
 22 
    End If
- 
 
 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;">
- 
 
 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
14 
'----------------------------------------------
 33 
'----------------------------------------------
15 
%>
 34 
%>
16 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 35 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
17 
  <%If objAccessControl.UserLogedIn Then%>
 36 
  <%If objAccessControl.UserLogedIn Then%>
18 
  <tr>
 37 
  <tr>
19 
    <td class="mmenu_txt"><table width="100%"  border="0" cellspacing="3" cellpadding="0">
 38 
    <td class="mmenu_txt"><table width="100%"  border="0" cellspacing="3" cellpadding="0">
20 
      <tr>
 39 
      <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>
 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%>;">
- 
 
 47 
            Development WebServer:<%=request.servervariables("server_name")%>
- 
 
 48 
            Database:<%=OraDatabase.DatabaseName%><%=DevExtraText%>
- 
 
 49 
        </center>
- 
 
 50 
        <%End If%>
- 
 
 51 
        </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>
 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>
23 
      </tr>
 58 
      </tr>
24 
    </table></td>
 59 
    </table></td>
25 
  </tr>
 60 
  </tr>
26 
  <tr>
 61 
  <tr>
27 
    <td background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 62 
    <td background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 63 
    </td>
28 
  </tr>
 64 
  </tr>
29 
  <%End If%>
 65 
  <%End If%>
30 
  <tr>
 66 
  <tr>
31 
    <td><table width="100%"  border="0" cellspacing="3" cellpadding="0">
 67 
    <td><table width="100%"  border="0" cellspacing="3" cellpadding="0">
32 
      <tr>
 68 
      <tr>