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

[garciamod270304]

Disculpame si insisto, se que tengo el código donde al seleccionar un items del combo me muestra en un campo text el nombre seleccionado o el id del combo, (como lo muestras en el ejemplo). Lo que necesito es: Cuando selecciono un items del combo, quiero que me muestre el campo "codigo_cliente" de la tabla "cliente" del items seleccionado (nombre_cliente) y lo pase a un campo text. No dudes en orientarme y disculpame si no me expliqué bien. Gracias.

Este es el código por si lo necesitas para orientarte:

<%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" onchange='javascript:seleccion();'>
<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
%>


<script language=javascript>
function seleccion(){

var VarComboCliente=document.getElementById("ComboClie nte");
var VarTxtIdCliente=document.getElementById("TxtIdClie nte");

TxtIdCliente.value=VarComboCliente[VarComboCliente.value-0].text;

}
</script>

NOTA: Fijate que los datos son traidos de una tabla para ingresarlo en el combo.