La manipulación de datos es una tarea fundamental en ASP clásico. Una de estas manipulaciones es el añadido de campos separadores y sumatorias de campos en tablas. Veamos cómo podemos realizar esta tarea.
Para entender a profundidad este tema, tomaremos como base una tabla de clientes con los siguientes campos: ID, Nombre, y Monto_Cliente. Queremos añadir un campo separador y una suma del campo Monto_Cliente.
<%
dim rs, sql
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT ID, Nombre, Monto_Cliente FROM Clientes"
rs.Open sql, Application("cn")
%>
El código anterior nos va a devolver todos los clientes con su ID, Nombre y Monto_Cliente. Supongamos que queremos añadir un campo separador después de cada fila. Podríamos hacer algo como lo siguiente:
<%
while not rs.EOF
%>
<tr>
<td><%=rs("ID")%></td>
<td><%=rs("Nombre")%></td>
<td><%=rs("Monto_Cliente")%></td>
</tr>
<tr>
<td colspan=3>----</td>
</tr>
<%
rs.MoveNext
endwhile
%>
En la parte superior estamos recorriendo cada uno de los registros de la consulta y por cada fila de datos que se obtiene, añadimos después una fila con un campo separador que ocupará todas las columnas de la tabla.
Ahora, ¿qué pasa si queremos añadir al final de la tabla un campo con la suma del campo Monto_Cliente de todos los clientes? En este caso, necesitamos hacer una consulta separada para obtener esta suma.
<%
dim rsSum, sqlSum, sumMonto
set rsSum = Server.CreateObject("ADODB.Recordset")
sqlSum = "SELECT SUM(Monto_Cliente) AS SumMonto FROM Clientes"
rsSum.Open sqlSum, Application("cn")
sumMonto = rsSum("SumMonto")
rsSum.Close
set rsSum = nothing
%>
Con estas líneas de código obtenemos la sumatoria del campo Monto_Cliente de todos los clientes. Para añadirla al final de la tabla, simplemente añadimos una fila extra:
<tr>
<td colspan=2><b>Total:</b></td>
<td><%=sumMonto%></td>
</tr>
Así, hemos añadido un campo separador y una suma del campo Monto_Cliente a nuestra tabla de clientes. Este es un ejemplo simple, pero ten en cuenta que por medio de ASP puedes manipular los datos de múltiples maneras para adaptarlos a las necesidades de tu proyecto. No dudes en experimentar y probar nuevas técnicas para obtener los resultados que deseas!.