 |
|
Login do Sistema
|
|
|
<% If Session("LOGADO_ADM") <> "TRUE" Then %>
<% Else
nUsu = Application("UserCount") - 1
If nUsu > 1 Then
sUsu = nUsu & " sessões de usuários estão ativas"
Else
If nUsu = 1 Then
sUsu = " 1 sessão esta ativa"
Else
sUsu = "nenhuma sessão de usuário esta ativa"
End If
End If
Response.Write "" & _
" " & _
" " & _
"
" & _
UCase(Left(Session("LOGIN"), 1)) & Right(Session("LOGIN"), Len(Session("LOGIN"))-1) & ",
Seja bem vindo ao site administrativo " & Application("APP_TITLE_SHORT") & "!
" & _
" No momento " & sUsu & _
"
" & _
" | " & _
" " & _
" "
End If %>
|
|
|