Begrüßung durch den Computer mit Zeitangabe

An jener Stelle im Body, an der es stehen soll, ist einzufügen:

<script LANGUAGE="VBScript">
<!--
Call PrintWelcome

Sub PrintWelcome
Dim h

h = Hour(Now)
If h < 12 then
Document.Write "Guten Morgen! "
ElseIf h < 17 then
Document.Write "Guten Nachmittag! "
Else
Document.Write "Guten Abend! "
End If
Document.Write "<br>Wünscht euer Computer"
Document.Write "<br>es ist jetzt "
Document.Write Time() & " am " & Date() & "."
End Sub
-->
</script>