Ciao ragazzi, vorrei un aiuto...

in una query mi tiro fuori il dato riferimento contenuto in una tabella,



<%Set rs2 = Server.CreateObject("ADODB.Recordset")
strSQL2="SELECT * FROM protocollo where ID =" & id & ""
rs2.Open strSQL2,cn2

...........

...........

...........

...........

Set riferimento=rs2("riferimento")


successivamente vorrei agganciare il recordset riferimento in una selectbox che a sua volta tira i dati da un'altra tabella e metterlo come selezionato...




<table width="100%" cellpadding="0" cellspacing="0" border="0">
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
strSQL1="SELECT anno FROM anno "
rs1.Open strSQL1,cn2
'pippo =0
%>
<tr>
<td>Data Invio:&nbsp;&nbsp;<input class="lng2" type="Text" name="data_invio" value="<%=data_invio%>" onKeyUp=this.value=this.value.replace(/"/g,"'")></td>
<td align="right">
Anno di Riferimento

<select name="anno" class="inputLogin">
<option value="1" selected>-----------</option>
<%do while not Rs1.eof
anno=Rs1("anno")
response.write("<option value=" & anno &">" & anno &"</option>")
Rs1.movenext
loop %>
</select>
<img src="images/pixel.gif" border="0" width="25" height="1">
</td>
</tr>
<%
Set rs1 = nothing
%>
</table>




mi dite come fare perfavore.....


grazie a presto.