<%
Dim hora
hora = Hour(Time())
'Empezamos la comprobaciones de tiempo.
If hora > 6 and hora < 13 then
Response.Write ("Buenos Dias, son las: " & Time())
ElseIf hora > 12 and hora < 20 then
Response.Write ("Buenas Tardes, son las: "& Time())
ElseIf hora > 19 and hora < 24 then
Response.Write ("Buenas Noches, son las: "& Time())
ElseIf hora >= 0 and hora < 7 then
Response.Write ("Buenas Noches, son las: "& Time())
End If
%>
DELEGACIÓN DIOCESANA DE PASTORAL DE LA SALUD
Archidiócesis de Madrid
Página oficial
NOS MUDAMOS A
www.archimadrid.es/dpsanitaria