Foreros cambie el código de la consulta pero ahora me sale este mensaje:
ADODB.Recordset error '800a0e78'
La operación no está permitida si el objeto está cerrado.
/gonzalez/report_consolidado_pj.asp, línea 34
<body background="fondo_int.gif">
<%
Dim Conn4, Tabla4
Set Conn4 = Server.CreateObject("ADODB.Connection")
Conn4.Open "DSN=gp"
Set Tabla4=Server.CreateObject("ADODB.recordset")
Temp4 = "TRANSFORM Count(tbl_pj_hoja_ruta.no_horas) AS CuentaDeno_horas SELECT tbl_pj_hoja_ruta.pj_no_ruc, Count(tbl_pj_hoja_ruta.no_horas) AS [Total de no_horas] FROM tbl_pj_hoja_ruta WHERE (((tbl_pj_hoja_ruta.facturado)='no')) GROUP BY tbl_pj_hoja_ruta.pj_no_ruc, tbl_pj_hoja_ruta.facturado PIVOT tbl_pj_hoja_ruta.id_abogado"
%>
<table align="center">
<tr>
<th>CLIENTE</th>
<th>ABOGADOS</th>
</tr>
<%
Do While Not Tabla4.Eof ***linea 34***
%>
<tr>
<td><%=Tabla4("tbl_pj_hoja_ruta.pj_no_ruc")%></td>
<td><%=Tabla4("tbl_pj_hoja_ruta.id_abogado")%></td>
</tr>
<tr>
<td></td>
<td><%=Tabla4("[Total de no_horas] ")%></td>
</tr>
<%
Tabla4.MoveNext
Loop
Conn.Close
%>
</table>
</body>
</html>