fecha actual

HH
31 de Julio del 2003
Con que puedo sacar la fecha actual de ASP.
Que pongo en una web para que me saque:
la hora es: "la hora que es en ese momento".
Gracias

Bianca
31 de Julio del 2003
<%
' Codigo para mostrar la fecha
Sub LFecha()
Dim lDay
Dim lMonth
lDay = Array ("","Lunes","Martes","Mircoles","Jueves","Viernes","Sbado","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
' muestra la fecha de hoy
Call LFecha
%>
y son las:

<%
' Codigo para mostrar la hora
Sub LHora()
lHour = Hour (Now)
lMinute = Minute (Now)
If ( lHour < 10) then
lHour = "0" & lHour
End If
If (lMinute < 10) then
lMinute = "0" & lMinute
End If

Response.write lHour & ":" & lMinute
End Sub
' muestra la hora del servidor
Call LHora

%>