Soma de valores ao final de uma consulta....

[maxwell2]

Amigos estou montando um sistema de consulta no banco de dados mas estou tendo dificuldades em realizar a soma no final do codigo.

O que tenho no codigo é:

PRODUTO | QUANTIDADE | VALOR

Casa | 1 peça | 1,00

Moto | 2 peças | 5,00

Essa disposição acima o meu codigo faz, mas não consigo fazer a soma no final do codigo, que nesse exemplo acima seria 6,00 (1,00+5,00). Podem me ajudar a acrescentar no codigo abaixo?:

<%@LANGUAGE="VBSCRIPT"%>

<%
response.buffer = "true"
Set Conexao = Server.CreateObject("ADODB.Connection")
dbPath = "DBQ=" & Server.Mappath("../../../dados/sistema.mdb")
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & dbPath
Set Recordset1 = Server.CreateObject("ADODB.RecordSet")
Recordset1.Open "SELECT * FROM fluxo_caixa WHERE data_venda LIKE '%"& request.form("date1") &"%' AND loja LIKE '%"& request.form("loja") &"%' order by id_fluxo_caixa" , Conexao, 1, 3
%>

<center>
<font size=3 face=verdana color=000000><b>Movimentação Caixa</b></font><br><br>
<button type="button" value="imprimir" onclick="window.print();" >Imprimir</button><hr>
</center>

<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
if Recordset1.eof then
response.write "<p> <p><center><font face='Verdana, Arial, Helvetica, sans-serif' size='3'><b>Nenhuma venda nessa data</b></font></center>"
else
%>

<table width="100%" border="0" cellspacing="5" cellpadding="2" align="center">
<tr bgcolor=#404040>
<td align=left><font size=2 color=ffffff face=verdana><b></td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>N. venda</td>
<td align=left><font size=2 color=ffffff face=verdana><b>Cod.:</td>
<td align=left width=50%><font size=2 color=ffffff face=verdana><b>Produto</td>
<td align=left width=5%><font size=2 color=ffffff face=verdana><b>Qtd.</td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>R$ Un.</td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>R$ Total</td>
<td align=left width=15%><font size=2 color=ffffff face=verdana><b>Vendedor</td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>Data</td
</tr>

<% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>

<tr>
<td bgcolor=#E1E1E1 align=left><font size=2 color=000000 face=verdana><b><%=Recordset1("id_venda")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("id_produto")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana> <%=Recordset1("produto")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("quantidade")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><b> <%=Recordset1("valor_venda")%> ,00</td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><b>  <%=Recordset1("quantidade")* Recordset1("valor_venda")%> ,00 </td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("funcionario_venda")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("data_venda")%></td>
</tr><TR><TD BGCOLOR=000000 COLSPAN=9></TD></TR>



<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
</table>


<!!!!!!!!!!!!!!!!!!!!!!!!!! SERIA NESSE ESPAÇO QUE EU QUERO POR A QUANTIDADE TOTAL DO VALOR VENDA !!!!!!!!!!!!!!!!!!!!>



<%end if %>

<%
Recordset1.Close()
%>

Obs.: Em outro tópico fiz a mesma solicitação e obtive resposta positiva, mas naquele caso o codigo era diferente e usava "request", sendo que esse acima não usa, e como sou iniciante não sei fazer a modificação.

[bareta]

veja:

http://scriptbrasil.com.br/forum/index.php?showtopic=143665

[maxwell2]

veja:

http://scriptbrasil.com.br/forum/index.php?showtopic=143665

Olá Bareta, a sua sugestao não faz o calculo que preciso.

O seu codigo faz apenas a soma dos valores dispostas na tabela:

Produto|Quantidade

Carro = 2

Moto = 3

Aviao = 2

O total seria 7, mas no meu codigo preciso:

Produto | Quantidade | Valor

Carro = 2 = 1,00 cada

Moto = 3 = 2,00 cada

Aviao = 2 = 1,00 cada

O valor do "Valor" total sera (1,00x2) + (2,00x3) + (1,00x2) = 8,00

Como fazer esse "8,00" aparecer no final do codigo que postei acima?

Se puder me ajudar a incluir já no codigo, pois não tenho noçoes de ASP, apenas sei fazer a montagem com codigos prontos.

[bareta]

já tentou

var=0
for i=1 to 10000
var=var+1
next
response.write "valor="&var

[maxwell2]

já tentou

var=0
for i=1 to 10000
var=var+1
next
response.write "valor="&var

Bareta, por favor me ajude a montar esse codigo, não sei onde por essa sua sugestao no meu codigo.

Tentei no final do codigo mas apenas apareceu a lista dos produtos e ao final "valor_venda=10000 ".