Display the day as a graphic

Continuing on our theme we will now display the day of the month as a graphic .

Code :

<%
'declare our variables
Dim dtmDate , dtmDay
'set the dtmDate variable to systems date / time
dtmDate = Now()
'store the Day in dtmDay
dtmDay = Day(dtmDate)
%>
<%
'display the day
For i = 1 to Len(dtmDay)
'this is the path to the images , the images are numbered from 0 to 9 and stored
'in the images directory in a folder called 2 if your images are
'different then you will have to modify the path below
Response.Write "<img src=""images/2/" & Mid(dtmDay, i, 1) & ".gif" & """>"
Next
%>