ASP 101 - Active Server Pages 101 - Web04
The Place ASP Developers Go!

Please visit our partners


Windows Technology Windows Technology
15 Seconds
4GuysFromRolla.com
ASP 101
ASP Wire
VB Forums
VB Wire
WinDrivers.com
internet.commerce internet.commerce
Partners & Affiliates














ASP 101 is an
internet.com site
ASP 101 is an internet.com site
IT
Developer
Internet News
Small Business
Personal Technology
International

Search internet.com
Advertise
Corporate Info
Newsletters
Tech Jobs
E-mail Offers

ASP 101 News Flash ASP 101 News Flash




ASP Source Code:
<p>
Contributed By <a href="mailto:ckbales@ieway.com">Charlie K. Bales</a>
</p>
<form>
<SELECT NAME="year">
	<OPTION VALUE="<%=((Year(Now()) - 10))%>"><%=((Year(Now()) - 10))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) -  9))%>"><%=((Year(Now()) -  9))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) -  8))%>"><%=((Year(Now()) -  8))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) -  7))%>"><%=((Year(Now()) -  7))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) -  6))%>"><%=((Year(Now()) -  6))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) -  5))%>"><%=((Year(Now()) -  5))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) -  4))%>"><%=((Year(Now()) -  4))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) -  3))%>"><%=((Year(Now()) -  3))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) -  2))%>"><%=((Year(Now()) -  2))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) -  1))%>"><%=((Year(Now()) -  1))%></OPTION>
	<OPTION VALUE="<%=(Year(Now()))%>" SELECTED><%=(Year(Now()))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) +  1))%>"><%=((Year(Now()) +  1))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) +  2))%>"><%=((Year(Now()) +  2))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) +  3))%>"><%=((Year(Now()) +  3))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) +  4))%>"><%=((Year(Now()) +  4))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) +  5))%>"><%=((Year(Now()) +  5))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) +  6))%>"><%=((Year(Now()) +  6))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) +  7))%>"><%=((Year(Now()) +  7))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) +  8))%>"><%=((Year(Now()) +  8))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) +  9))%>"><%=((Year(Now()) +  9))%></OPTION>
	<OPTION VALUE="<%=((Year(Now()) + 10))%>"><%=((Year(Now()) + 10))%></OPTION>
</SELECT>
</form>
<p>
Compact Version By <a href="mailto:john@asp101.com">John Peterson</a>
</p>
<form>
<select name="year">
<%
Dim I
For I = Year(Now()) - 10 To Year(Now()) + 10
	%>
	<option value="<%= I %>"<% If Year(Now()) = I Then Response.Write " selected" %>><%= I %></option><%
Next 'I
%>
</select>
</form>

Back the the Sample Output

Back to the Sample Index


Home |  News |  Samples |  Articles |  Lessons |  Resources |  Forum |  Links |  Search |  Feedback

internet.comearthweb.comDevx.commediabistro.comGraphics.com

Search:

Jupitermedia Corporation has two divisions: Jupiterimages and JupiterOnlineMedia

Jupitermedia Corporate Info

Legal Notices, Licensing, Reprints, Permissions, Privacy Policy.
Advertise | Newsletters | Tech Jobs | Shopping | E-mail Offers