Month, Date, and Year Drop-Downs for ASP Pages

Category:

ASP, HTML and XML

Type:

Snippets

Difficulty:

Beginning

Author:

Intelligent Solutions Inc.

Version Compatibility: ASP

More information:

If you need month, date, and year select boxes in your ASP, this code will save you some typing. Included is a sample ASP page that makes use of the functions that construct the drop downs. If you want to run the sample, paste all the code into a text editor and save the file as testdate.asp on a web server.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

<%
Function MonthDropDown
Response.Write "<SELECT NAME = 'Month'>"
Response.Write "<OPTION VALUE = '01'>01</option>"
Response.Write "<OPTION VALUE = '02'>02</option>"
Response.Write "<OPTION VALUE = '03'>03</option>"
Response.Write "<OPTION VALUE = '04'>04</option>"
Response.Write "<OPTION VALUE = '05'>05</option>"
Response.Write "<OPTION VALUE = '06'>06</option>"
Response.Write "<OPTION VALUE = '07'>07</option>"
Response.Write "<OPTION VALUE = '08'>08</option>"
Response.Write "<OPTION VALUE = '09'>09</option>"
Response.Write "<OPTION VALUE = '10'>10</option>"
Response.Write "<OPTION VALUE = '11'>11</option>"
Response.Write "<OPTION VALUE = '12'>12</option>"
Response.Write "</select>"
End Function

Function DayDropDown(MaxDay)
'Pass empty string if you 
'want to use default value
'of 31 for MaxDay

if not isNumeric(MaxDay) then
	MaxDay = 31
elseif cint(MaxDay) < 1 or (MaxDay) > 31 then
        MaxDay = 31
elseif MaxDay < 28 then 'No month has < 28 days, but
                        'change if you want to use for
                        'other purposes
    MaxDay = 28
end if

Response.Write "<SELECT NAME = 'Day'>"
For iCtr = 1 to MaxDay
      Response.Write "<OPTION VALUE = '" & iCtr & "'>"
      Response.Write iCtr & "</option>" & vbCrlf
Next      
Response.Write "</select>"
End Function

Function YearDropDown(BeginYear, EndYear)
'Pass "" for parameters
'if you want default values of
'1900 and current year

If Not isNumeric(BeginYear) then
     BeginYear = 1900
elseif BeginYear > Year(Now) or cint(BeginYear) < 0 then
     BeginYear = 1900
else
     BeginYear = cint(BeginYear)
End if

If Not isNumeric(EndYear) then
     EndYear = Year(Now)
elseif EndYear < BeginYear then
     EndYear = Year(Now)
else
     EndYear = Cint(EndYear)
end if

Response.Write "<SELECT NAME = 'Year'>"
For iCtr = BeginYear to EndYear
       Response.Write "<OPTION VALUE = '" & iCtr & "'>"
       Response.Write iCtr & "</option>" & vbCrlf
Next      
Response.Write "</select>"

End Function

'BELOW IS JUST SAMPLE HTML/ASP THAT USES THE 
'ABOVE FUNCTIONS
%>
<HTML>
<BODY>

<% if request("cmdSubmit") = "" then %>
<CENTER><B>SELECT A DATE</b>
<FORM NAME = "DateExample" ACTION = "TestDate.asp">
<TABLE CELLSPACING = 5>
<TR>
<TD><B>Month:</td><TD><%MonthDropDown%></td>
<TD><B>Day:</td><TD><%DayDropDown "" %></td>
<TD><B>Year:</td><TD><%YearDropDown "", ""%></td>
</tr>
</table><P>
<INPUT TYPE = "SUBMIT" NAME = "cmdSubmit" Value = "Submit">
</td><TR>
</form>
</center>

<%
else

sDate = Request("Month") & "/" & Request("Day") & "/" & Request("Year")
  if isDate(sDate) then %>
      <B>You've entered a valid date!</b>
  <% else %>
  <B>You've entered a invalid date!</b>
  <% end if %>
 <P><A HREF = 'testdate.asp'>Enter another date</a>

<% end if %>

</body>
</html>