<HTML>
<HEAD>
<%
dim greeting, hr, current
current = Now
hr = Hour(current)
if (hr < 12) then
greeting = "morning"
elseif (hr < 17) then
greeting = "afternoon"
elseif (hr < 20) then
greeting = "evening"
else
greeting = "night"
end if
%>
<TITLE>Good <% =greeting %>. Welcome to simple Horoscope!</TITLE>
<%
dim name, month, day, sign
name = Request("name")
month = Request("month")
day = Request("day")
select case month
case 1
if (day <= 20) then
sign = "Capricorn"
else
sign = "Aquarius"
end if
case 2
if (day <= 19) then
sign = "Aquarius"
else
sign = "Pisces"
end if
case 3
if (day <= 20) then
sign = "Pisces"
else
sign = "Aries"
end if
case 4
if (day <= 20) then
sign = "Aries"
else
sign = "Taurus"
end if
case 5
if (day <= 21) then
sign = "Taurus"
else
sign = "Gemini"
end if
case 6
if (day <= 21) then
sign = "Gemini"
else
sign = "Cancer"
end if
case 7
if (day <= 23) then
sign = "Cancer"
else
sign = "Leo"
end if
case 8
if (day <= 23) then
sign = "Leo"
else
sign = "Virgo"
end if
case 9
if (day <= 23) then
sign = "Virgo"
else
sign = "Libra"
end if
case 10
if (day <= 24) then
sign = "Libra"
else
sign = "Scorpio"
end if
case 11
if (day <= 22) then
sign = "Scorpio"
else
sign = "Sagittarius"
end if
case 12
if (day <= 21) then
sign = "Sagittarius"
else
sign = "Capricorn"
end if
end select
%>
<STYLE TYPE="text/css">
img { border-style: outset; border-width: 10; border-color: Gold }
</STYLE>
</HEAD>
<BODY>
<h2>Good <% =greeting %>, <% =name %>. Your sign is <% =sign %>.</h2>
<center>
<IMG SRC="<% =sign %>.gif"
ALT="<% =sign %>.gif">
</center>
<%
if sign="Sagittarius" then
%>
<p>No kidding? I'm a Sagittarian, too! Well met, friend!
<% end if %>
</BODY>
</HTML>