Subversion Repositories DevTools

<% if (not IsEmpty(Eval("objAccessControl"))) Then

    If (objAccessControl.UserLogedIn) Then %>

        <div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:2">

            <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>

        </div>

    <%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

%>

<div id="Layer2" style="position:absolute; left:0; top:0; width:100%; z-index:1;font-family: tahoma,sans-serif;">

    <center style="<%=DevStyle%>;">Development WebServer:<%=request.servervariables("server_name")%> Database:<%=OraDatabase.DatabaseName%><%=DevExtraText%></center>

</div>

<%End If%>