<% on error resume next Set UploadRequest = Server.CreateObject("Dundas.Upload.2") UploadRequest.SaveToMemory pasta="C:\Inetpub\vhosts\dinhocaricaturas.com.br\httpdocs\fotos_clientes" act = UploadRequest.form("act") if act="" then act=request.form("act") end if if act="" then act=request.querystring("act") end if if act="enviar" then %>

<% tcor =UploadRequest.form("cor") tqtd =UploadRequest.form("qtd") tocasiao =UploadRequest.form("ocasiao") tcenario =UploadRequest.form("cenario") tmascote =UploadRequest.form("mascote") tqtdmascote =UploadRequest.form("qtdmascote") turgencia =UploadRequest.form("urgencia") tmensagem =UploadRequest.form("mensagem") tnome =UploadRequest.form("nome") temail =UploadRequest.form("email") ttel =UploadRequest.form("tel") tcpf =UploadRequest.form("cpf") ttotal =UploadRequest.form("total_compra") if tcor=1 then tcor2="colorida" else tcor2="preta e branca" end if if tqtd=1 then nome_produto="Caricatura de "&tocasiao&", "&tcor2&" com 1 pessoa" else nome_produto="Caricatura de "&tocasiao&", "&tcor2&" com "&tqtd&" pessoas" end if if tmascote=1 then nome_produto=nome_produto&" e sem mascote" else if tqtdmascote=1 then nome_produto=nome_produto&" e com 1 mascote" else nome_produto=nome_produto&" e com "&tqtdmascote&" mascotes" end if end if if tcenario=1 then nome_produto=nome_produto&", sem cenário personalizado" else nome_produto=nome_produto&", com cenário personalizado" end if if turgencia=1 then nome_produto=nome_produto&", sem urgência" else nome_produto=nome_produto&", com urgência" end if nome_produto=nome_produto&" no valor de R$ "&ttotal&",00" %> <% nomesimagen="" '## SALVA Arquivo for each uploaded in UploadRequest.files nome_foto=UploadRequest.GetFileName(uploaded.OriginalPath) if nomesimagen="" then nomesimagen=nome_foto else nomesimagen=nomesimagen&"#$separa_tudo$#"&nome_foto end if arquivcomp = pasta&"\"&nome_foto uploaded.SaveAs(arquivcomp) response.Flush() next links="" splnome=split(nomesimagen,"#$separa_tudo$#") for i=Lbound(splnome) to Ubound(splnome) if links="" then links=""&splnome(i)&"
" else links=links&""&splnome(i)&"
" end if next tbody=""&now&"
"&_ "Nome: "&tnome&"
"&_ "eMail: "&temail&"
"&_ "Telefone: "&ttel&"
"&_ "CPF: "&tcpf&"
"&_ "Assunto: "&nome_produto&"
"&_ "Links Fotos: "&links&"
"&_ "Mensagem: "&tmensagem&"" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.IsHTML = True Mail.From = temail Mail.MailFrom = temail Mail.FromName = tnome&" [COMPRE JÁ - DINHO CARICATURAS]" Mail.AddAddress "dinho@dinhocaricaturas.com.br", "Dinho Caricaturas" Mail.Subject = tassunto Mail.Body = tbody On Error Resume Next Mail.Send Set Mail = Nothing %> <% '############################################################################# '############################################################################# '############################################################################# '############################################################################# '############################################################################# '############################################################################# '############################################################################# elseif act="deposito" then tcor =UploadRequest.form("cor") tqtd =UploadRequest.form("qtd") tocasiao =UploadRequest.form("ocasiao") tcenario =UploadRequest.form("cenario") tmascote =UploadRequest.form("mascote") tqtdmascote =UploadRequest.form("qtdmascote") turgencia =UploadRequest.form("urgencia") tmensagem =UploadRequest.form("mensagem") tnome =UploadRequest.form("nome") temail =UploadRequest.form("email") ttel =UploadRequest.form("tel") tcpf =UploadRequest.form("cpf") ttotal =UploadRequest.form("total_compra") if tcor=1 then tcor2="colorida" else tcor2="preta e branca" end if if tqtd=1 then nome_produto="Caricatura de "&tocasiao&", "&tcor2&" com 1 pessoa" else nome_produto="Caricatura de "&tocasiao&", "&tcor2&" com "&tqtd&" pessoas" end if if tmascote=1 then nome_produto=nome_produto&" e sem mascote" else if tqtdmascote=1 then nome_produto=nome_produto&" e com 1 mascote" else nome_produto=nome_produto&" e com "&tqtdmascote&" mascotes" end if end if if tcenario=1 then nome_produto=nome_produto&", sem cenário personalizado" else nome_produto=nome_produto&", com cenário personalizado" end if if turgencia=1 then nome_produto=nome_produto&", sem urgência" else nome_produto=nome_produto&", com urgência" end if nome_produto=nome_produto&" no valor de R$ "&ttotal&",00" nomesimagen="" '## SALVA Arquivo for each uploaded in UploadRequest.files nome_foto=UploadRequest.GetFileName(uploaded.OriginalPath) if nomesimagen="" then nomesimagen=nome_foto else nomesimagen=nomesimagen&"#$separa_tudo$#"&nome_foto end if arquivcomp = pasta&"\"&nome_foto uploaded.SaveAs(arquivcomp) response.Flush() next links="" splnome=split(nomesimagen,"#$separa_tudo$#") for i=Lbound(splnome) to Ubound(splnome) if links="" then links=""&splnome(i)&"
" else links=links&""&splnome(i)&"
" end if next tbody=""&now&"
"&_ "Nome: "&tnome&"
"&_ "eMail: "&temail&"
"&_ "Telefone: "&ttel&"
"&_ "CPF: "&tcpf&"
"&_ "Assunto: "&nome_produto&"
"&_ "Links Fotos: "&links&"
"&_ "Mensagem: "&tmensagem&"" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.IsHTML = True Mail.From = temail Mail.MailFrom = temail Mail.FromName = tnome&" [COMPRE JÁ - DINHO CARICATURAS]" Mail.AddAddress "dinho@dinhocaricaturas.com.br", "Dinho Caricaturas" Mail.Subject = tassunto Mail.Body = tbody On Error Resume Next Mail.Send Set Mail = Nothing %>

Parabéns!

Você optou por pagamento via depósito bancário! Os dados da sua caricatura já foram enviados! O próximo passo é fazer o pagamento via depósito bancário. Você pode também fazer transferência entre contas ou um DOC, caso prefira. A conta para depósito é: Banco Bradesco Conta Poupança: 7823-9 Agência: 3317-0 Titular: Wdson Sandenys M de Oliveira CPF: 364.996.088-58 Valor: R$ <%=ttotal%>,00 Descrição: <%=nome_produto%> Assim que você efetuar o pagamento, envie-nos um email (dinho@dinhocaricaturas.com.br) informando seu nome e data de pagamento, para que possamos dar início ao seu desenho. Se tiver alguma dúvida, entre na nossa seção "dúvidas" ou "contato" e envie-nos sua mensagem. Obrigado pela preferência!

<% %> <% response.end end if %>

Compre já!
<% for h=1 to 10 %> <% next %> A caricatura deverá ser: Colorida Preto/Branco VALOR Quantidade de Pessoas na Caricatura: <% for i=0 to 99 j=i if len(j)=1 then j="0"&j end if %> <%=i%> <% next %> Informe para qual ocasião será a caricatura: Acrescentar um cenário personalizado? Não Sim Acrescentar algum mascote ou veículo? Não Sim <% for i=1 to 99 j=i if len(j)=1 then j="0"&j end if %> <%=j%> <% next %> Urgência na Entrega? (24 a 48 horas) Não Sim Faça uma descrição de como deve ser o desenho. Quanto mais informações, melhor. Você pode inclusive consultar nossa opinião sobre qual tema colocar no desenho. Nome:      e-Mail:     Telefone: CPF:	TOTAL: