saber el valor del combo y pasarlo a una caja de texto

[LinosINK]

me podrias echar una mano con el array,es q no me sale. como sería?,no se como cargar dentro del array todos los precios de la base de datos.

Cargo el combo asi:

<%
dim R,C,sSQL
Set C = Server.CreateObject ("ADODB.Connection")
C.Open "DSN=dominio.com.prueba"

sSQL = "Select * from Articulos order by seccion asc"
Set R = C.Execute (sSQL)
%>

<SELECT NAME="Curso" onChange="mifuncion(this.value)">
<%
WHILE NOT R.EOF
Response.Write ("<OPTION VALUE="& R.FIELDS("nombre") & ">")'AÑADE UN ELEMENTO
Response.Write (R.FIELDS("nombre") & "</OPTION>")' MUESTRA EL NOMBRE
R.MOVENEXT
WEND

R.close
C.close
%>
</SELECT>