<%...
' Recupero el valor que selecciono en el select aqui.
combo = request.form("combo")
' Hago la conexion para traer el valor asociado a la elección.
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base_datos.mdb"))
strSQL = "Select MPCS.RDESCR From MPCS were campo = '" & combo &"'"
Set oRs = conn.Execute(strSQL)
While Not oRs.EOF
oRs.MoveNext
Wend
'Capturo el valor producto de la consulta usando el filtro " & combo &"
descripcionCod = oRs.Fields("RDESCR").VALUE
oRs.Close
conn.Close%>
' Luego lo paso al text para que se muestre.
<td colspan="3" align="center" bgcolor="#e0e0e0" td><input name="txtCodProblema" type="text" size="43" readonly="yes" maxlength="40" style="FONT-FAMILY: Arial; FONT-SIZE: 9pt" value="<%= descripcionCod %>"></td>
' Y si hago una nueva seleccion ...debe cambiar la cadena del text y asi sucesiamente. Estoy nublado,
debe ser el hambre
...que sugieren?