<% '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# CÓDIGO: VirtuaStore Versão OPEN - Copyright 2001-2004 VirtuaStore '# URL: http://comunidade.virtuastore.com.br '# E-MAIL: comunidade@virtuastore.com.br '# AUTORES: Otávio Dias(Desenvolvedor) '# '# Este programa é um software livre; você pode redistribuí-lo e/ou '# modificá-lo sob os termos do GNU General Public License como '# publicado pela Free Software Foundation. '# É importante lembrar que qualquer alteração feita no programa '# deve ser informada e enviada para os criadores, através de e-mail '# ou da página de onde foi baixado o código. '# '# //------------------------------------------------------------------------------------- '# // LEIA COM ATENÇÃO: O software VirtuaStore OPEN deve conter as frases '# // "bondhost - Hospedagem" ou "Software derivado de VirtuaStore 1.2" e '# // o link para o site http://comunidade.virtuastore.com.br no créditos da '# // sua loja virtual para ser utilizado gratuitamente. Se o link e/ou uma das '# // frases não estiver presentes ou visiveis este software deixará de ser '# // considerado Open-source(gratuito) e o uso sem autorização terá '# // penalidades judiciais de acordo com as leis de pirataria de software. '# //-------------------------------------------------------------------------------------- '# '# Este programa é distribuído com a esperança de que lhe seja útil, '# porém SEM NENHUMA GARANTIA. Veja a GNU General Public License '# abaixo (GNU Licença Pública Geral) para mais detalhes. '# '# Você deve receber a cópia da Licença GNU com este programa, '# caso contrário escreva para '# Free Software Foundation, Inc., 59 Temple Place, Suite 330, '# Boston, MA 02111-1307 USA '# '# Para enviar suas dúvidas, sugestões e/ou contratar a VirtuaWorks '# Internet Design entre em contato através do e-mail '# contato@virtuaworks.com.br ou pelo endereço abaixo: '# Rua Venâncio Aires, 1001 - Niterói - Canoas - RS - Brasil. Cep 92110-000. '# '# Para ajuda e suporte acesse um dos sites abaixo: '# http://comunidade.virtuastore.com.br '# http://www.bondhost.com.br '# '# BOM PROVEITO! '# Equipe VirtuaStore '# []'s '# '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### 'INÍCIO DO CÓDIGO 'Este código está otimizado e roda tanto em Windows 2000/NT/XP/ME/98 quanto em servidores UNIX-LINUX com chilli!ASP %> <% 'Chama os dados do cliente Set dados = abredb.Execute("SELECT nome,contato,email FROM clientes WHERE email='"&Cripto(session("usuario"),true)&"';") 'response.write "
sql :"&sql 'response.write "
sessao :"&session("usuario") 'response.end if dados.EOF OR dados.BOF then abredb.close set abredb = nothing response.redirect "default.asp" else 'Chama as variaveis strNome = Cripto(dados("nome"),false) strEmail = Cripto(dados("email"),false) end if dados.Close set dados = Nothing %> <% 'Requisita os dados para o e-mail if request.querystring("acao") = "envio" then strNome = request.form("nome") strEmail = request.form("email") strPagamento = request.form("pagamento") strData = request.form("data") strHora = request.form("hora") strAgencia = request.form("agencia") strValor = request.form("valor") strMsg = request.form("msg") strCCEmail = "" If strNome = "" then response.redirect "conf_pagamento.asp?erro=- Por favor preencha o seu nome corretamente!&nome="&strNome&"&email="&strEmail&"&data="&strData&"&hora="&strHora&"&agencia="&strAgencia&"&valor="&strValor&"&msg="&strMsg end if 'Verifica se o e-mail é existente If strEmail = "" Or instr(strEmail, "@") = 0 Or instr(strEmail, ".") = 0 then response.redirect "conf_pagamento.asp?erro=- Por favor preencha o seu e-mail corretamente&nome="&strNome&"&email="&strEmail&"&data="&strData&"&hora="&strHora&"&agencia="&strAgencia&"&valor="&strValor&"&msg="&strMsg end if 'Valida a data é existente If strData = "" Or instr(strData, "/") = 0 then response.redirect "conf_pagamento.asp?erro=- Por favor digite uma data válida do pagamento&nome="&strNome&"&email="&strEmail&"&data="&strData&"&hora="&strHora&"&agencia="&strAgencia&"&valor="&strValor&"&msg="&strMsg end if 'Verifica se hora é existente If strHora = "" Or instr(strHora, ":") = 0 then response.redirect "conf_pagamento.asp?erro=- Por favor preencha a hora aproximada do pagamento&nome="&strNome&"&email="&strEmail&"&data="&strData&"&hora="&strHora&"&agencia="&strAgencia&"&valor="&strValor&"&msg="&strMsg end if 'Valida a Agencia Origem é existente 'If strAgencia = "" then 'response.redirect "conf_pagamento.asp?erro=- Por favor digite a Agência origem do pagamento&nome="&strNome&"&email="&strEmail&"&data="&strData&"&hora="&strHora&"&agencia="&strAgencia&"&valor="&strValor&"&msg="&strMsg 'end if 'Verifica o valor é existente If strHora = "" Or instr(strHora, ",")then response.redirect "conf_pagamento.asp?erro=- Por favor preencha o valor do pagamento&nome="&strNome&"&email="&strEmail&"&data="&strData&"&hora="&strHora&"&agencia="&strAgencia&"&valor="&strValor&"&msg="&strMsg end if %>
<%=strLg4%> » <%=strLg311%>

>


<%=strLg124%>

<%=strLg125%> <%=strNome%>, <%=strLg308%>

<%=strLg309%>


width="100%">
<% response.end else%>
<%=strLg4%> » <%=strLg311%>

width="100%">

<%=strLg311%><%=request.querystring("erro")%>

Este formulário é exclusivo para que o cliente possa nos enviar os dados de seu pagamento das compras efetuadas em nossa loja virtual.

Após efetuar o pagamento (depósito / transferência / boleto bancário), preecha o formulário com os dados do pagamento para assim agilizarmos com maior rapidez o processamento de seu pedido.
<%dados.Close set dados = Nothing%>
;font-size=11px; color=#000000> <%=strLg129%> ">
<%=strLg108%> <% 'Requisita os dados do cliente Set dados = abredb.Execute("SELECT email FROM clientes WHERE email='"&Cripto(session("usuario"),true)&"';") emailatual = Cripto(dados("email"),false)%> ">
;font-size:10px;color:#808080;><%=strLg130%>
<%=strLg91%>:
<%=strLg303%> "> Ex: 01/10/04
<%=strLg305%> "> Ex: 15:00
<%=strLg306%> "> Ex: 1234-5
<%=strLg307%> "> Ex: 150,90

<%=strLg304%>
 
/imagens/confirmar.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg311%>';return true;">
   /imagens/limpar.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg89%>';return true;">

width="100%">
<%end if%>