|
<%
' Codigo para mostrar la fecha
Sub LFecha()
Dim lDay
Dim lMonth
lDay = Array ("","Lunes","Martes","Miércoles","Jueves","Viernes","Sábado","Domingo")
lMonth = Array ("","Enero","Febrero","Marzo","Abril","Mayo","Junio", _
"Julio","Agosto", "Septiembre","Octubre","Noviembre","Diciembre")
Response.write lDay(weekday (now, 2))&", "& Day(Now) &" de "& _
lMonth(Month(Now)) & " de " & Year(Now)
End Sub
Response.Write ("")
LFecha
%>
|
|
