% OPTION EXPLICIT %>
Please select a year ... <% DIM intYearCounter, intCurrentYear %> <% intCurrentYear = Year(Date) %> <% FOR intYearCounter = intCurrentYear TO (intCurrentYear + 7) %> <% Response.Write "" & CStr(intYearCounter) & "" %> <% NEXT %>