Hice una rutinita que soluciona el problema ufffff estaba bueno ya
me quedo asi
ahh este ejemplo lo hice con datos simples pero al final es lo mismo
Nombre Gastos
alex 1457
alex 4777
alex 5899
Total = 12133
claudia 2589
Total = 2589
danny 2568
danny 5888
danny 8754
Total = 17210
jose 4785
jose 4268
jose 4221
aqui hay un pequeño problema el ultimo total no me lo da
ahi necesito la ayuda de Uds please pero ya está casi listo
era tambien un problema que habia planteado Lexus
codigo
NxSQL ="SELECT gastos, nombre FROM neox Order BY nombre"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open NxSQL, oConn,3,1
%>
<table width="720" border="1" cellpadding="0" cellspacing="1">
<tr bgcolor="#FFFFFF">
<td width="50%">Nombre</td>
<td>Gastos</td>
</tr>
<%do while not Rs.eof%>
<tr bgcolor="#FFFFFF">
<%
if Nxx = "" Then
Nxx = Rs("nombre")
else
Nxx = Nxx
end if
%>
<%
if Nxx <> Rs("nombre") Then
%>
<tr bgcolor="#FFFFFF">
<td height="22"><div align="right"><b>Total= </div></td>
<td><b><%=total%> </td>
<%total = ""%>
</tr>
<%
else
end if
%>
<td height="22"><%=RS("nombre")%>
</td>
<td> <%=RS("gastos")%> </td>
<%
if total = "" Then
total = Rs("gastos")
else
valor = Rs("gastos")
total = CINT(total) + CINT(valor)
end If
Nxx = Rs("nombre")
Rs.movenext
loop
%>
</table>
<%
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>