<% if (not IsEmpty(Eval("objAccessControl"))) Then If (objAccessControl.UserLogedIn) Then %>
<% If IsEmpty(Eval("MenuHeaderDefined")) Then %> Logout from <%=objAccessControl.UserName%> disabled <% Else %> Logout from <%=objAccessControl.UserName%> <%End If%>
<%End If%> <%End If%> <%' Highlight Development System: Green for Development, Red for Live Database If (IsEmpty(Application("LiveSystem"))) Then Dim DevStyle, DevExtraText DevExtraText = "" If OraDatabase.DatabaseName = "RELEASEM" Then DevStyle = "background-color:red;" DevExtraText = " Live Database" Else DevStyle = "background-color:#66CC00;" End If %>
Development WebServer:<%=request.servervariables("server_name")%> Database:<%=OraDatabase.DatabaseName%><%=DevExtraText%>
<%End If%> <% if not IsEmpty(Eval("MenuHeaderDefined")) Then %> <% if not IsEmpty(Eval("MenuHeaderDefined")) Then If (Request("rtag_id") <> "") OR (Request("proj_id") <> "") OR (Request("pv_id") <> "") Then %> <% End If %> <% End If %>
<%Call Print_TopRight_Menu_ROW1 ()%> <% End If %>
<% If (Request("rtag_id") <> "") OR (Request("proj_id") <> "") Then Call Print_TopLeft_Menu ElseIf Request("pv_id") <> "" Then Call Print_Package_TopLeft_Menu End If%> <% If (Request("rtag_id") <> "") OR (Request("proj_id") <> "") Then Call Print_TopRight_Menu_ROW2 End If %>