Ir para conteúdo

POWERED BY:

Arquivado

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

Spider3

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

Por , em ASP Clássico

Recommended Posts

Spider3    0

Spider3
Postado

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="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!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Charles Rodrigues    0

Charles Rodrigues
Postado

Olá, pelo tempo curto não li por completo o código, mas entendi +-

Espero ajudar, qualquer coisa, ADD charles@criativoagencia.com (APENAS MSN e-mail n funciona.)

 

<input type ="text" name="nomeempresa" value="<%=nomedavariavel%>">

 

 

O código asp você tem que colocar entre aspas duplas, a título de experiência não faça isso e verá que se o conteúdo da variável for uma frase ele somente escreverá a primeira, as aspas duplas evitam esse erro.

Qualquer coisa to por aqui. Flw

Compartilhar este post

Link para o post
Compartilhar em outros sites

Spider3    0

Spider3
Postado

Não saquei... Poderia me dar um exemplo melhor?

 

Olá, pelo tempo curto não li por completo o código, mas entendi +-

Espero ajudar, qualquer coisa, ADD charles@criativoagencia.com (APENAS MSN e-mail n funciona.)

 

<input type ="text" name="nomeempresa" value="<%=nomedavariavel%>">

 

 

O código asp você tem que colocar entre aspas duplas, a título de experiência não faça isso e verá que se o conteúdo da variável for uma frase ele somente escreverá a primeira, as aspas duplas evitam esse erro.

Qualquer coisa to por aqui. Flw

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito