<% CALL DisplaysmallCalendar(sMonth, iYear) %>

<% For u = 1 To 12 %> selected<% End If %>> <%=Left(NameFromMonth(u),3)%> <% Next %>

<% For y = 2003 To 2050 %> selected <% End if %>><% = y %> <% Next %>

<% = strLangCurrentMonth %>