Hola,
Estoy programando en asp, lo que hace el código que escribire mas abajo es que, se escribe un valor dentro del input type=text y cuando le doy al boton me carga un combobox con los resultados de la select.
Código ASP:
Ver original<html>
<head>
</head>
<body>
<%
Set conn = Server.createobject("adodb.connection")
Set tablabase = Server.createobject("adodb.recordset")
conn.open "coplan"
%>
<table border="5">
<tr>
<td>
<form action="referencias_revisiones.asp" method = "post" id="form4" name="buscarPedido">
<table border="2" align="center">
<tr>
<td align="center" colspan="2">
<u><big><big><strong><tt>REFERENCIAS - REVISIONES</tt></strong></big></big></u>
</td>
</tr>
<tr>
<td>
Introduce proyecto:
<input type="text" name="pedido" size=20 value="">
<input type="submit" name="buscarRevisiones" value="Buscar">
</td>
<td>
<%if request.Form("pedido")<>"" then%>
<%Dim valortext
valortext = request.Form("pedido")%>
<%tablabase.open "select distinct revision from r_coplan where pedido ='"&valortext&"'", conn
Dim i
i = 0%>
<select name="Nombre">
<%while not (tablabase.eof)%>
<%Session(tablabase("revision")) = tablabase("revision").value
Dim revision
revision = tablabase("revision").value
'response.write revision%>
<option value="<%=i%>"><%=revision%></option>
<%i = i+1%>
<%tablabase.moveNext%>
<%wend%>
</select>
<%tablabase.Close%>
<%end if%>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%Set tablabase = Nothing
Conn.Close
Set Conn = Nothing%>
</body>
</html>
Lo que quiero es quitar el botón y que cuando el input type=text tenga el evento
onchange este me cargue lo que cargo al darle al botón en el caso anterior.
He estado mirando y parece ser que hay que utilizar javascript, pero ya que no se utilizarlo no se como obtener el valor del input type=text ni como cargar el combo o poner el código donde hago la select y cargo el combo.
He echo algo así pero ya no se como seguir:
Código ASP:
Ver original<html>
<head>
<SCRIPT>
<!--
function CargarCombo() {
//obtener el valor del input pedido y que me haga lo que hace dentro del if request.form("pedido")
pedido.focus()
}
//-->
</SCRIPT>
</head>
<body>
<%
Set conn = Server.createobject("adodb.connection")
Set tablabase = Server.createobject("adodb.recordset")
conn.open "coplan"
%>
<table border="5">
<tr>
<td>
<form action="referencias_revisiones.asp" method = "post" id="form4" name="buscarPedido">
<table border="2" align="center">
<tr>
<td align="center" colspan="2">
<u><big><big><strong><tt>REFERENCIAS - REVISIONES</tt></strong></big></big></u>
</td>
</tr>
<tr>
<td>
Introduce proyecto:
<input type="text" name="pedido" size=20 value="" onchange="CargarCombo()">
<%'<input type="submit" name="buscarRevisiones" value="Buscar">%>
</td>
<td>
<%if request.Form("pedido")<>"" then%>
<%Dim valortext
valortext = request.Form("pedido")
'response.write valortext%>
<%tablabase.open "select distinct revision from r_coplan where pedido ='"&valortext&"'", conn
'response.write "select distinct revision from r_coplan where pedido ='"&valortext&"'"
Dim i
i = 0%>
<select name="Nombre">
<%while not (tablabase.eof)%>
<%Session(tablabase("revision")) = tablabase("revision").value
Dim revision
revision = tablabase("revision").value
'response.write revision%>
<option value="<%=i%>"><%=revision%></option>
<%i = i+1%>
<%tablabase.moveNext%>
<%wend%>
</select>
<%tablabase.Close%>
<%end if%>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%Set tablabase = Nothing
Conn.Close
Set Conn = Nothing%>
</body>
</html>
¿Alguien me puede echar una mano?
