Enviar OPTION VALUE a una consulta

[admado]

Tengo un formulario que contiene una lista de opciones que se llena a partir de una consulta a la BD y necesito que según la opción seleccionada me muestre el nombre del cliente.
En la BD tengo
Tabla clientes -> id_cliente, nom_cliente
Tabla cuentas -> id_cuenta, cta_desc,cta_identificador(..id_cliente..)

Código:

sSQL_Cuentas = "select * from CUENTAS where ID_Cuenta like '01%' or ID_Cuenta like '02%'" 

En el formulario tengo:

Código:

<select size="1"  onchange=Actualiza_Expedido_Cliente() name="Lst_Cliente2" style="font-family: Arial; font-size: 8pt">
<option selected value="0">Seleccione una Cuenta</option>
<% Do while Not oRst_Cuentas.EOF   %>
<option value="<% = Trim(oRst_Cuentas("Id_Cuenta")) %>"><% Response.Write(Trim(oRst_Cuentas("Id_Cuenta"))) %> ----- <% = Trim(oRst_Cuentas("Cta_desc")) %> </option><%      
oRst_Cuentas.MoveNext  
Loop
oRst_Cuentas.Close 
Set oRst_Cuentas = Nothing
%> </select> 

Necesito meter el valor(<option value="<% = Trim(oRst_Cuentas("Id_Cuenta")) %>) de la lista en una consulta para poder sacar el nom_cliente