ASP - Sumar una Columna en ASP

 
Vista:

Sumar una Columna en ASP

Publicado por xpopex (2 intervenciones) el 24/08/2007 17:56:29
Hola a todos buenas tardes...

Tengo una pagina en asp la cual me trae datos de una consulta que tengo en Access.

Esta pagina me trae los resultados en una tabla que hice en la pagina de asp, lo que quiero es sumar las columnas de importes que tengo en la tabla, pero no c como, les dejo el codigo para ver si alguien de ustedes me puede ayudar.

Otro dato importante es que los datos de importes estan en Access como texto.

La columna que se genera es

# = Numero de Registros AÑO CREDITO IMPORTE_1 IMPORTE_2



<%@ LCID = 2058 %>
<% Option Explicit %>
<!--#include file="../../../adovbs.inc"-->
<%

Dim objConn1
Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.ConnectionString= "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=d:/wwwroot/sistemas/seguros/seguros_1.mdb"
objConn1.Open

Dim objRS1
Set objRS1 = Server.CreateObject("ADODB.Recordset")

objRS1.CursorLocation= adUseClient

objRS1.Open "analitico_intensidad" , objConn1, adOpenStatic

If objRS1.EOF then
Ucase()
End if
%>
<style type="text/css">
<!--
.style21 {font-weight: bold}
.Estilo4 {color: #FF0000}
-->
</style>

<div align="center">
<p><strong>SINIESTROS CAPTURADOS <span class="Estilo4"></span><br />
</strong></p>
</div>
<table id="datos" width="950" style="display:" align="center" border=".1" cellpadding="0" cellspacing="0">
<TR>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> # </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> AÑO </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> CREDITO </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> IMPORTE_1 </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> IMPORTE_2 </B> </TD>
</TR>
<p><%

Dim icuentaregistros1
icuentaregistros1 = 0

Do While Not objRS1.EOF
icuentaregistros1 = icuentaregistros1 + 1
Response.Write "<TR><TD> <B><center><h5> " & icuentaregistros1 & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & objRS1("anio") & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & objRS1("cre_aut_1") & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & formatnumber(cdbl(objRS1("imp_tra_1")),2) & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & formatnumber(cdbl(objRS1("imp_apl_1")),2) & "</B></TD></TR>"

objRS1.MoveNext
Loop
objRS1.Close
Set objRS1=Nothing

objConn1.Close
Set objConn1 = Nothing
%>

<p> </p>
<p>
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder