tenho o seguinte codigo

[morfel 0]

Costaria de calcular os dados da celular valor . como se faz isto...

 

conto com a ajuda.

 

 

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strQuery = "SELECT * FROM contato"
Set ObjRs = objConn.Execute(strQuery)
%>

						<%While Not objRS.EOF %>

						 <%Response.write objRS("autonum")%>

						  <%Response.write objRS("nome")%>

						  <%Response.write objRS("valor")%>

						  <%Response.write objRS("email")%>

						  <%Response.write objRS("comentario")%>


<%objRS.MoveNext%>
<%Wend%>
<%objRs.close%>
<%objConn.close%>
<br><br><br>
<%Set objRs = Nothing%>
<%Set objConn = Nothing%>

[DSerma 19]

<%While Not objRS.EOF %>

						 <%Response.write objRS("autonum")%>

						  <%Response.write objRS("nome")%>

						  <%Response.write objRS("valor")%>

						  <%Response.write objRS("email")%>

						  <%Response.write objRS("comentario")%>
valor = valor + objRS("valor")
<%objRS.MoveNext%>
<%Wend%>

Response.Write("Valor Total: " & valor)

Abraços...

[morfel 0]

nao deu certo.... ele repetiu os valores que estao na tabela

[jrcardozo 4]

seguindo a dica do darkdemo faça essa pequena alteração

de:

valor = valor + objRS("valor")

para:

valor = 1+valor + objRS("valor")-1