Multiplicar valores do Select

[regitronic 0]

Boa Tarde Pessoal,

Como eu faço para multiplicar valores do select.

Meu BD tem uma coluna quantidade e valor.

Eu resgatei os valores atraves de response.write e do while not, então são resgatadas varias linhas da minha tabela do BD como faço pra ele multiplicar todas as quantidades por valores e dar a soma total do pedido?

Tentei fazer assim mas so multiplica o primeiro valor.

 

<!--#include file="conecta.asp"-->.
<%
on error resume next
cliente = request.Form("cod")
'seleciona o cliente na tabela cliente
set rc = conexao.execute("SELECT * FROM clientes WHERE codigo='"&cliente&"'")
'seleciona a maior data do banco para o cliente
set maxdata = conexao.execute("SELECT max(data) AS cod FROM pedidos WHERE cod_cliente='"&cliente&"'")
data = maxdata.Fields("cod").Value
'seleciona numero do pedido maximo
set maxpedido = conexao.execute("SELECT max(num_pedido) AS cod1 FROM pedidos WHERE cod_cliente='"&cliente&"' AND data='"&data&"'")
pedidomax = maxpedido.Fields("cod1").Value
'seleciona maior pedido paca o cliente conforme a data
set pedido = conexao.execute("SELECT * FROM pedidos WHERE cod_cliente='"&cliente&"' AND data='"&data&"' AND num_pedido='"&pedidomax&"'")
'funcao multiplica
set multi = conexao.execute("SELECT quantidade*valor AS cod2 FROM pedidos WHERE cod_cliente='"&cliente&"' AND data='"&data&"' AND num_pedido='"&pedidomax&"'")
total = multi.Fields("cod2").Value

%>
<style type="text/css">
<!--
.style20 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }
.style21 {font-size: 10px}
.style41 {font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
}
-->
</style>
<title>Sistema de Pedidos Regitronic</title><table width="791" height="496" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="1" rowspan="38" bgcolor="#003466"><div align="right"></div></td>
    <td colspan="4"><img src="top.jpg" width="800" height="135" /></td>
  </tr>
  <tr>
    <td width="10"> </td>
    <td colspan="2"><!--#include file="menu.asp"-->
       </td>
    <td width="10"> </td>
  </tr>
  <tr>
    <td> </td>
    <td width="402" class="style41">Nome:
      <label>
        <input name="nome" type="hidden" class="style41" id="nome"  value="<%response.Write rc("nome")%>" />
        <input name="nome2" type="text" class="style41" id="nome2" disabled="disabled" value="<%response.Write rc("nome")%>" />
      </label></td>
    <td width="368" class="style41"> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td class="style41"> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td colspan="2" rowspan="14"><form action="insereproduto.asp?nome=<%response.Write(request.querystring("nome"))%>&cod=<%response.Write(request.form("cod"))%>&num_pedido=<%response.Write(request.Form("num_pedido")) %>" method="post" name="form1" id="form1">
      <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
        <tr>
          <td width="15%" class="style41"><div align="center">CODIGO</div></td>
          <td width="56%" class="style41"><div align="center">NOME</div></td>
          <td colspan="4" class="style41"><label>
            <div align="center">QUANTIDADE            
              </label>
            </div></td>
          <td width="12%" class="style41"><div align="center">PREÇO</div></td>
        </tr>
        <tr> <% do while not pedido.eof %>
          <td><label>
            <div align="center">
              <label></label>
              <% response.Write pedido("codigo")  %>
            </div>
          </label></td>
          <td><div align="center">
            <% response.Write pedido("nome") %>
             </div></td>
          <td colspan="4" class="style41"><div align="center">
            <% response.Write pedido("quantidade") %>
             </div></td>
          <td class="style41"><div align="center">
            <% response.Write pedido("valor") %>
             </div></td>
        </tr>
        <tr>
		<% pedido.movenext 
		loop%>
          <td><% response.Write maxdata("cod") %>   </td>
          <td><%response.Write maxpedido("cod1") %> </td>
          <td colspan="4" class="style41"><div align="center"><strong>TOTAL:</strong></div></td>
          <td class="style41"><div align="center">
                        <% response.Write multi("cod2") %> </div></td>
        </tr>
      </table>
    </form>
        <label></label></td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td><span class="style21"></span></td>
    <td> </td>
  </tr>
  <tr>
    <td class="style20"> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td colspan="4" bgcolor="#003466"> </td>
  </tr>
</table>
<%
conexao.close
set conexao = nothing
set rc = nothing
set maxdata = nothing
set maxpedido = nothing
set pedido = nothing
set multi = nothing
%>

[xanburzum 169]

use a matematica simples, lembrando k os dados devem ser do tipo numerico, senaun precisará converter