Seleccionar items de un combo y mostrar en un text...

[garciamod270304]

Saludos amigos del web, espero esten todos muy bien. Me gustaría saber si pueden ayudarme en el siguiente problema: Tengo un combo, el cual lo lleno de datos de una tabla (cliente), a través de una consulta sql, el nombre del campo con el que lleno el combo es "nombre_cliente". Una vez llenado el combo, necesito que al seleccionar un items del mismo, me muestre el campo codigo_cliente de la misma tabla en un campo text, el cual ha sido seleccionado del combo. Ejemplo: Selecciono el nombre del cliente en el combo y debe aparecer el codigo_cliente en un campo text de la página. Espero me hayan entendido.

Muestro el código asp con el que lleno el combo, por si lo neceseitan de guía:

dim id1
id1 = Session("IdVendedor")

ssql = "select * from cliente where id_vendedor = " & id1 & " order by nombre_cliente"
Set con = Server.CreateObject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("bdsiop.mdb")
set rs = con.Execute(sSQL)
VarNombreCliente = rs.Fields.Item("nombre_cliente")
var = 1
if Err=0 then%>
<select id="ComboCliente" size="1" name="ComboCliente">
<option value="0">Clientes</option>
<%while RS.EOF=false
response.Write "<option value=" & var & ">" & rs.Fields.Item("nombre_cliente").value & "</option>"
rs.movenext
var = var + 1
wend
response.Write "</select>"
end if
rs.close
con.close