Subversion Repositories DevTools

Rev

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

Rev 5345 Rev 5354
Line 1... Line -...
1 
<%
 - 
 
2 
'===================================================================
 1 
<% if (not IsEmpty(Eval("objAccessControl"))) Then
3 
'                 Header
 2 
    If (objAccessControl.UserLogedIn) Then %>
4 
'===================================================================
 3 
        <div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:2">
- 
 
 4 
            <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>
5 
%>
 5 
        </div>
6 
<%
 6 
    <%End If%>
7 
'------------ VARIABLE DEFINITION -------------
 - 
 
8 
'------------ CONSTANTS DECLARATION -----------
 - 
 
9 
'------------ VARIABLE INIT -------------------
 - 
 
10 
'----------------------------------------------
 - 
 
11 
%>
 7 
<%End If%>
12 
<%
 8 
 
13 
'------------ RUN BEFORE CONTROL RENDER -------
 9 
<%' Highlight Development Systems
14 
If ( NOT IsEmpty(Application("TestSystem"))) Then
 10 
If ( NOT IsEmpty(Application("TestBannerStyle"))) Then
15 
    Dim DevStyle, DevExtraText, DevTitle
 11 
    Dim DevStyle, DevExtraText, DevTitle
16 
    DevStyle = Application("TestBannerStyle")
 12 
    DevStyle = Application("TestBannerStyle")
17 
    DevTitle = Application("TestBanner")
 13 
    DevTitle = Application("TestBanner")
18
14
19 
    DevExtraText = ""
 15 
    DevExtraText = ""