Filling a list with years Fills a listbox with year numbers

        Sub Date_FillBoxWithYears( nFirst, nLast, nDefault )
        Dim nYear
        If nDefault = "" Then
        nDefault = Date_GetYear( Now() )
        End If
        For nYear = nFirst To nLast
        Response.Write "" & nYear & ""
                                 End Sub
Fills a listbox with year numbers. You could specify interval by the nFirst and nLast parameters. nDefault tells which year should be preselected. Usage:
<select size="1" name="FromYear">
Date_FillBoxWithYears 1999, 2003, Date_GetYear( Now() )
Information and tips