Filling a list with days Fillls a listbox with day numbers

        <%
        Sub Date_FillBoxWithDays( nDefault )
        Dim nDay
        If nDefault = "" Then
        nDefault = Date_GetDayNo( Now() )
        End If
        For nDay = 1 To 31
        Response.Write "" & nDay & ""
                                 Next
                                 End Sub
                                 %>
                                 
Fills a listbox with day numbers. nDefault tells which day should be preselected. Usage:
<select size="1" name="FromDay">
<%
Date_FillBoxWithDays Date_GetDayNo( Now() )
%>
</select>