Jul 04 2002

Filling a list with days

Posted by admin under Daterelated functions

<%
Sub Date_FillBoxWithDays( nDefault )
Dim nDay
If nDefault = "" Then
nDefault = Date_GetDayNo( Now() )
End If
For nDay = 1 To 31
Response.Write "<option" 
If nDay = nDefault Then
Response.Write " selected=yes"
End If
Response.Write ">" & nDay & "</option>"
Next
End Sub
%>

br> 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>