<% cadastro=request("cadastro") if cadastro="1" then nomeMail=request("nome") email=request("email") telefone=request("telefone") endereco=request("endereco") taxasp=request("taxasp") taxasd=request("taxasd") if taxasp>0 then acressimo = "
* acressimo de "&taxasp&"% de acordo com a taxa escolhida: "&taxasd&"
" else acressimo = "
* nenhum acressimo, taxa escolhida: "&taxasd&"
" end if vetor = session("carrinho") vetorQt = session("quantidade") produtos = "'"&vetor(0)&"'" for i = LBound(vetor)+1 to UBound ( vetor ) produtos = produtos &",'"& vetor(i)&"'" next set Cadastros = conn.execute("select * from Produtos where codigoProduto in ("&produtos&") order by codigoProduto, nome") corpo = "
Itens do Orçamento

"&_ ""&_ " "&_ ""&_ ""&_ ""&_ ""&_ ""&_ "" dim ind,totalMail ind = 0 totalMail = 0 do while not Cadastros.eof nome=Cadastros("nome") codigoProduto=Cadastros("codigoProduto") preco=Cadastros("preco") totalMail = totalMail+preco*request("qt"&ind) corpo = corpo& " "&_ ""&_ ""&_ ""&_ ""&_ ""&_ "" Cadastros.movenext ind = ind+1 loop corpo = corpo& " "&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ " "&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "
CódigoProdutoPreçoQuantidadeTotal
"&codigoProduto&""&nome&"R$ "&preco&""&request("qt"&ind)&""&FormatCurrency(preco*request("qt"&ind))&"
  Sub Total"&FormatCurrency(totalMail)&"
  Total"&FormatCurrency(totalMail+(totalMail/100*taxasp))&"
"&_ acressimo corpo = corpo& "
Dados Pessoais:

"&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "
Nome"&nomeMail&"
E-mail"&email&"
Telefone"&telefone&"
Endereço"&endereco&"
" mensagemUsuario = " "&_ " "&_ " "&_ " "&_ "
» » Prezado(a) "&nomeMail&".

"&_ " Obrigado por utilizar nossos serviços on-line.Em breve você estará recebendo por e-mail informações sobre o orçamento solicitado.




" mensagemFerreira =" "&_ " "&_ " "&_ " "&_ "
» » Novo Orçamento.

"&_ " Nova solicitação de orçamento.




" corpoTexto="" corpoTexto=corpoTexto&"" corpoTexto=corpoTexto&"FERREIRA PINTO" corpoTexto=corpoTexto&"" corpoTexto=corpoTexto&"" corpoTexto=corpoTexto&"" corpoTexto=corpoTexto&"" corpoTexto=corpoTexto&"" corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&"
" corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&" " corpoTexto=corpoTexto&"
" corpoTexto=corpoTexto&" [mensagem]" corpoTexto=corpoTexto&"
"&corpo&"
" corpoTexto=corpoTexto&"
" corpoTexto=corpoTexto&"" corpoTexto=corpoTexto&"" corpoTexto2=Replace(corpoTexto,"[mensagem]",mensagemUsuario) dim mail set mail = server.CreateObject("CDONTS.NewMail") mail.From = "Ferreira Pinto " mail.To = email mail.Subject = "Ferreira Pinto" mail.body = corpoTexto2 mail.BodyFormat = 0 mail.MailFormat = 0 mail.Send set mail = nothing corpoTexto2=Replace(corpoTexto,"[mensagem]",mensagemFerreira) dim mail2 set mail2 = server.CreateObject("CDONTS.NewMail") mail2.From = nomeMail&"<"&email&">" mail2.To = "osvaldo@zaite.com.br" mail2.Subject = "Ferreira Pinto (orçamento)" mail2.body = corpoTexto2 mail2.BodyFormat = 0 mail2.MailFormat = 0 mail2.Send set mail2 = nothing %> <% end if %> FERREIRA PINTO
<%if produtos<>"" then 'Se a busca não encontrar nada%> <%end if 'Se a busca não encontrar nada%>