<![CDATA[
<SCRIPT LANGUAGE="VBScript">
' This line executes when the script tag is parsed.
Call PrintWelcome
Sub PrintWelcome
Dim h
h = Hour(Now)
If h < 12 then
Document.Write "Good morning! "
ElseIf h < 17 then
Document.Write "Good afternoon! "
Else
Document.Write "Good evening! "
End If
Document.Write "Welcome to the world of VBScript. "
Document.Write "Just in case you were wondering, it's "
Document.Write Time() & " on " & Date() & "."
End Sub
</SCRIPT>
]]>