<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Data = cstr(Date())
Data1 = split(Data,"/")
NumeroDiaSemana = Weekday(Date())
Dia = cint(Data1(0))
Mes = cint(Data1(1))
Ano = cstr(Data1(2))
Select Case NumeroDiaSemana
Case 1
DiaSemana = "Domingo"
Case 2
DiaSemana = "Segundo"
Case 3
DiaSemana = "Terça"
Case 4
DiaSemana = "Quarta"
Case 5
DiaSemana = "Quinta"
Case 6
DiaSemana = "Sexta"
Case 7
DiaSemana = "Sábado"
End Select
Select Case Mes
Case 1
MesExtenso = "Janeiro"
Case 2
MesExtenso = "Fevereiro"
Case 3
MesExtenso = "Março"
Case 4
MesExtenso = "Abril"
Case 5
MesExtenso = "Maio"
Case 6
MesExtenso = "Junho"
Case 7
MesExtenso = "Julho"
Case 8
MesExtenso = "Agosto"
Case 9
MesExtenso = "Setembro"
Case 10
MesExtenso = "Outubro"
Case 11
MesExtenso = "Novembro"
Case 12
MesExtenso = "Dezembro"
End Select
Hora = Time()
Hora2 = split(Hora,":")
HoraFinal = cstr(Hora2(0)) + ":" + cstr(Hora2(1))
%>
Untitled Document
