ciclo con date a ritroso

[yro]

scusate ma non capisco

devo fare una select con gli anni che vanno da quello odierno a ritroso fino al 1900

ho fatto il ciclo for ma non funzica!

anno = datepart("yyyy",date())

For i = anno To 1900
response.Write("<option value='"&i&"'>"&i&"</option>")
next

dovè che sbaglio?