Ir ao conteúdo
  • Cadastre-se

Inserir em um formulário de email o resultado de uma soma


Spider3

Posts recomendados

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?               ;&n

bsp;       &nbs p;         ;

        &n bsp;  Anunciar?<font

size="6">        ;   é

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

<p><font

face="Arial">      & nbsp;       &nb

sp;         ;         ;&

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;       &nb sp;        

;        & nbsp;       &nb

sp;         ;         ;&

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="[email protected]" />

<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 = "[email protected]"

message.To = "[email protected]"

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!

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!