aspの続き貼ります。
<%
'誕生日プラス現在の日付を取得して、結果を表示します。
例８月１日生まれ、今日の日付　２４日　８＋１＋２４＝33
'5日より前、29日以降は「大吉」
If day(now) < 5 or day(now) > 29 Then
Response.Write "大吉"
Else
If day(now) < 12 Then
'5日から13日までは「中吉」
Response.Write "中吉"
Else
'14日から20日までは「小吉」
Response.Write "小吉"
　　　　　　　　Else
'20日から25日までは「末吉」
Response.Write "末吉"
　　　　　　　　Else
'26日から28日までは「凶」
Response.Write "凶"
End If
%>
<br>
占い日：<%Response.Write now()%><br>
</body>
</html>