|
<font face="Arial" size="4 " color="#00FF00"> <script LANGUAGE="VBScript"> <!-- ' The next line of code executes when the script tag is parsed. Call PrintWelcome Sub PrintWelcome Dim h h = Hour(Now) If h < 12 then Document.Write "DobrΘ rßno! " ElseIf h < 17 then Document.Write "DobrΘ odpoledne! " Else Document.Write "Dobr² veΦer! " End If Document.Write "Tuto strßnku jste navÜtφvil dne " Document.Write Date() & ", v " & Time() & "." End Sub --> </script> </font> |
