Monthly calendar

This is a calendar that displays a different image depending on what month it is . This is quite easy to implement and the major part of this script is based around a Select Case statement .

here is the script

<%
Dim themonth , monthimage
'get the month
themonth = Month(now)
Select Case themonth
Case 1
monthimage = ("jan.gif")
Case 2
monthimage = ("feb.gif")
Case 3
monthimage = ("mar.gif")
Case 4
monthimage = ("apr.gif")
Case 5
monthimage = ("may.gif")
Case 6
monthimage = ("june.gif")
Case 7
monthimage = ("jul.gif")
Case 8
monthimage = ("aug.gif")
Case 9
monthimage = ("sep.gif")
Case 10
monthimage = ("oct.gif")
Case 11
monthimage = ("nov.gif")
Case 12
monthimage = ("dec.gif")
End Select
%>
<img src ="<%= monthimage%>"> </p>

the images are available in a zip file here . Note that in the script the images are in the same directory as the script , so if you install the images in another directory you will have to change the script accordingly.

These images were located on http://www.bruce-hamilton.com