Hol@ much@chos como estan?
Oigan pues kisiera saber como puedo solucionar lo siguiente......Tego 1 pagina ASP la cual por medio de un combo me salen los diversos puestos que existen en una compañia......tales puestos me los trae de un recordset....ya que stan en una tabla de una base de datos de SQL........esta misma pagina tiene un boton de mostrar. Dicho boton manda llamar otra pagina la cual debe mostrar el nombre, apellido paterno y apellido_materno de la persona que esta asignada en ese puesto...dicha informacion esta en otra tabla de la misma base de datos y la relaciona el id_puesto....pero mi problema es que no me aparece o mas bien no me jala nada de la informacion de los nombres
PAGINA 1......ME LLENA PERFECAMENTE EL COMBO
Código HTML:
<%
dim strconn
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=(local); UID=sa;PWD=sa;DATABASE=examen"
set conn = server.createobject("adodb.connection")
conn.open strconn
%>
<form action="pruebaer2.asp" method="post" enctype="multipart/form-data" name="formulario" id="formulario" >
<%
set rs_puesto = server.createobject("adodb.recordset")
sql= "select * from PUESTO"
rs_puesto.open sql, conn
%>
<select name="id_puesto" id="id_puesto" onchange="puesto.value = this.value">
<%
while rs_puesto.eof=false
%>
<option value="<%=rs_puesto.fields ("id_puesto")%>"><%=rs_puesto.fields ("puesto")%></option>
<%
rs_puesto.movenext
wend
%>
</select> PAGINA 2.....
Código HTML:
<%
id_pto= request.Form("id_puesto")
%>
<%
dim strconn
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=(local); UID=sa;PWD=sa;DATABASE=examen"
set conn = server.createobject("adodb.connection")
conn.open strconn
%>
<input type="hidden" name="id_concepto" value="<%=id_puesto%>" />
<%
set rs_usu = server.CreateObject("adodb.recordset")
sql = "select * from usuario"
rs_usu.open sql, conn
%>
<%
do while (not rs_usu.eof)
if trim (id_puesto )= trim (rs_usu.fields("id_puesto")) then
nombre= rs_usu.fields("nombre")
apellido_paterno=rs_usu.fields ("apellido_paterno")
apellido_materno=rs_usu.fields ("apellido_materno")
end if
'exit while
rs_usu.movenext
loop
%>
<input id="txt_concepto" name="txt_concepto" class="MainLinks" tabindex="3" size="15" value="<%=nombre%>" />
<p> <input name="APAt" id="APAt" size="25" value="<%=apellido_paterno%>">
<input name="AMat" id="AMat" value="<%=apellido_materno%>" size="25" >
<%
rs_usu= close
conn.Close
set conn=nothing
%>