Somar variáveis em asp

[Guest --Daniel --]

tenho a seguinte função pra converter os valores digitados inteiros.

FUNCTION Moeda(valor)

Valor1= mid(valor, 1, len(valor) - 2)

Decima = mid(valor, len(valor) - 1, 2)

Moeda = Valor1 & "," & Decima

END FUNCTION

e tenhos duas variáveis: preço e frete. gostaria de somar as duas e resultar em uma outra variável que seria o total.

tenho o seguinte código que modifiquei um monte de vezes e não consegui nada... ai vai errado mesmo...

Preço: R$ <%= Moeda(session("varPreco"))%> <br>

Frete: R$ <%= Moeda(session("varFrete"))%> <br>

Total: R$ <%=(session("varPreco" +"varFrete")) %> <br>

<%Session("varTotal") = session("("varPreco" +"varFrete")")%>

Se alguém puder me ajudar... Grato.

[jow]

Não entendi porque você usa sessions para armazenar os valores !!! tenta isso

FormatNumber((cálculo,2)

[Guest --Daniel --]

estou utilizando essas seasions pois esses valores vão ser enviados para outra página individualmente. Existe alguma outra forma de realizar.

Valeu. :rolleyes:

[jow]

Tendi a forma q você quer fazer, você está querendo trabalhra com sessions, mas pelo o q eu estou vendo os valores q formam um cálculo estão vindo do banco de dados, né ?? Nesse caso não é necessário trabalhar com sessions ...

Preço: R$ <%= FormatNumber(("varPreco"),2)%> <br>
Frete: R$ <%= FormatNumber(("varFrete"),2)%> <br>
Total: R$ <%=FormatNumber(("varPreco" +"varFrete"),2) %> <br>
<%FormatNumber(("varTotal"),2) = FormatNumber((varPreco +varFrete),2)%>

Editado Junho 6, 2008 por jow

[Guest --Daniel --]

Fiz o teste e deu o seguinte erro: Erro de tempo de execução do Microsoft vb script:fsubmit(1)>

<table width="288" border="0" align="center">

<input type="hidden" name="tp_produto">

<tr>

<td width="148" height="38" align="middle">

<div align="center">

<p><img src="img\card_visa.jpg"><br>

<span class="style3"> Visa Cr&eacute;dito</span><br>

</p>

</div> </td>

<td width="130" align="middle" valign="middle"> <div align="left">

<div align="left">

<input type="text" name="bin"size="6" maxlength="6">

</div></td>

<tr>

<td height="23" colspan="2" align="middle"><div align="left">

<hr>

</div> </td>

<tr>

<td height="24" align="middle"><div align="center"><strong class="style3"><img src="img\card_visa_electr.jpg"><br>

Visa Electron </strong><br>

</div></td>

<td align="center" valign="middle">

<div align="left">

<select name="bank" size="1" onChange="java script:fsubmit(2)">

<option value=""></option>

<option value="237">Banco Bradesco</option>

</select>

</div>

</table>

<br>

<br>

<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td><div align="center"><a href="java script:history.back(-1);"><img src="img/voltar.gif" alt=Voltar width="150" height="25" hspace=26 border=0></a>

<input type=image name=point2 src="Img/avancar.gif" onClick="java script:fsubmit(1)">

</div></td>

<td><div align="center"></div></td>

</tr>

</form>

<td width="295" valign="top">

</table>

<p><br>

</p>

<div align="center"> <A href="java script:history.back(-1);"> </A> </div> </td>

</tr>

<tr> </tr>

</table></td>

</tr>

</body>

</html>

<script>

function fsubmit(svalue){

document.form1.tp_produto.value= svalue;

document.form1.submit();

}

</script>

Obrigado pela ajuda até agora.

[Guest --Daniel --]

Desculpe deu algum erro em colar... essa é a página. Grato pela ajuda

<%Response.Buffer = true

session("Nome_Comprador") = Request.Form("campo_nome_comprador")

session("Email_comprador") = Request.Form("campo_email")

session("Tel_comprador") = Request.Form("campo_telefone")

session("Nome") = Request.Form("campo_nome_entrega")

session("Endereco") = Request.Form("campo_endereco")

session("Bairro") = Request.Form("campo_bairro")

session("Cidade") = Request.Form("campo_cidade")

session("Estado") = Request.Form("campo_uf")

session("Cep") = Request.Form("campo_cep")

session("loop") = 1

varUF = Request.Form("campo_uf")

if varId = "" then varId = 0 end if

FUNCTION Moeda(valor)

Valor1= mid(valor, 1, len(valor) - 2)

Decima = mid(valor, len(valor) - 1, 2)

Moeda = Valor1 & "," & Decima

END FUNCTION

%>

<html>

<head>

<title>Confirmação de Pagamento</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel=stylesheet href="estilos.css" type="text/css">

<style type="text/css">

<!--

.style1 {color: #666666}

body {

background-color: #f0f0f0;

}

.style3 {

color: #666666;

font-family: Arial;

font-weight: bold;

font-size: 12px;

}

-->

</style>

</head>

<body text="#000000">

<table width="600" border="0" cellpadding="0" cellspacing="0">

<tr>

<td>&nbsp;</td>

</tr>

<tr>

<td valign="top"><table width="600" align="left" height="524">

<tr>

<td width="295" valign="top">

<table width="590" border="0" align="center">

<tr>

<td width="584" valign="top" class="subtitulo">

<div align="center" class="style1">Pagamento</div> </td>

</tr>

<tr>

<td height="60" align="center" valign="middle" class="subtitulo"><img src="Img/produtos.jpg" width="400" height="50"></td>

</tr>

</table>

<br>

<br>

<table align="center" border="0" width="500" bgcolor="#ffffff" cellpadding="0" cellspacing="0">

<tr>

<td align=middle valign="_top" bgcolor="#f0f0f0">Produto: <b><%=session("varProd")%> </b><br>

<br>

Preço: R$ <%= FormatNumber(("varPreco"),2)%> <br>

Frete: R$ <%= FormatNumber(("varFrete"),2)%> <br>

Total: R$ <%=FormatNumber(("varPreco" +"varFrete"),2) %> <br>

<%FormatNumber(("varTotal"),2) = FormatNumber((varPreco +varFrete),2)%>

<br> </td>

</tr>

</table>

<br>

<br>

<span class="style3">Para utilizar a forma de pagamento do Visa Cr&eacute;dito Favor digitar os 6 (seis) primeiros digitos de seu cart&atilde;o Visa no campo correspondente.</span><br>

<form name="form1" action="pagina04.asp" method="post" onsubmit=java script:fsubmit(1)>

<table width="288" border="0" align="center">

<input type="hidden" name="tp_produto">

<tr>

<td width="148" height="38" align="middle">

<div align="center">

<p><img src="img\card_visa.jpg"><br>

<span class="style3"> Visa Cr&eacute;dito</span><br>

</p>

</div> </td>

<td width="130" align="middle" valign="middle"> <div align="left">

<div align="left">

<input type="text" name="bin"size="6" maxlength="6">

</div></td>

<tr>

<td height="23" colspan="2" align="middle"><div align="left">

<hr>

</div> </td>

<tr>

<td height="24" align="middle"><div align="center"><strong class="style3"><img src="img\card_visa_electr.jpg"><br>

Visa Electron </strong><br>

</div></td>

<td align="center" valign="middle">

<div align="left">

<select name="bank" size="1" onChange="java script:fsubmit(2)">

<option value=""></option>

<option value="237">Banco Bradesco</option>

</select>

</div>

</table>

<br>

<br>

<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td><div align="center"><a href="java script:history.back(-1);"><img src="img/voltar.gif" alt=Voltar width="150" height="25" hspace=26 border=0></a>

<input type=image name=point2 src="Img/avancar.gif" onClick="java script:fsubmit(1)">

</div></td>

<td><div align="center"></div></td>

</tr>

</form>

<td width="295" valign="top">

</table>

<p><br>

</p>

<div align="center"> <A href="java script:history.back(-1);"> </A> </div> </td>

</tr>

<tr> </tr>

</table></td>

</tr>

</body>

</html>

<script>

function fsubmit(svalue){

document.form1.tp_produto.value= svalue;

document.form1.submit();

}

</script>

[jow]

No seu banco de dados você está usando algum campo inteiro ?

[Guest --Daniel --]

Não estou trabalhando com banco de dados... esses valores são digitados inteiros por exemplo R$1,00 a pessoa digita 100... então esses dados vem de formulários preenchidos em outros passos.

Esta página que está dando problema é somente na soma dos valores vindos destas variáveis... que não está sendo efetuada...

Gostaria que os dados que foram preenchidos anteriormente fosse impressos como já estão sendo... e gostaria que fosse somado os valores gerando uma outra variável que seria o total.

Essa variável total tenho que armazená-la também pois depois ela será transmitida a outra página... e através de um componente será convertida para xml e transmitida para a visa.

Muito Obrigado pela atenção... :rolleyes: