Opps! Perdón.
Hay una forma de sacar listados con totalización parcial, que se utiliza mucho en programación lineal y bueno, ayuda en estos casos.
La idea es la siguiente:
Teniendo el listado
José 10
José 20
José 5
José 25
Saúl 15
Saúl 13
Saúl 8
Saúl 17
Para obtener:
José_____________________________
10
20
5
25
Saúl______________________________
15
13
8
17
Sería
Código:
Dim NombreAnterior, NombreActual
If Not Rs.EOF Then
NombreAnterior="Nada"
End if
While Not Rs.EOF
NombreActual=Rs("NOMBRE")
If NombreAnterior<>NombreActual Then
NombreAnterior=NombreActual
Response.Write("NombreActual")
End If
Response.Write("Valor")
Rs.MoveNext()
Wend.
Obviamente, esto no está puesto en tablas ni formateado de ninguna manera, pero es la idea.
Con esto, cuando no coincidan nombre Anterior y Nombre Actual, va a imprimir la línea con el nombre, y cuando coincidan, directamente va a pasar de largo.
Espero que te sea útil
