Hola
Tengo un problema ...
rescato la informacion desde un combo box, eso esta funcionando ok, pero necesito que al seleccionar una opcion del combo box me muestre la informacion desde la tabla pero en los input, para asi poder guardarlo en otra tabla.
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Intranet O.T.</title>
</head>
<body>
<form action="procesar3.asp" method="post">
<p> </p>
<p> </p>
<table border="0" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" bordercolor="#111111" width="80%" id="AutoNumber1">
<tr>
<td width="100%" colspan="4">
<p align="center"><b><font face="Tahoma">Emisión Factura</font></b></p></td>
</tr>
<tr>
<td width="25%"> </td>
<td width="25%"> </td>
<td width="25%"> </td>
<td width="25%"> </td>
</tr>
<tr>
<td width="25%"><font face="Tahoma">Número de Factura</font></td>
<td width="50%" colspan="2"><font face="Tahoma">
<input name="Id" size="10" ></font></td>
<td width="25%"> </td>
</tr>
<tr>
<td width="25%"><font face="Tahoma">Cliente</font></td>
<td width="25%"><font face="Tahoma">
<%
Dim oConn,strSQL, objRS, strSQL2, objRS2
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Servicios.mdb"))
strSQL = "SELECT Empresa, Rut FROM Clientes"
strSQL2 = "SELECT Cod_Producto, Descripcion, Neto FROM Productos"
Set objRS = oConn.Execute(strSQL)
Set objRS2 = oConn.Execute(strSQL2)
%>
<select Empresa="Empresa">
<%
'Generamos el menu desplegable
Do While not objRS.eof%>
<option><%=objRS("Empresa")%>
<% objRS.movenext
Loop
%>
</select></font></td>
******aca quiero dejar los datos de las tablas...
ej: input....
<td width="25%"> </td>
<td width="25%"> </td>
</tr>
<tr>
<td width="25%"><font face="Tahoma">Código Producto</font></td>
<td width="50%" colspan="2"><font face="Tahoma">
<select Cod_Producto="Cod_Producto">
<%
'Generamos el menu desplegable
Do While not objRS2.eof%>
<option><%=objRS2("Cod_Producto")%>
<%=objRS2("Descripcion")%>
<% objRS2.movenext
Loop
%>
</select></font></td>
<td width="25%"> </td>
</tr>
<tr>
<td width="25%"><font face="Tahoma">Nº de Orden Trabajo</font></td>
<td width="25%"><font face="Tahoma">
<input name="Nro_Orden" size="10" ></font></td>
<td width="25%"> </td>
<td width="25%"> </td>
</tr>
<tr>
<td width="25%">
<p align="center"> </p></td>
<td width="25%">
<p align="center"> </p></td>
<td width="25%">
<p align="center"> </p></td>
<td width="25%">
<p align="center"> </p></td>
</tr>
</table>
<p align="center"><font face="Tahoma"><input type="submit" value="Enviar" name="B1"> <input type="reset" value="Restablecer" name="B2"></font></p>
</form>
</body>
</html>
