我想做一个下拉菜单赋值：
........
下拉菜单部分：
<select name="mailname">
<option value="">请选择</option>
<%
set rex=server.CreateObject("adodb.recordset")
sql3="select * from mail where uid="&session("id")
rex.open sql3,conn,1,3
%>
<%while not rex.eof%>
<%dim temp
temp=rex("mailname")
if temp<>"" then%>
<option value="<%=temp%>"><%=temp%></option>
<%end if
rex.movenext
wend%>
</select>
文本框：
<textarea name="mail" cols="120" rows="8"></textarea>
说明：在数据库mail格式：
id int
mailname varchar(30)
mail text

现在的问题是，我在下拉列表中任意选一个值“mailname”，怎么能将它对用的"mail"写在下面的文本框中？？
求助，在线等！！！