Last updated:
January 26, 2012
|
<%
Dim GatekeeperText
GatekeeperText = Session("CurGatekeeperInfo")
If Len(GatekeeperText) Then
GatekeeperText = "Gatekeeper: " & GatekeeperText
Else
GatekeeperText = " "
End If
%><%=GatekeeperText%>
|
<%
' If a user is currently logged in, add some information and active links to the bottom page border:
If Len(Session("CurID")) Then
Dim UserType
If Session("CurAdministrator") Then UserType = UserType & ",Administrator"
If Session("CurGatekeeper") Then UserType = UserType & ",Gatekeeper"
If Session("CurGatewatcher") Then UserType = UserType & ",Gatewatcher"
If Session("CurOrganizer") Then UserType = UserType & ",Organizier"
If Len(UserType) Then
UserType = " (" & Mid(UserType,2) & ")"
End If
Dim EditLinkTarget
EditLinkTarget = "profile.asp?id=" & Session("CurID")
Response.Write "" & Replace(Session("CurFullName"), " ", " ") & "" _
& UserType & " "
Response.Write "Edit Profile " _
& "Logout"
End If
%> |