Estoy probando este codigo pero no lo puedo hacer funcionar!
<%
SQL = "Driver={SQL Server};Description=sqldemo;SERVER=sql_ipaper; UID=sa;PWD=sa;DATABASE=DATA_04"
set oConn = server.createobject("adodb.connection")
oConn.open SQL
NxSQL ="SELECT nombre, gastos 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="0" bordercolor="#CCCCCC">
<tr>
<td width="50%">Nombre</td>
<td>Gastos</td>
</tr>
<%do while not Rs.eof%>
<%
If Session("total") = false Then
Session("total") = RS("gastos")
else
Session("total") = Session("total")
End If
If RS("nombre") <> RS("nombre") Then
Session("total") = Session("total")
Else
Session("total") = Session("total") + Rs("gastos")
End If
%>
<tr>
<td height="22"><%= RS("nombre") %></td>
<td><%= RS("gastos") %></td>
</tr>
<%if RS("nombre") <> RS("nombre") Then%>
<tr>
<td><div align="right">Total :</div></td>
<td><%=Session("total") %></td>
</tr>
<%
Else
End If
%>
<%
Rs.movenext
loop
%>