Memorizza valore in select

[[trodat]]

Ciao, perchè non riesco a memorizzare all'interno della select il valore selezionato?

<%

sql = "SELECT Anno FROM myTbl GROUP BY Anno ORDER BY Anno asc" 
Set rec = Server.CreateObject("ADODB.Recordset")
rec.Open sql, conn, 3, 3

anno = 0
pre = 0
%>

                      
 <select size="1" name="Anno" onChange="window.document.location='page.asp?anno='+this.options[this.selectedIndex].value;">
 <option>Seleziona Anno</option>

<%

while not rec.eof
Anno = rec("anno")

if anno <> pre then %>
<option value="<%= anno %>"> <% if Request.QueryString("anno") =  rec("anno") then Response.Write("selected")%>
<%= Anno %></option>
<%

pre = anno
end if
rec.movenext
wend

rec.Close
set rec = Nothing

%>


</select>