| <%=WeekDayName(WeekDay(date))%> <%=MonthName(Month(Date))%> <%=Day(Date)%><% Select Case Day(Date)
Case 1, 21, 31
Response.Write ("st")
Case 2, 22
Response.Write ("nd")
Case 3, 23
Response.Write ("rd")
Case Else
Response.Write ("th")
End Select
%> |
 |
<% If Hour(Time) > 12 Then Response.Write(Hour(Time)-12) Else Response.Write(Hour(Time)) End If%>:<% If Minute(Time) < 10 Then Response.Write("0" & Minute(Time)) Else Response.Write(Minute(Time)) End if %> <%If Hour(Time) <= 11 Then Response.Write("AM") Else Response.Write("PM") End If %> |
 |
<% If Hour(Time) >= 1 AND Hour(Time) <= 11 Then Response.Write ("Good Morning ") %>
<% If Hour(Time) >= 12 AND Hour(Time) <= 17 Then Response.Write ("Good Afternoon ") %>
<% If Hour(Time) >= 18 AND Hour(Time) <= 24 Then Response.Write ("Good Evening ") %> |