lista 2 registro

[mgalaz]

aka el codigo del listar

<%
if request.Form("cmdbuscar")="Buscar" then
r = request.Form("txtficha")
buscar_personal = "SELECT tblFichaIndicacionIQLE.indID, tblFichaIndicacionIQLE.pacNumFic, tblarancelle.NOMPREST, tblcausasalida.DESCRIP_CAUSA, tblFichaIndicacionIQLE.codigomanual,tblFichaIndica cionIQLE.codprestmanual, tblserviciosle.servicio, tblestadosle.Estados, tblFichaIndicacionIQLE.indOperacion, tblFichaIndicacionIQLE.indIDEstado, tblFichaIndicacionIQLE.indFecha, tblFichaIndicacionIQLE.reserva, tblprofesionalle.profesional FROM tblFichaIndicacionIQLE INNER JOIN tblprofesionalle ON tblFichaIndicacionIQLE.prfRut = tblprofesionalle.prfrut INNER JOIN tblserviciosle ON tblFichaIndicacionIQLE.serCodigo = tblserviciosle.sercodigo INNER JOIN tbldiagnosticole ON tblFichaIndicacionIQLE.codigo = tbldiagnosticole.CODIGO INNER JOIN tblestadosle ON tblFichaIndicacionIQLE.indIDEstado = tblestadosle.indidestado INNER JOIN tblcausasalida ON tblFichaIndicacionIQLE.codcausal = tblcausasalida.codcausal INNER JOIN tblarancelle ON tblFichaIndicacionIQLE.codprest = tblarancelle.CODPREST where TblFichaIndicacionIQLE.pacnumfic= '"&r&"' order by TblFichaIndicacionIQLE.indID ASC"
set rs = conn.execute(buscar_personal)
while NOT rs.EOF
%>

<td><%=rs.fields("indid")%> </td>
</tr>
<%
rs.movenext
wend
end if
%>