تجربة ممنوع الدخول
<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
-->
</******>
آخر تعديل بواسطة أبو طيف ، 04-05-2002 الساعة 02:42 PM.
|