<% Dim diaSemana(7)
diaSemana(1) = "domingo"
diaSemana(2) = "lunes"
diaSemana(3) = "martes"
diaSemana(4) = "miércoles"
diaSemana(5) = "jueves"
diaSemana(6) = "viernes"
diaSemana(7) = "sábado"
Dim mes(12)
mes(1) = "enero"
mes(2) = "febrero"
mes(3) = "marzo"
mes(4) = "abril"
mes(5) = "mayo"
mes(6) = "junio"
mes(7) = "julio"
mes(8) = "agosto"
mes(9) = "septiembre"
mes(10) = "octubre"
mes(11) = "noviembre"
mes(12) = "diciembre"
fechaactual = diaSemana((weekday(now))) & " " & (day(now)) & " de " & mes((month(now))) & " de " & (year(now))
%>