i do not know what to do. we have set up a group of drop down boxes (ddb) one for the day one for the month and one for the year. these query a database with the day and the month drop down box working correctly. the ddb for the year comes up with 2 selections from the database only, 2003 and 2004. of course now it is 2005 and i am unsure what to do to correct this. the database has a list of about 20 years starting with 1999.

im not sure if this is a code issue, or a recordset issue. any help would be great....

the code for the year ddb is as follows:


<select name="apply_year" class="mysoma-dropdown" id="apply_year" onBlur="makeAppDate()" onChange="makeAppDate()">
<option value="" <%If (Not isNull(Year(now()))) Then If ("" = CStr(Year(now()))) Then Response.Write("SELECTED") : Response.Write("")%>></option>
<%
While (NOT rs_date_applicationyear.EOF)
%>
<%
rs_date_applicationyear.MoveNext()
Wend
If (rs_date_applicationyear.CursorType > 0) Then
rs_date_applicationyear.MoveFirst
Else
rs_date_applicationyear.Requery
End If
%>
<%
While (NOT rs_date_applicationyear.EOF)
%>
<%
rs_date_applicationyear.MoveNext()
Wend
If (rs_date_applicationyear.CursorType > 0) Then
rs_date_applicationyear.MoveFirst
Else
rs_date_applicationyear.Requery
End If
%>
<%
While (NOT rs_date_applicationyear.EOF)
%>
<option value="<%=(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified ").Value)%>" <%If (Not isNull(Year(now))=)) Then If (CStr(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

").Value) = CStr(Year(now))=)) Then Response.Write("SELECTED") : Response.Write("")%> <%If (Not isNull(Year(now()))) Then If ((rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified ").Value) = CStr(Year(now()))) Then Response.Write("SELECTED") : Response.Write("")%>><%=(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified ").Value)%></option>
<%
rs_date_applicationyear.MoveNext()
Wend
If (rs_date_applicationyear.CursorType > 0) Then
rs_date_applicationyear.MoveFirst
Else
rs_date_applicationyear.Requery
End If
%>
<%
While (NOT rs_date_applicationyear.EOF)
%>
<option value="<%=(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified").Value)%>" <%If (Not isNull(Year(now))=)) Then If (CStr(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

").Value) = CStr(Year(now))=)) Then Response.Write("SELECTED") : Response.Write("")%> <%If (Not isNull(Year(now()))) Then If ((rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified").Value) = CStr(Year(now()))) Then Response.Write("SELECTED") : Response.Write("")%>><%=(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified").Value)%></option>
<%
rs_date_applicationyear.MoveNext()
Wend
If (rs_date_applicationyear.CursorType > 0) Then
rs_date_applicationyear.MoveFirst
Else
rs_date_applicationyear.Requery
End If
%>
<%
While (NOT rs_date_applicationyear.EOF)
%>
<option value="<%=(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified").Value)%>" <%If (Not isNull(Year(now))=)) Then If (CStr(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

").Value) = CStr(Year(now))=)) Then Response.Write("SELECTED") : Response.Write("")%> <%If (Not isNull(Year(now()))) Then If ((rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified").Value) = CStr(Year(now()))) Then Response.Write("SELECTED") : Response.Write("")%>><%=(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified").Value)%></option>
<%
rs_date_applicationyear.MoveNext()
Wend
If (rs_date_applicationyear.CursorType > 0) Then
rs_date_applicationyear.MoveFirst
Else
rs_date_applicationyear.Requery
End If
%>
<%
While (NOT rs_date_applicationyear.EOF)
%>
<option value="<%=(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

").Value)%>" <%If (Not isNull(Year(now()))) Then If (CStr(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

").Value) = CStr(Year(now()))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs_date_applicationyear.Fields.Item("MM_ERROR:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

").Value)%></option>
<%
rs_date_applicationyear.MoveNext()
Wend
If (rs_date_applicationyear.CursorType > 0) Then
rs_date_applicationyear.MoveFirst
Else
rs_date_applicationyear.Requery
End If
%>
</select>