|
USAC Campus Huauchinango |
|
<%
Sub EscribeFecha()
Dim ADSDay
Dim ADSMonth
ADSDay = Array ("","Lunes","Martes","Miercoles","Jueves","Viernes","Sábado","Domingo")
ADSMonth = Array ("","Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto", "Septiembre","Octubre","Noviembre","Diciembre")
Response.write ADSDay (weekday (now, 2)) & " " & Day (Now) & " de " & ADSMonth(Month(Now)) & " del " & Year(Now)
End Sub
Call EscribeFecha
%>
|
