<script language="VBScript"><!--
Sub window_onload
Dim Cas,Pozdrav
Cas = Hour(Now)
select case cas case 5,6,7,8
Pozdrav="Dobré ráno! "
case 9,10,11,12,13,14,15,16,17,18
Pozdrav="Dobrý deň! "
case 19,20,21,22,23
Pozdrav="Dobrý večer! "
case 0,1,2,3,4
Pozdrav="Čo nemôžete spať, "
end select
lblPOZDRAV.innerText= Pozdrav
lblPOZDRAV.style.color="#ff0000"
End Sub
--></script>
Popis
Tento VBScript sa pozdravý podľa toho koľko je hodín.