::: GDK S.A. - INTRANET :::

<% Dim Local_User If Request.ServerVariables("LOGON_USER") = "" Then ' Response.Status = "401 access denied" else Local_User = Request.ServerVariables("LOGON_USER") 'Aqui faço um tratamento para pegar somente o logon. 'Local_User = Right(Local_User, len(Local_User) - 9 ) 'response.Write("Usuario : " & local_user) End If %> <% dim mes(), saudacao,semana() redim mes(12) redim semana(7) dim endereco semana(1) = "Domingo" semana(2) = "Segunda-feira" semana(3) = "Terça-feira" semana(4) = "Quarta-feira" semana(5) = "Quinta-feira" semana(6) = "Sexta-feira" semana(7) = "Sábado" mes(1) = "Janeiro" mes(2) = "Fevereiro" mes(3) = "Março" mes(4) = "Abril" mes(5) = "Maio" mes(6) = "Junho" mes(7) = "Julho" mes(8) = "Agosto" mes(9) = "Setembro" mes(10) = "Outubro" mes(11) = "Novembro" mes(12) = "Dezembro" saudacao = semana(weekday(date()))&", " & day(now) & " de " & mes(month(now)) & " de " & year(now) %>

HOME

<%=saudacao%>

ESTE ITEM DA INTRANET ESTÁ EM MANUTENÇÃO!

"A reprodução parcial ou total das informações contidas nesta publicação, somente será permitida após a aprovação prévia da GDK através de sua área de Comunicação Corporativa – e-mail cida.caruso@gdksa.com”