inseriir resultado de uma soma em um formulário de email

Olá Pessoal! Eu tenho um script que faz a soma de quantidades de produtos e frete, e direciona isso para uma página onde há um formulário de email para confirmar. O problema é que os valores calculados não vão para o formulário. Eu quero que esses valores fiquem embutidos no formulário que é enviado por email. O email chega assim:

Usuario
senha:
Produto: nome_produto
Unidades:
Valor Total:
Forma:

O único valor que vem é o nome do produto!

Os scripts estão assim:

Formulário:
<form method="post" action="confirmacompra.asp">
<input type="hidden" name="prc" value="280">
<input type="hidden" name="produto" value="ITMPd01">
<b><font face="Arial">Unidades: <input type="text" name="a2" size="5"></font></b><p>
<b><font face="Arial">Frete</font> :       
</b> <input type="text" name="b2" size="5"><p>
<input type="submit" value="Comprar" style="font-size: 14 pt; color: #008000; font-weight: bold">
</form>

Confirmacompra.asp:

<html>
<head>
<title>MerKado Brasil: O seu ponto de Compra e Venda Na Internet!</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<base target="_blank">
</head>
<body style="background-color: rgb(255, 255, 255);">
<%
Response.Buffer = true
On Error Resume Next
unid = Request.Form("a2")
preco = Request.Form("prc")
frete = Request.Form("b2")
produto = Request.Form("produto")

if unid = "" Then
unidc = 1
Else
unidc = CInt(unid)
End If
if preco = "" Then
precoc = 0
Else
precoc = CInt(preco)
End If
if frete = "" Then
fretec = 0
Else
fretec = CInt(frete)
End If
precototal1 = unid * preco
precototal2 = precototal1 + fretec
%>
<br/>
<%
If Err.number<>0 then
Response.Redirect("paginaerro")
Response.End()
End If
%>
<table width="100%" cellspacing="0" cellpadding="0" bordercolor="#111111" border="0"

style="border-collapse: collapse;">
<tbody>
<tr>
<td width="26%" valign="top"><strong><font face="Arial">  <br />
<br />
Comprar? </font></strong>
<p><strong><font

face="Arial">Vender?             &nbsp ;&n

bsp;       &nbs p;       &nbsp ;

        &n bsp;  Anunciar?<font

size="6">      &nbsp ;   é

no</font></font></strong></p>
<p><font

face="Arial">      & nbsp;       &nb

sp;       &nbsp ;       &nbsp ;&

nbsp;        </font></p>
</td>
<td width="36%">
<p align="center">
<img height="156" width="213" border="0" alt="" src="images/logo1.jpg" /></p>
</td>
<td width="38%" valign="top"><strong><font face="Arial"> </font></strong>
<p><br />
<strong><font face="Arial">  <br />
  O seu ponto de compra  <br />
  e venda na rede! </font></strong> </p>
</td>
</tr>
</tbody>
</table>
<p align="left"><font face="Arial"

size="2">      &nbsp ;       &nbsp ;&

nbsp;       &nb sp;       &nbsp

;        & nbsp;       &nb

sp;       &nbsp ;       &nbsp ;&

nbsp;   </font> <strong> <font face="Arial" size="5">
Confirme sua compra</font></strong></p>
<p align="left"><font face="Arial" size="4">Todos os campos são de preenchimento

obrigatório!    </font></p>
<form name="Inputform" action="enviamailcompra.asp" method="post">
<table height="109" width="91%" border="0">
<input type="hidden" name="from" value="" />
<input type="hidden" name="to" value="cadastro@merkadobrasil.com.br" />
<input type="hidden" name="subject" value="" />
<input type="hidden" name="produto" value="<%=produto%>" />
<input type="hidden" name="precototal" value="<%=precototal2%>" />
<input type="hidden" name="quantidade" value="<%=unidc%>" />
<tbody>
<tr>
<td height="23" width="60%" align="left"

valign="top">Unidades:<%=unidc%><br>
Valor Unitario:<%=precoc%><br>
Frete:<%=fretec%><br/>
Valor Total:<%=precototal2%>
</td>
<td height="23" width="40%" align="left"> </td>
</tr>
<tr>
<td height="22" width="60%" align="left">
<p align="left"><strong><font face="Arial">Forma de
pagamento</font></strong><font face="Arial"><strong>
<input name="formacompra" type="radio" value="boleto" checked>
Boleto
Bancário
<input name="formacompra" type="radio" value="cartao">
Cartão de crédito</strong></font></p>
</td>
<td height="22" width="40%" align="left"><font face="Arial"><strong>

 </strong></font></td>
</tr>
<tr>
<td height="22" width="100%" valign="top" align="left" colspan="2">
<p align="left"> <strong><font face="Arial">Usuário
</font></strong> <font face="Arial"><strong>
<input name="usuario" type="text" id="usuario" size="20" />
 
Senha
<input name="senha" type="text" id="senha" size="20" />
</strong></font></p>
</td>
</tr>
<tr>
<td height="26" width="100%" align="center" colspan="2">
<p align="left">
<input type="submit" style="color: rgb(0, 128, 0); font-weight: bold;"

value="Confirmar" /><input type="reset" style="color: rgb(0, 128, 0); font-weight: bold;"

value="Cancelar" /></p>
</td>
</tr>
</tbody>
</table>
</form>
</body>
</html>

Até aqui funciona bem. Os valores calculados aparecerem na página de confirmação.
Porém, quando a pessoa preenche usuário e Senha para confirmar a compra, o formulário envia SEM os valores para o email! Dessa forma que vem para o email:

Usuario
senha:
Produto: nome_produto
Unidades:
Valor Total:
Forma:

Só aparece o nome_produto! Os valores que foram calculados e aparecem na página de confirmar, não vão para o email. Como resolver isso?
o asp do sendmail é esse:

<%

Set message = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set param = conf.Fields

param("http://schemas.Microsoft.com/cdo/configuration/sendusing") = 2
param("http://schemas.Microsoft.com/cdo/configuration/smtpserver") =

"localhost"
param.Update

strFrom = Request.Form("from")
strTo = Request.Form("to")
strSubject = Request.Form("subject")
strProduto = Request.Form("Produto")
strValor = Request.Form("precototal")
strQuantidade = Request.Form("quantidade")
strForma = Request.Form("formacompra")
strUsuario = Request.Form("usuario")
strSenha = Request.Form("senha")

aux1 = chr(13)
aux2 = chr(10)
regex= "\\n|\\r|cc\:|bcc\:|"& aux1 &"|"& aux2
Set objRegExp = New RegExp
objRegExp.Pattern = regex
objRegExp.IgnoreCase = True
objRegExp.Global = True

strFrom = objRegExp.Replace(strFrom,"")
strTo = objRegExp.Replace(strTo,"")
strSubject = objRegExp.Replace(strSubject,"")
strProduto = objRegExp.Replace(strProduto,"")
strValor = objRegExp.Replace(precototal,"")
strQuantidade = objRegExp.Replace(quantidade,"")
strForma = objRegExp.Replace(formacompra,"")
strUsuario = objRegExp.Replace(usuario,"")
strSenha = objRegExp.Replace(senha,"")

Set message.configuration = conf

message.from = "cadastro@merkadobrasil.com.br"
message.To = "cadastro@merkadobrasil.com.br"
message.Subject = StrSubject
message.htmlBody = "<b>Usuario</b>" & strUsuario & "<b><br>senha: </b>" &

strSenha & "<b><br>Produto: </b>" & strProduto & "<b><br>Unidades: </b>" &

strQuantidade & "<b><br>Valor Total: </b>" & strValor & "<b><br>Forma: </b>"

& strForma

' Envia a mensagem!
message.send

'Atribui nothing ao objeto para que ele se torna inválido imediatamente após

o envio
'Não podendo ser utilizado dois "sends" para o mesmo objeto New Mail
Set message = nothing

'Msg = "Mensagem enviada com sucesso!"

'Response.Write "<html><body><table align=center><tr><td> </td></tr>"
'Response.Write "<tr><td> </td></tr>"
'Response.Write "<tr><td><font face=Verdana><b>"& Msg

&"</b></font></td></tr>"
'Response.Write "</body></html>"

Response.Redirect "compraconf.htm"

%>

Alguém Pode me ajudar a resolver isso?
Agradeço!

Topic	Forum	Started By	Stats	Last Post Info
Function Email (Invalid Address in)	PHP	Walter Albuquerque	1 Reply 783 Views	03 July 2007 - 09:12 PM By: Wanderson Regis
Carregar vários swf's de uma so vez. por somente um preloader...	Flash & ActionScript	ethoshow	0 Replies 506 Views	08 December 2005 - 02:36 PM By: ethoshow
Meu Novo Portifólio deem uma olhada no portifólio	Portfólio	sivleweb	2 Replies 1286 Views	30 October 2006 - 06:19 PM By: danieldpaola
Digitar snha e entra em um sistema de restremaneto flash com uma url de um sistema pronto	Flash & ActionScript	aprendiz5	3 Replies 429 Views	17 February 2009 - 08:24 PM By: Rodrigo Pixel
No proximo desafio... manda fazer uma animação com humor...	Desafio	nenzinho	1 Reply 1065 Views	25 April 2005 - 12:28 PM By: MXDesign
Avaliem meu site Dei-me uma nota para este site	Avaliação	oguedes	1 Reply 585 Views	05 July 2005 - 03:59 PM By: danieldpaola
Irã envia forças especiais para prender piratas somalis	Notícias	Notícias	0 Replies 188 Views	14 November 2009 - 10:26 AM By: Notícias
Criador do FarmVille diz que internet é uma "grande festa"	Notícias	Notícias	0 Replies 53 Views	01 December 2010 - 07:05 PM By: Notícias

..:: MX Studio Fóruns ::..: inseriir resultado de uma soma em um formulário de email - ..:: MX Studio Fóruns ::..

Publicidade

ATENÇÃO