Filling a list with months Fills a listbox with month names

        Sub Date_FillBoxWithMonths( nDefault, fUseNumbersAsValue )
        Dim nMonth
        If nDefault = "" Then
        nDefault = Date_GetMonthNo( Now() )
        End If
        For nMonth = 1 To 12
        Response.Write "" & Date_GetMonthName(nMonth) & ""
                                 End Sub
Fills a listbox with month names. nDefault tells which year should be preselected. If fUseNumberAsValue is true then a number is used as a value instead of the month name text. Usage:
<select size="1" name="FromMonth">
<% Date_FillBoxWithMonths Date_GetMonthNo( Now() ), True %>