...::Satti Racing::... Finalizando Orçamento

<% 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/ EMPRESA /////////////// set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "Sistema 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 '/// E-MAIL P/ CLIENTE ////// set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "Sistema Satti Soldas " objMail.Subject = "Seu Pedido Satti Soldas" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.To = Email objMail.Body = corpo objMail.Send set objMail = nothing enviou = true session.abandon end if %> ...::Satti Racing::... Finalizando Orçamento Untitled Document

Id	Produto	Quantidade
" & produtos(0,pos) & "	" & produtos(1,pos) & "	" & produtos(2,pos) & "


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

<% if enviou then response.write "" %>