Salve a tutti uso il seguente codice

in teoria ogni volta che seleziono un record diverso dalla select nel text box mi dovrebbe cambiare il prezzo ma questo non succede




qualcuno sa aiutarmi



codice:
<form action="blll" name="form" method="get">
<%
Set Conn = Server.createobject("ADODB.Connection")
Conn.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("/mdb-database/faxiflora.mdb")
Conn.Open
%>
<%
set rss = server.CreateObject("ADODB.recordset")
SQL = "select * from stati order by id"
RSs.Open SQL,Conn
if rss.EOF THEN 
%>
<font color="#FF0000" size="4">Nessun record  trovato</font>
<%
rss.Close
Set rss = nothing
else
%>
<select name="nazione" onchange="this.form.cap1.value=this.options[this.selectedIndex].value;parent.form.cap2.value =parent.form.cap1.text">
  <%
While  not rss.EOF
%>

 <option value="<%=RSs("country")%>"><%=RsS("country")%> </option>

  <%
RSs.MoveNext
wend
%>
</select>
<div id="divSelnascosta" style="display:none;" >
<select name="cap1">
<option selected></option>
<option value="<%=RSs("country")%>"><%=Rss("prezzo")%></option>

</select>
</div>
<input type="text" name="cap2">

<%
'rss.Close
'set rss = nothing
end if
'conn.close
'set conn = nothing
%>
</form>