Select...

Tjena,
Jag har en meny med årtal i. Jag vill att det årtal som finns i "Year(Cbirth)" ska markeras i menyn. Såhär ser min kod ut nu:

		<select name="year">
		<option value=1920 <%If Year(Cbirth)=1920 Then%>selected<%End If%>>1920
		<option value=1921 <%If Year(Cbirth)=1921 Then%>selected<%End If%>>1921
		<option value=1922 <%If Year(Cbirth)=1922 Then%>selected<%End If%>>1922
		<option value=1923 <%If Year(Cbirth)=1923 Then%>selected<%End If%>>1923
		<option value=1924 <%If Year(Cbirth)=1924 Then%>selected<%End If%>>1924
		<option value=1925 <%If Year(Cbirth)=1925 Then%>selected<%End If%>>1925
		<option value=1926 <%If Year(Cbirth)=1926 Then%>selected<%End If%>>1926
</select>

Finns det något enklare sätt att lösa det på?

------------------
Hälsningar Ricki
www.ricki.nu

[Redigerat av Ricki den 28 nov 2000]

<select name="year">
<%
for myear=1920 to 1930
response.write "<option value=" myear
If Year(Cbirth)=myear Then response.write " selected"
response.write ">" & myear & "</option> & vbcrlf
next
%>
</select>