<% option explicit session.lcid = 1046 if request.queryString("acao")="finalizar" then dim produtos produtos = session("PRODUTOS") dim nome, email, telefone, endereco, bairro, cidade, cep, estado nome = request.form("nome") email = request.form("email") telefone = request.form("telefone") endereco = request.form("endereco") bairro = request.form("bairro") cidade = request.form("cidade") cep = request.form("cep") estado = request.form("estado") dim tabela, corpo, cont, total, pos, cor tabela = "" tabela = tabela& " " tabela = tabela& " " tabela = tabela& " " tabela = tabela& " " tabela = tabela& " " cor = "ffffff" cont = 0 total = 0 for pos = 0 to ubound(produtos,2) tabela = tabela&"" tabela = tabela&" " tabela = tabela&" " tabela = tabela&" " tabela = tabela&"" cont = cont+1 if cor = "f0f0f0" then cor = "ffffff" else cor = "f0f0f0" end if next corpo = "" corpo = corpo&"Solicitação de Orçamento

" corpo = corpo&"Nome: "&Nome&"
" corpo = corpo&"E-mail: "&Email&"
" corpo = corpo&"Telefone: "&Telefone&"
" corpo = corpo&"Endereço: "&Endereco&"
" corpo = corpo&"Bairro: "&bairro&"
" corpo = corpo&"Cidade: "&Cidade&"
" corpo = corpo&"CEP: "&CEP&"
" corpo = corpo&"Estado: "&Estado&"
" corpo = corpo&"
" corpo = corpo&"Pedido

" corpo = corpo&"Data: "&date()&"
" corpo = corpo&"Hora: "&time()&"

" corpo = corpo&tabela corpo = corpo&"" 'response.write corpo : response.end dim objMail '/// E-MAIL P/ D2A /////////////// set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "Satti Soldas " objMail.Subject = "Pedido de orçamento" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.To = "orcamento@sattisoldas.com.br" objMail.Body = corpo objMail.Send set objMail = nothing set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "Satti Soldas " objMail.Subject = "Seu Pedido" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.To = Email objMail.Body = corpo objMail.Send set objMail = nothing session.abandon response.redirect "default.asp" end if %> ... Satti Soldas ...
IdProdutoQuantidade
" & produtos(0,pos) & "" & produtos(1,pos) & "" & produtos(2,pos) & "
 
 




Por Favor, preencha o formulário abaixo com os seus dados, e logo clique em ENVIAR PEDIDO. Seu Pedido de Orçamento será recebido pela nossa equipe e respondido o mais breve possível.

Nome completo: 
E-Mail: 
Nascimento: 
Carro: 
Telefone:   (DDD + número)
Endereço: 
Bairro: 
Cidade: 
CEP: 
Estado: 
';" value="Voltar">
 



 
   
 
189.14.96.22