<% '=================================================================== ' Header '=================================================================== %> <% '------------ VARIABLE DEFINITION ------------- '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE CONTROL RENDER ------- 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 objAccessControl.UserLogedIn Then%> <%End If%>
Home <%=ProgressBar()%>
Last visit <%=objAccessControl.LastVisit%> My Account <%=objAccessControl.FullName%>   |   Log Out   |  About   
<% '------------ RUN AFTER CONTROL RENDER -------- '---------------------------------------------- %>