<%@language="vbscript"%>
<%'Bu asp kodu emiremiroglu tarafından yazılmıştır.%>
<%
select case hour(now)
case 0,1,2,3,4,5,6
response.write "<img border=""0"" src=""resimadi.jpg"" width=""800"" height=""600"">"
response.write "<br>"
response.write "Gece"
case 7,8,9,10,11
response.write "<img border=""0"" src=""resimadi2.jpg"" width=""500"" height=""500"">"
response.write "<br>"
response.write "Sabah"
case 12,13,14,15,16,17,18
response.write "<img border=""0"" src=""resimadi3.jpg"" width=""500"" height=""500"">"
response.write "<br>"
response.write "Ogle"
case 19,20,21,22,23
response.write "<img border=""0"" src=""resimadi4.jpg"" width=""500"" height=""500"">"
response.write "<br>"
response.write "Akşam"
end select
%>