[أبو طيف]

<p dir="rtl">
<****** LANGUAGE="VB******">
<!--
' The next line of code executes when the ****** tag is parsed.
Call PrintWelcome

Sub PrintWelcome
Dim h

h = Hour(Now)
If h < 12 then
Document.Write "صباح الخير "
ElseIf h < 17 then
Document.Write "Good afternoon! "
Else
Document.Write "Good evening! "
End If
Document.Write "أهلاً بك "
Document.Write "في حالة رغبتك في معرفة الوقت فهو"
Document.Write Time() & " في يوم " & Date() & "."
End Sub
-->
</******>