esta pantalla es para mostrar un listado de los registros de mi tabla, pero he
puesto que me ordene por ciertas columnas pero me marca error de que se
Se requiere un objeto: 'rs2', pero no se que pueda estar mal
Código:
<!-- #include file="../conexion.asp"-->
<%
call conectarDB
Dim sSQL, rs, ordenar
ordenar = request.querystring("ordenar")
distribuidor = request.QueryString("distribuidor")
if ordenar <>0 then
Select Case ordenar
Case 1
ordenar_por = "peticiones_id"
Case 2
ordenar_por = "peticiones_encabezado"
Case 3
ordenar_por = "peticiones_pantallas_funciones"
Case 4
ordenar_por = "peticiones_fecha_registro"
Case else
ordenar_por = "peticiones_id"
End select
sSQL = "Select * from DS_peticiones where peticiones_numero_distribuidores ='"& distribuidor &"' AND peticiones_estatus <> 'AC' ORDER BY "& ordenar_por
Set rs = cnn.Execute(sSQL)
else
sSQL = "Select * FROM DS_peticiones where peticiones_numero_distribuidores ='"& distribuidor &"' AND peticiones_estatus <> 'AC' ORDER BY peticiones_id"
Set rs = cnn.execute(sSQL)
end if
%>
<body>
<div class="central">
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td class="abajo"><strong><a href="consultaPeticiones.asp?ordenar=1"># ID</a></strong></td>
<td class="abajo"><strong><a href="consultaPeticiones.asp?ordenar=2">PETICIÓN</a></strong></td><td class="abajo" width="40"> </td>
<td width="330" class="abajo"><strong><a href="consultaPeticiones.asp?ordenar=3">PANTALLA</a></strong></td>
<td width="134" class="abajo"><strong><a href="consultaPeticiones.asp?ordenar=4">FECHA REGISTRO</a></strong></td>
</tr>
<tr><td> </td></tr>
<% Dim cadena
cadena = ""
do while not rs.eof
sqluno = "Select usuarios_id, usuarios_nombre from DS_Usuarios where usuarios_id = '"& rs("peticiones_numero_distribuidores") &"'"
Set rs1 = cnn.execute(sqluno)
if not rs1.eof then
NombreDist = rs1("usuarios_nombre")
end if
sqldos = "Select clientes_id, clientes_nombre_comercial from DS_ClientesDatosGenerales where clientes_id = '"& rs("peticiones_numero_cliente") &"'"
Set rs2 = cnn.execute(sqldos)
if not rs2.eof then
NomCliente = rs2("clientes_nombre_comercial")
end if
cadena = rs("peticiones_id") &"|"& NomCliente &"|"& rs("peticiones_pantallas_funciones") &"|"& rs("peticiones_encabezado")
cadena = cadena &"|"& rs("peticiones_comentario")
%>
<tr>
<td width="39" class="alinear"><% = rs("peticiones_id")%></td>
<td width="468" class="alinear"><a href="" onclick="recuperaDato(this.id)" id="<% = cadena%>">
<% = rs("peticiones_encabezado")%></a></td><td class="alinear"> </td>
<td class="alinear"><% = rs("peticiones_pantallas_funciones")%></td>
<td class="alinear"><% = rs("peticiones_fecha_registro")%></td>
</tr>
<% rs.movenext
loop
rs.close
Set rs = nothing
rs1.close
Set rs1 = nothing
rs2.close
Set rs2 = nothing
%>
</table>
<br /><br /><br /><br />
<table width="100%"><tr><td align="right"><input name="imprimir" type="image" id="imprimir" value="imprimir" onclick="imprime=window.print();" src="images/IMPRIMIR_LISTADO1.gif" /></td></tr></table>
</div>
</body>
</html>
<% call desconectarDB %>