me piden que un textbox se autocomplete con los datos que tiene un combobox, alguien me puede ayudar con esto ?.....
les dejo en codigo, en el cual hay 3 combobox y 3 texbox los textbox tiene que autocompletarse con el contenido que tiene los combobox.
<%@ LANGUAGE=VBSCRIPT %>
<% option explicit %>
<% response.buffer = true%>
<%
dim rstemp,sqltxt
dim referencia
dim orden
dim factura
dim monto
dim vencimiento
dim clausula
dim ETD
dim nave
dim enviodoc
dim courier
dim guia
dim recepcion
dim awb
dim eta
dim usuario, clave
dim EPROG
dim npedido
dim cliente
dim rutextranjero
dim paiscodigo
usuario = session("usuario")
clave = session("clave")
dim nombre
nombre = session("nombre")
%>
<html>
<head>
<title>INTERCOMEX</title>
<link href="../styles/estilo.css" rel="stylesheet" type="text/css">
<link href="../styles/filtros.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" link="#FF0000" vlink="#FF0000" alink="#FF0000">
<!--#INCLUDE FILE="../genericas/cabecera_logistica.asp"-->
<!--#INCLUDE FILE="../genericas/reportes_logisticaex.asp"-->
<p>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F5F5F5">
<tr>
<td bgcolor="#C0C0C0" colspan="3"><center><font size="2" face="arial" color="#000080"><b>CONSULTA GENERAL</b></font></center></td>
</tr>
</table>
<BR>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<%
set rsTemp = createobject("ADODB.Recordset")
sqltxt = "prc_Perfil_usuario_pais_seleccionar '"& session("clirut") & "','" & session("ConUSR") & "'"
rsTemp.open sqltxt, Application("Base_Export_ConnectionString")
'response.write sqltxt
do while not rstemp.eof
PaisCodigo = rsTemp("PaisCodigo")
rstemp.movenext
loop
rstemp.close
set rstemp = nothing
%>
<table width="250" border = "0" align="center" cellspacing="2">
<tr>
<td class="cabecera"><div align="left"><font size="2" face="arial" color="#040061"><b>Orden
Exportación</b></font></div></td>
</tr>
<tr>
<td align="center" class="cabecera"> <form method="POST" action="general2.asp" name="f2">
<%
set rsTemp = createobject("ADODB.Recordset")
sqltxt = "ra_ordenes '" & session("clirut") & "','" & PaisCodigo & "'"
rsTemp.open sqltxt, Application("Base_Export_ConnectionString")
'response.write sqltxt
%>
<div align="left">
<INPUT onKeyUp="autoComplete(this,this.form.factura2,'val ue',true)" name=input1>
<select size="1" name="factura">
<%
rstemp.movefirst
do while not rstemp.eof
orden = rsTemp("ordenes")
%>
<option value="<%=trim(orden)%>"><%=trim(orden)%></option>
<%
rstemp.movenext
loop
rstemp.close
set rstemp = nothing
%>
</select>
<input type="submit" value="Buscar">
</div>
</form>
<div align="left"></center> </div></td>
</tr>
</table>
<%if ltrim(rtrim(session("ConUsr")))<>"giseli" then%>
<table width="250" border = "0" align="center" cellspacing="2">
<tr>
<td class="cabecera"><font size="2" face="arial" color="#040061">
<div align="left"><b>Productos</b></div></td>
</tr>
<tr>
<td align="center" class="cabecera">
<form method="POST" action="productoOrden.asp" name="f3">
<%
set rsTemp = createobject("ADODB.Recordset")
sqltxt = "ra_ProductosExport '"& session("clirut") & "','" & PaisCodigo & "'"
rsTemp.open sqltxt, Application("Base_Export_ConnectionString")
'response.write sqltxt
%>
<div align="left">
<input type="text" name="producto" size="12">
<select size="1" name="producto">
<%
rstemp.movefirst
do while not rstemp.eof
orden = rsTemp("producto")
%>
<option value="<%=trim(orden)%>"><%=trim(orden)%></option>
<%
rstemp.movenext
loop
rstemp.close
set rstemp = nothing
%>
</select>
<input type="submit" value="Buscar">
</div>
</form>
<%end if%>
<div align="left"></center> </div></td>
</tr>
</table>
<table width="250" border = "0" align="center" cellspacing="2">
<tr>
<td class="cabecera"><div align="left"><font size="2" face="arial" color="#040061"><b>Facturas</b></font></div></td>
</tr>
<tr>
<td align="center" class="cabecera"> <form method="POST" action="general3.asp" name="f4">
<%
set rsTemp = createobject("ADODB.Recordset")
sqltxt = "ra_facturas_num '"& session("clirut") & "','" & PaisCodigo & "'"
rsTemp.open sqltxt, Application("Base_Export_ConnectionString")
'response.write sqltxt
%>
<div align="left">
<input type="text" name="factura" size="12">
<select size="1" name="factura">
<%
rstemp.movefirst
do while not rstemp.eof
orden = rsTemp("factura")
%>
<option value="<%=trim(orden)%>"><%=trim(orden)%></option>
<%
rstemp.movenext
loop
rstemp.close
set rstemp = nothing
%>
</select>
<input type="submit" value="Buscar">
</div>
</form>
<div align="left"></center> </div></td>
</tr>
</table>
<% if rtrim(ltrim(session("clirut"))) = "96612230-7" Then %>
<table width="250" border = "0" align="center" cellspacing="2">
<tr>
<td class="cabecera"><div align="left"><font size="2" face="arial" color="#040061"><b>Numero
de Embarque</b></font></div></td>
</tr>
<tr>
<td align="center" class="cabecera"> <form method="POST" action="general4.asp" name="f5">
<%
set rsTemp = createobject("ADODB.Recordset")
sqltxt = "ra_referencia '"& session("clirut")&"'"
rsTemp.open sqltxt, Application("Base_Export_ConnectionString")
'response.write sqltxt
%>
<div align="left">
<select size="1" name="numembarque">
<%
rstemp.movefirst
do while not rstemp.eof
orden = rsTemp("numembarque")
%>
<option value="<%=trim(orden)%>"><%=trim(orden)%></option>
<%
rstemp.movenext
loop
rstemp.close
set rstemp = nothing
%>
</select>
<input type="submit" value="Buscar">
</div>
</form>
<div align="left"></center> </div></td>
</tr>
</table>
<% END IF %>
<% if rtrim(ltrim(session("clirut"))) = "91335000-6" Then %>
<table width="250" border = "0" align="center" cellspacing="2">
<tr>
<td class="cabecera"><div align="left"><font size="2" face="arial" color="#040061"><b>Pedidos</b></font></div></td>
</tr>
<tr>
<td align="center" class="cabecera"> <form method="POST" action="pedido_detalle.asp" name="f2">
<%
set rsTemp = createobject("ADODB.Recordset")
sqltxt = "ra_pedidos_indura '"& session("clirut")&"'"
rsTemp.open sqltxt, Application("Base_Export_ConnectionString")
'response.write sqltxt
%>
<div align="left">
<select size="1" name="pedido">
<%
rstemp.movefirst
do while not rstemp.eof
npedido = rsTemp("npedido")
%>
<option value="<%=trim(npedido)%>"><%=trim(npedido)%></option>
<%
rstemp.movenext
loop
rstemp.close
set rstemp = nothing
%>
