<%
'*******************************************************
'* ASP 101 Sample Code - http://www.asp101.com *
'* *
'* This code is made available as a service to our *
'* visitors and is provided strictly for the *
'* purpose of illustration. *
'* *
'* Please direct all inquiries to webmaster@asp101.com *
'*******************************************************
%>
Date/Time Info
<%
Dim dHour
dHour = Hour(Now)
response.write ""
response.write ""
If dHour < 12 Then
Response.Write "Good morning!"
ElseIf dHour < 17 Then
Response.Write "Good afternoon!"
Else
Response.Write "Good evening!"
End If
%>
It is currently <%= Time() %> on <%= Date() %>.