Hola HPNeo

te agredesco mucho haberme contestado

creo q no me expresado muy bien que digamos ,
Bueno ojala que ahora si sea mas entendible, MIra lo que quiero es que al seleccionar una lista desplegable la cual toma valores de mi base de datos llamada nepo de la tabla maestro_personal(codi_empl_per, ape_pat_per, ape_mat_per,nom_empl_per,dir_emp_per, depa_naci_dpt, dist_naci_tdi) que esta en access, me muestre toda la informacion correspondiente (de mi tabla maestro_personal)en base a lo seleccionado en mi lista todo en la misma pagina llamada prueba.asp, y acontinuacion esta el codigo que he desarrollado pero no me muestre lo que deseo

por favor te agradeceria comentarios para poder corregirlo , esta pagina q e desarrollado si me muestra lo valores tomados de mi base de datos en mi lista, pero al seleccionar no pasa nada , no me muestra la informacion que corresponde a lo seleccionado, si no me muestre todaaaa la informacion de mi tablaaaa sim que yo haiga realizado la seleccion de mi lista ..
prueba.asp Código PHP:
<html>
<head>
</head>
<body>
<!-- Conecto mi base de datos--->
<%
Dim cnOra1, cnStrOra ,Rs, sql, SQL1
Set cnOra1 = Server.CreateObject("ADODB.Connection")
set Rs=Server.CreateObject("ADODB.Recordset")
cnOra1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("nepo.mdb")
sql="select * from maestro_personal "
Rs.Open sql, cnOra1
Capturo el valor de mi lista_desplegable en la variable iEmpleado
iEmpleado=Request.Form("Empleado")
%>
Inicio mi formulario y en el action=prueba.asp por q quiero q regrese a la misma pagina
Código PHP:
<!-- Inicio de formulario-->
<form method="POST" action="frmdato.asp">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="669" id="AutoNumber1" height="291">
<tr>
<td width="665" colspan="5" height="1"><font face="Arial" size="2">Empleado: </font>
<select size="1" name="Empleado" >
<!--Mi lista toma valores de mi base de datos (tabla maestro personal)--->
<% total=0
while not Rs.EOF
%>
<option value="<%=Rs("codi_empl_per")%>"><%=Rs("ape_pat_per")%> <%=Rs("ape_mat_per")%> <%=Rs("nom_emp_per")%></option>
<% Rs.movenext
total= total+1
wend
Rs.close
%>
</select> <input type="submit" value="Enviar" name="B1">
</form>
<!--Fin de Formulario-->
</tr>
capturo el valor de mi lista(codi_empl_per) para comparar con el codi_empl_per de mi tabla maestro_personal en mi base de datos
y asi poder realizar una nueva consulta en base a loq e capturado
Código PHP:
<%
Rs.Open sql, cnOra1
response.write(iEmpleado)
if Request.Form("Empleado")<>"" then
sql = sql + "where codi_empl_per='"&iEmpleado &"' "
end if
response.write(sql)
if Rs.State <>0 then
if not (Rs.BOF and Rs.EOF) then
total=0
do while not Rs.EOF
total=total+1
%>
Muestre la informacion e acuerdo a lo seleccionado en mi lista
Código PHP:
<tr>
<td width="306" height="24"><font size="2" face="Arial">DNI:
</font></td>
<td width="194" height="24"><%=Rs("codi_empl_per")%></td>
<td width="134" height="24"> </td>
</tr>
<tr>
<td width="665" colspan="5" height="50">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber10" height="1">
<tr>
<td width="12%" height="1"><font size="2" face="Arial">Domicilio:</font></td>
<td width="88%" height="1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="665" colspan="5" height="48">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="1">
<tr>
<td width="33%" height="16"><font size="2" face="Arial">Distrito: <%=Rs("dist_naci_tdi")%></font></td>
<td width="33%" height="16"><font size="2" face="Arial">Provincia: <%=Rs("prov_naci_tpr")%></font></td>
<td width="34%" height="16"><font size="2" face="Arial">Departamento: <%=Rs("depa_naci_dpt")%></font></td>
</tr>
<tr>
<td width="33%" height="1"> </td>
<td width="33%" height="1"> </td>
<td width="34%" height="1"> </td>
</tr>
</table>
<%
Rs.movenext
loop
%>
</td>
</tr>
Cierro mi conexion de bd
Código PHP:
<!--Cierro mi conexion de base de datos--->
<%
Rs.close
Set rs= Nothing
cnOra1.close
Set cnOra1= Nothing
end if
end if
%>
</table>
</body>
</html>
SALUDOS
MUCHAS GRACIAS